In die textX Felder kommen Daten hinein.
Row1 ist die Zeile, von welcher an die Werte nachher eingefügt werden sollen.
Row2 ist die Zeile, bei der das Programm aufhören soll.
Es soll also später so aussehen:
Text1 Text2 Text3 Text4
Text1 Text2 Text3 Text4
Text1 Text2 Text3 Text4
Text1 Text2 Text3 Text4
Private Sub button_ins_Click()
Dim z As Long
If z > 65000 Then z = 2
Do Until z = row2
z = row1
Cells(3, z) = text1
z = z + 1
Cells(3, z) = text2
z = z + 1
Cells(3, z) = text3
z = z + 1
Cells(3, z) = text4
'zwischen den Zeilen soll dann eine leere Zeile sein
z = z + 2
Loop
End Sub
Wenn ich das Userform starten fügt er mir zwar eine leere Zeile an, danach bekomme ich jedoch eine Fehlermeldung von wegen Definierungsfehler...
Was ist verkehrt?
Danke an Euch alle.
Sebastian