Excel-Problem, wie jede 2. zeile löschen?!

JackDaniels

Lt. Junior Grade
Dabei seit
Jan. 2002
Beiträge
385
Hallo,

will ein makro für excel schreiben, dass mir jede 2. zeile komplett löscht.
krieg das aber net ganz hin, kann mir jemand helfen?

sind halt 50000 zeilen in dem excel sheet und will mir arbeit ersparen ;)
hintergrund ist der, dass aus den 50000 zeilen ein diagramm erstellt werden soll, excel mault aber rum dass es nur 32000 verwalten kann.
deshalb jede 2. zeile löschen, reicht für diagramm aus...

bisher siehts so aus, funzt aber net ganz :/ also ab zeile 3 bis 49985 soll jede 2. gelöscht werden.

For i = 2 To 49985
Rows("(1+i):(1+i)").Select
Selection.Delete Shift:=xlUp
Next i
End

danke mal,
 

IAMHATED

Cadet 3rd Year
Dabei seit
Apr. 2003
Beiträge
35
Hab zwar keine Ahnung von Makros aber ich hab eben mal in Excel rumgespielt:
Hier das Ergebnis:


Sub Makro1()
'
' Makro1 Makro
' Makro am 09.02.2004 von aufgezeichnet
'

'
For i = 3 To 49985
Rows(i).Delete
Next i
End Sub

Kurze Anmerkung: es schaut zwar so aus als wenn alle Zeilen gelöscht werden aber zumindest bei mir wird nur jede Zweite ab der 3. gelöscht also alle ungeraden. Falls es bei Dir nicht klappt kannste die For-Zeile mit dem Befehl "STEP 2" erweitern und die Schrittweite angeben (bei mir bewirkte es allerdings das Löschen jeder 3. Zeile). Laut Hilfe erhöht der NEXT - Befehl die folgende Var um 1 und beendet die Schleife. Daher kommt's wahrscheinlich(!) dass jede 2. Zeile gelöscht wird. Weiß nicht wie man die For-Schleife sonst beenden kann. Einfach mal testen. Hoffe geholfen zu haben.

Gruß
 

JackDaniels

Lt. Junior Grade
Ersteller dieses Themas
Dabei seit
Jan. 2002
Beiträge
385
dickes dankeschöööön !!

hat super geklappt!! hat zwar 15min gerrechnet der pc, aber alles 1A !!

hehe, thx!
 
Top