ich hab' das gleiche Problem wie die beiden die gestern gepostet haben. Jedoch komme ich mit dem Tip von L.Vira
Sub jede_zweite_leer()
Dim z As Long
Dim lZ As Long
lZ = [a65536].End(xlUp).Row
If lZ < 2 Then Exit Sub
If lZ > 32000 Then
MsgBox "Für diese Funktion dürfen max. 32.000 Datensätze vorhanden sein! ", 64, "weise hin..."
Exit Sub
End If
Application.ScreenUpdating = False
z = 2
While z < lZ * 2
Rows(z).Insert
z = z + 2
Wend
Application.ScreenUpdating = True
MsgBox "Ein harter Job wurde erledigt! ", 64, "weise hin..."
End Sub
nicht weiter auch wenn die Modifizierung so einfach sein soll.
Wie hat denn das Makro nun auszusehen, wenn man nur Zellen und nicht Zeilen einfügen will?
Vielen Dank im Vorraus, Georg