mehere Zeilen löschen wenn in 1 bestimmter Wert
07.08.2006 16:08:41
Otto
bisher konnte mir die Suche Funktion immer weiter helfen. Jetzt komm ich aber da auch nicht mehr weiter.
Ich habe eine ASCII Datei in Excel importiert. Es sind ungefähr 9000 Datensätze. Das txt Datei liegt in einem Seitenformat vor und wird auf Endlospapier ausgedruckt. Deswegen habe ich immer wieder Header in Excel die ich automatisch löschen möchte. Am Ende eines Blattes steht in Spalte A immer ein A danach kommt die neue Seite und hat 15 Zeilen Header. Ich würde gern mit einem Makro nach A suchen lassen und dann A + die nächsten 14 Zeilen löschen. Ich habe 2 Makros gefunden, kann Sie nur leider nicht verknüpfen.
Das ist zum löchen von einem Text ("IA") in Spalte 3
Sub Löschen()
Dim I As Integer
For I = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(I, 3) = "IA" Then Rows(I).Delete
Next I
End Sub
Das Makro soll ab dem aktiven Zelle die nächsten 5 löschen.
Sub Werner()
Dim intCount As Integer
intCount = 5
Rows(ActiveCell.Row & ":" & ActiveCell.Row + intCount - 1).Delete Shift:=xlUp
End Sub
Ist es möglich die 2 Sachen miteinander zu verbinden?
Danke
Otto