jede 2.Zeile einfügen

Bild

Betrifft: jede 2.Zeile einfügen
von: golem
Geschrieben am: 08.10.2003 11:28:14

Hi,
Habe ein Macrorecproblem:
es soll in jede zweite Zeile (ab zeile 6)eine neue Zeile eingefügt werden.

so weit bin ich:
'um eine Zeile einzufügen:
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

Versuch:
dim i as integer, b as integer
b=0
for i=0 to 100
b=b+2
Rows("(6+b):6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
next

Fehlermeldung in Zeile Rows(.....
Wie kann man das Prob lösen?

bitte um Hilfe
goli

Bild


Betrifft: AW: jede 2.Zeile einfügen
von: Andi_H
Geschrieben am: 08.10.2003 11:34:59

hi golem,
versuchs mal mit
rows(6+b).insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow


gruß

andi


Bild


Betrifft: es funkt! DANKE!
von: golem
Geschrieben am: 08.10.2003 11:38:54




Bild


Betrifft: AW: jede 2.Zeile einfügen
von: Galenzo
Geschrieben am: 08.10.2003 11:38:51

Hallo,
hier eine Prozedur um eine bestimmte Anzahl (hier 100) von Zeilen (ab Zeile 6) einzufügen


Private Sub ZeilenEinfügen()
    Dim i%
    For i = 1 To 100
        Cells(6 + i * 2, 1).EntireRow.Insert Shift:=xlDown
    Next i
End Sub

mfg


Bild


Betrifft: AW: jede 2.Zeile einfügen
von: golem
Geschrieben am: 08.10.2003 11:40:40

Hi Galenzo,
danke für den Code!

Für was steht dim i% und EntireRow?

mfg
Golem


Bild


Betrifft: AW: jede 2.Zeile einfügen
von: Galenzo
Geschrieben am: 08.10.2003 11:45:51

Dim i% ist nur 'ne Kurzform für Dim i As Integer
EntireRow ist die gesamte Zeile - es geht hier aber anscheinend auch ohne , also nur
Cells(6 + i * 2, 1).Insert Shift:=xlDown
mfg - Galenzo


Bild


Betrifft: DAnke für Hilfe o.T.
von: golem
Geschrieben am: 08.10.2003 13:24:02




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Makro soll trotz UserForm weiterlaufen"