Hallo zusammen,
leider ist mein Problem von gestern doch noch nicht gelöscht. Nachfolgend mein Programmcode (den Lösungsvorschlag von Mr. K habe ich bereits umgesetzt, jedoch ohne Erfolg :-( )
Ziel des Codes-->bestimmte Zeilen ansprechen und anschließend löschen.
Dim aaa As Integer
Dim bbb As Integer
Dim ccc As Integer
Dim ddd As Integer
aaa = 15
bbb = 17
ccc = 19
ddd = 20
For aaa = 15 To 80 Step 2
Tabelle2.Range(aaa & ":" & aaa, bbb & ":" & bbb, ccc & ":" & ccc, ddd & ":" & ddd).Select
Selection.Delete Shift:=xlUp
bbb = bbb + 2
ccc = ccc + 2
ddd = ddd + 2
Next aaa
Folgender Code funktioniert, ist jedoch von der Laufzeit suboptimal :-).
Tabelle2.Select
Range("15:15, 17:17, 19:19, 20:20").Select
Selection.Delete Shift:=xlUp
Sehe den Fehler nicht.
Gruß
Timm
|