Zeilen einfügen
24.08.2006 19:10:06
Frank68
Hab folgendes probiert und bitte nicht schimpfen:
Private Sub CommandButton1_Click()
Dim AnzZeilen As Integer
Dim i As Integer
Dim j As Integer 'Nummer der letzten benutzten Zeile
Dim MZ As Range 'MZ = Musterzeile
Set MZ = Rows(5)
AnzZeilen = Application.InputBox("Geben Sie bitte die Anzahl der einzufügenden Zellen ein!", Type:=1)
For i = 1 To AnzZeilen
Set j = UsedRows.Count.End(xlUp)
MZ.Activate
MZ.Select
Selection.Copy.Destination = Rows(j + 1)
Next i
End Sub
Das läuft nicht, Makro steht auf j und ich bekomme die Fehlermeldung "Variable nicht definiert", aber ich wüsste gern, warum.
Danke!