Hallo Ihr Lieben,

Ich erstelle gerade ein Template in dem aus Tabellenblatt "Questionnaire" bestimmte Spalten auf den Tabellenblatt "CAR" übertragen werden sollen.

Es werden 3 Spalten A, G und H. Die Übertragung in "CAR" erfolgt dann, wenn in Spalte G die Zahlen kleiner 2 sind. Bis jetzt hat alles funktioniert und die Inhalte wurden nacheinander übertragen. Siehe Code:

Private Sub CheckBox1_Click()

'kopieren Makro
'Show Makro

Dim k As Integer
Dim i As Integer
Dim n As Integer

Sheets("CAR").CheckBox1.BackColor = RGB(0, 59, 89)

k = 9
n = 1

For i = 10 To 50
    
    If Sheets("Questionnaire").Cells(i, 7) < 2 Then
   
        Sheets("CAR").Cells(k, 1) = Sheets("Questionnaire").Cells(i, 1)
        Sheets("CAR").Cells(k, 2) = Sheets("Questionnaire").Cells(i, 7)
        Sheets("CAR").Cells(k, 3) = Sheets("Questionnaire").Cells(i, 8)
        k = k + 1
           
        ElseIf Sheets("CAR").CheckBox1 = False Then
    
            Sheets("CAR").Range("A9:A40", "R9:R40") = ""

    Exit For
End If
Next

End Sub

 Nachdem ich aber einige Zeilen verbunden habe, werden bei Übertragung ´der Inhalte in Tabellenblatt CAR leere Zellen dazwischen erzeugt und zwar immer nach den Zellen wo die Verbindung stattfindet. Ich weiß, dass das irgendwie an zählen n=1 wahrscheinlich liegt. Ich weiß aber nicht wie ich das anders schreiben könnte sodass alles nacheinander übertragen wird, ohne leere Zellen dazwischen. Kann mir bitte jemand dabei helfen.

Ich kann gerne mein Exceldatei schicken, weiß aber nicht wie :)

Vielen Dank :)