Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

jede 2.Zeile einfügen

Forumthread: jede 2.Zeile einfügen

jede 2.Zeile einfügen
08.10.2003 11:28:14
golem
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede 2.Zeile einfügen
08.10.2003 11:34:59
Andi_H
hi golem,
versuchs mal mit
rows(6+b).insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow


gruß

andi
es funkt! DANKE!
08.10.2003 11:38:54
golem
AW: jede 2.Zeile einfügen
08.10.2003 11:38:51
Galenzo
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
Anzeige
AW: jede 2.Zeile einfügen
08.10.2003 11:40:40
golem
Hi Galenzo,
danke für den Code!

Für was steht dim i% und EntireRow?

mfg
Golem
AW: jede 2.Zeile einfügen
08.10.2003 11:45:51
Galenzo
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
Anzeige
DAnke für Hilfe o.T.
08.10.2003 13:24:02
golem
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige