5.6k Aufrufe
Gefragt in Tabellenkalkulation von
guten tag,

unzwar hätte ich folgendes problem. ich möchte werte gern immer nur in 1 Zelle schreiben (wegen eines tablets und der vorgegeben sicht und schreib größe)
jetzt sollen die werte aber in seperaten zellen hinterlegt werden.

bsp.

A1 (schreibzelle) wert wird eingetragen
wert wird in zelle B1 hinterlegt
A1 wird gelöscht
A1 wert wird eingetragen
wert wird in zelle C1 hinterlegt

und so weiter

6 Antworten

0 Punkte
Beantwortet von computerschrat Profi (32.2k Punkte)
Woran soll dann der Rechner erkennen, in welche Zelle die Werte zu schreiben sind? Gibt es bestimmte Typen von Eingaben, Zahlen nach B1, Texte nach C1 oder so ähnlich?
Wo kommt die dritte Eingabe hin, wenn B1 und C1 schon gefüllt sind?

Lass uns etwas mehr von deiner Aufgabenstellung wissen.

Gruß
computerschrat
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Marc,

das folgende Makro gehört in das VBA-Projekt des betreffenden Arbeitsblatts:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim letztespalte As Long

If Intersect(Target, Range("A1")) Is Nothing Then
letztespalte = ActiveSheet.Cells(1, 256).End(xlToLeft).Column + 1
Cells(1, letztespalte) = Cells(1, 1).Value
Cells(1, 1).ClearContents
End If

End Sub


Benutzt du Excel 2007 oder höher, dann ersetze die Zeile mit letztespalte = .. wie folgt:

letztespalte = ActiveSheet.Cells(1, 16384).End(xlToLeft).Column + 1


Gruß

M.O.
0 Punkte
Beantwortet von
danke habe excel 2010

nur beim schreiben des makros kommt er mir imemr das er ein end sub erwartet
habe mich leider noch nicht so intensiv mit den makros auseinander setzen können
mache sonnst viel mit formeln

wäre schön wenn mir kurz info gibst was mein fehler ist
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo,

kopiere einfach das Makro und füge es in das VBA-Projekt des betreffenden Arbeitsblattes ein. Wie das geht, kannst du im Link von meiner Anwort 2 nachlesen.

Hier noch mal das Makro für Excel 2010:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim letztespalte As Long

If Intersect(Target, Range("A1")) Is Nothing Then
letztespalte = ActiveSheet.Cells(1, 16384).End(xlToLeft).Column + 1
Cells(1, letztespalte) = Cells(1, 1).Value
Cells(1, 1).ClearContents
End If

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von
Ich habe das Problem auch mit Windows 8 und es zeigt an Meldung von Webseite " Stapelüberlauf bei Zeile: 1" verstehe nur Bahnhof. Könntet ihr das nochmal erklären für einen der sich mit PC nicht aus kennt und es erklären als wen ihr es einem 3 Jährigem es sagen wollt?
Mit bestem dank im voraus für eure Bemühungen
Zuckel
0 Punkte
Beantwortet von
@Zuckel oder wie deine verschiedenen Nicks inzwischen sind
1. hat dein Problem nichts mit der Frage hier zu tun
2. das gleiche immer wieder mit verschiedenen Nicks zu posten wird dir auch nicht helfen.
...