Excel Makro erstellen zum Zeilen einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe eine Tabelle 57094 Zeilen und möchte im Abstand vn 60 zeilen eine Leerzeile einfügen
Mein Makro:
Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
For i = Menge To 61 Step -60
Menge60 = i & „:“ & i
Rows(Menge60).Select
Selection.Insert Shift:=xlDown
Next
End Sub

Mein Makro funktioniert nicht: er fügt mir alle 50 Zeilen eine Leerzeile ein.
Wo ist mein Fehler?

Lg

#2

Hallo extrastoff,
leider bin ich nicht DER Programmiere und habe auch nur etwas VBA-Kenntnisse von Office 2000.
Bei mit funktioniert diese Routine:

Sub Leerzeilen()
iStep = 60
Set rng = Range(„A1:B723“) ’ Beispiel
Menge = rng.Rows.Count - iStep
For i = Menge To 61 Step -iStep
Rows(i).Insert
Next
End Sub

Viel Glück
Horst

…

Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
For i = Menge To 61 Step -60
Menge60 = i & „:“ & i
Rows(Menge60).Select

Gibt man jetzt bei „Rows“ einen Bereich an? Ich kenne es nur mit Integer. Aber wahrscheinlich ist beides möglich.

Selection.Insert Shift:=xlDown
Next
End Sub

Mein Makro funktioniert nicht: er fügt mir alle 50 Zeilen eine
Leerzeile ein.
Wo ist mein Fehler?

Lg

#3

Hi, also generell sollte dein Makro korrekt funktionieren.
Ich habe es unter EXCEL 2007 probiert.

Arbeite dein Makro mal Step bei Step durch, im VB Editor mit F8, Wiue gesagt bei mir tuts, dein Makro ist korrekt!
Gruß
Uwe

#4

Finde ich auch suspekt. Kenne mich mit excel Macros nicht aus.
Sorry