Makro: bestimmte Zeilen löschen

Hallo zusammen,

ich benötige Hilfe mit einem Makro in Excel.

Jeden Monat bearbeite ich eine Excel-Datei (mit verschiedener Zeilenanzahl) und möchte mir diese mit Hilfe von Makros aufbereiten.

In der Tabelle muss nach zwei Worten gesucht werden.

Wenn Wort „xy“ in der Tabelle (Spalte 5, i) gefunden wurde, sollen alle Zeilen darüber gelöscht werden.

Wenn Wort „yz“ gefunden wurde, sollen alle Zeilen darunter gelöscht werden.

Der Mittelteil bleibt für weitere Bearbeitungen erhalten.

Wer kann mir hier einen Vorschlag für einen Makro machen, der diese Anweisungen erledigt.

Danach müssen noch weitere Aktivitäten laufen, die ich ebenfalls mit in das Makro einbauen möchte. Dieses kann ich jedoch per Aufzeichnung erstellen. Könnt ihr mir dann auch sagen, an welcher Stelle des Makrocodes ich die Kopie der Aufzeichnung einfügen muss.

Vielen Dank schon einmal im Voraus

Hallo,

ich benötige Hilfe mit einem Makro in Excel.

wie fit bist du selbst?

Jeden Monat bearbeite ich eine Excel-Datei (mit verschiedener
Zeilenanzahl) und möchte mir diese mit Hilfe von Makros
aufbereiten.

gute Idee :wink:
Ich werd Dir die vorgehensweise erklären, Du kannst das dann umsetzen (oder reinhard baut Dir das Makro gleich komplett ^^)

erst mal brauchst Du einen loop, der die ganzen Zeilen durchgeht…

for variable = 0 to 10000

next variable

das würde nun 10.000 Zeilen lang suchen - also sobald man sagt, dass er suchen soll :wink:

inhalt = Range(„A1“).offset(variable,0).Value

ermittelt den Wert, der in der jeweiligen Zeile steht und speichert ihn in Variable „inhalt“.

if inhalt = „xy“ then

end if

prüft den Inhalt auf den jeweiligen Wert

zeilennummer = Range(„A1“).offset(variable,0).Row
gibt Dir die Zeilennummer an.
spalte = Range(„A1“).offset(variable,0).Column
gibt dir die Spalte an
adr = Range(„A1“).offset(variable,0).Address
gibt dir die genaue Adresse an.

Range(„A1:“ + adr).Select
selektiert den Bereich zwischen A1 und adr

Selection.Entirerow.delete
müsste die selektierten Zeilen löschen.
Da bin ich mir aber gerade aus dem Kopf nicht 100% sicher - sollte aber gehen.

In der Tabelle muss nach zwei Worten gesucht werden.

bedeutet: 2 if - abfragen.

Wer kann mir hier einen Vorschlag für einen Makro machen, der
diese Anweisungen erledigt.

selbst ist der Mann :wink:
wir wollen ja was lernen und nicht andere Leute nur beschäftigen, oder?

Danach müssen noch weitere Aktivitäten laufen, die ich
ebenfalls mit in das Makro einbauen möchte. Dieses kann ich
jedoch per Aufzeichnung erstellen. Könnt ihr mir dann auch
sagen, an welcher Stelle des Makrocodes ich die Kopie der
Aufzeichnung einfügen muss.

einfach ganz unten vor dem „end sub“ :wink:

Vielen Dank schon einmal im Voraus

Bitte bitte

Grüße
Munich

hi,

vielen dank für die schnelle rückmeldung.
da hab ich erstmal was zu tun :smile:

gruß
magiko80