Ach, auf der deutschen Tastatur sind y und z getauscht, da das die englischen (oder amerikanischen?) Hotkeys ;)

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.

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