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 :)
|