Und beachte, du kannst das nur drei Mal machen, also überleg dir ob du das wirklich willst ;).

Also selbst mit meiner 1,2k-Leitung geht das Zocken einwandfrei, nur das Laden vor einer WoT-Runde ist etwas knapp, aber sonst passt das voll ;).

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

Hmm, danke, dass ihr mir geholfen habt. Ich weiß zwar, wie man es nutzt (glaub ich jedenfalls :D) wenn es z.B. Q1 ist, welches wie einen rechteckigen Kasten als Symbol hat. Aber auf jeden Fall danke :)