AW: Makro, um bestimmte Zeilen zu löschen
28.04.2007 09:27:00
Oberschlumpf
Hi Mel
Erstell zuerst eine Sicherheitskopie deiner Datei, bevor du diesen Code einsetzt:
Sub RowDel()
Dim loZeile As Long, loLetzte As Long
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
loZeile = 1
Do Until loZeile > loLetzte
If InStr(1, Range("A" & loZeile).Value, "Summe") = 0 Then
Rows(loZeile & ":" & loZeile).Delete Shift:=xlUp
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
loZeile = loZeile - 1
End If
loZeile = loZeile + 1
Loop
End Sub
Der Code prüft alle Einträge in Spalte A, beginnt in Zeile 1 und löscht alle Zeilen, bei denen in Spalte A NICHT Summe steht.
Wenn der Code NICHT in Zeile 1 beginnen soll, dann musst du diese Zeile
loZeile = 1
entsprechend anpassen.
Diesen Code musst du in ein allgemeines Modul einfügen.
1. Öffne mit Alt-F11 den VBA-Editor
2. Wenn nicth sichtbar, lass über Ansicht/Projektexplorer selbigen anzeigen
3. Klick mit rechte Maustaste im Projektexplorer auf eine der Tabellenblätter und wähle aus dem Kontextmenü Hinzufügen/Modul
4. Klick nun mit links doppelt auf den neuen Eintrag "Modul1"
5. Im normalerweise rechten, aber auf jeden Fall größten Fensterbereich fügst du obigen VBA-Code ein
6. Nun kannst du in Excel über Extras/Makro/Makros das Makro "RowDel" starten
Konnte ich helfen?
Ciao
Thorsten