Supportnet / Forum / Tabellenkalkulation
Excel-Makro zum Zeilenlöschen
Frage
Hallo Excel-Fricks,
Über einen Excel-Makro möchte ich in unterschiedlichen Dateien nach einem bestimmten
Zellinhalt suchen und dann automatisch alle Zeilen
über der gefundenen Zeile löschen.
Weiß jemand Rat, wie sich das über Makro
realisieren läßt.
Vielen Dank
Uwe
Antwort 1 von Guenter
Hi Uwe,
hast Du schon mal probiert mit Makro Aufzeichnen etwas zu machen.
Vielleicht ist das noch nicht die Komplett-Lösung, aber Du bist schon einen Schritt weiter.
Für den Rest, der dann noch fehlt, hier nochmals melden.
Gruß
Günter
hast Du schon mal probiert mit Makro Aufzeichnen etwas zu machen.
Vielleicht ist das noch nicht die Komplett-Lösung, aber Du bist schon einen Schritt weiter.
Für den Rest, der dann noch fehlt, hier nochmals melden.
Gruß
Günter
Antwort 2 von uwe0605
Hallo Günter,
erstmal vielen Dank. Ich hatte genauso begonnen.
Im Makro steht anschließend eine feste Zeilennummer.
Wenn ich den Macro dann aber in einer anderen Datei nutze, sucht er zwar noch nach dem konstanten Suchbegriff. Löscht aber bis zu der
in der ersten Datei (Zeitpunkt der Aufzeichnung) gefundenen Zeile.
Wie bekomme ich in den Makro die Koordinaten der
aktuell gefundenen Zeile hinein.
Gruß Uwe
erstmal vielen Dank. Ich hatte genauso begonnen.
Im Makro steht anschließend eine feste Zeilennummer.
Wenn ich den Macro dann aber in einer anderen Datei nutze, sucht er zwar noch nach dem konstanten Suchbegriff. Löscht aber bis zu der
in der ersten Datei (Zeitpunkt der Aufzeichnung) gefundenen Zeile.
Wie bekomme ich in den Makro die Koordinaten der
aktuell gefundenen Zeile hinein.
Gruß Uwe
Antwort 3 von nighty
hi uwe :)
ein beispiel waere
cells(Selection.Row,Selection.Column)
gruss nighty
ein beispiel waere
cells(Selection.Row,Selection.Column)
gruss nighty
Antwort 4 von nighty
hi alle :)
so werden die selectierte zeilennummer und selectierte spaltennummer einer variablen uebergeben,
gruss nighty
zeile1=Selection.Row
spalte1=Selection.Column
cells(Selection.Row,Selection.Column)
so werden die selectierte zeilennummer und selectierte spaltennummer einer variablen uebergeben,
gruss nighty
zeile1=Selection.Row
spalte1=Selection.Column
cells(Selection.Row,Selection.Column)
Antwort 5 von Guenter
Hallo Uwe,
die Koordinaten der aktiven Zelle bekommst Du mit:
die Zeilennummer bekommst Du mit:
Die Spalte entsprechend mit Column.
Gruß
GÜnter
die Koordinaten der aktiven Zelle bekommst Du mit:
...
ZellKoordinaten = ActiveCell.Address
...
die Zeilennummer bekommst Du mit:
...
ZellKoordinaten = ActiveCell.Row
...
Die Spalte entsprechend mit Column.
Gruß
GÜnter
Antwort 6 von uwe0605
Nochmal Hallo an alle,
vielen Dank für die schnelle Hilfe:
Meine Lösung sieht jetzt wie folgt aus:
Gruß Uwe
Sub test()
Cells.Find(What:="XXXXXXX", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
For zz = ActiveCell.Row To 1 Step -1
Rows(zz).Delete
Next zz
End Sub
Ist vielleicht nicht die Eleganteste - aber
funktionobelt ;-))).
vielen Dank für die schnelle Hilfe:
Meine Lösung sieht jetzt wie folgt aus:
Gruß Uwe
Sub test()
Cells.Find(What:="XXXXXXX", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
For zz = ActiveCell.Row To 1 Step -1
Rows(zz).Delete
Next zz
End Sub
Ist vielleicht nicht die Eleganteste - aber
funktionobelt ;-))).