Ach, auf der deutschen Tastatur sind y und z getauscht, da das die englischen (oder amerikanischen?) Hotkeys ;)
Antwort
Antwort
Die Taste "b" musst du dafür einmal drücken. Möglicherweise benutzt du die für was anderes, dann solltest du in den Einstellungen mal nachschauen und da eine Taste einstellen. Auch wenn es schon eine gibt dafür.
Antwort
Hallo Cyberping,
ich habe hier mal einen Code ausprobiert, hoffe er hilft dir. Ganz eindeutig beschrieben war deine Fragestellung nicht, also wenn ich etwas falsch verstanden habe, melde dich einfach ;).
Dim x As Integer
x = 1
If Tabelle1.Range("A1") = "Baum" Then
If Tabelle2.Cells(x, 3) = "" Then ' wird überprüft ob die Zelle leer ist
Tabelle2.Cells(x, 3) = Tabelle1.Range("B1").Value ' der Wert aus B1 wird geschrieben
Else
' es wird solange eine Zeile in Spalte C nach unten gegangen, bis eine leere Zelle gefunden wird
Do
x = x + 1
Loop Until Tabelle2.Cells(x, 3) = ""
Tabelle2.Cells(x, 3) = Tabelle1.Range("B1").Value
End If
End If
LG Ueribu
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.