Office: Beliebigen Text aus Zellen entfernen und Zeilen löschen.

Hallo liebe User,

ich habe folgendes Problem. Ich weiss nicht, wie ich Excel sagen kann, dass es nach beliebigen Text suchen soll.

Hier die Aufgabenstellung:
Mittels VBA soll geprüft werden, ob Zellen überhaupt Text enthalten.
Entweder man definiert einen bestimmten Bereich A1:A100 oder aber (was mir lieber wäre) Excel durchsucht das gesamte Tabellenblatt und hört mit der Suche auf, wenn der gesamte Inhalt in Spalte A abgearbeitet ist.

Wenn Zelle Ax beliebigen Text enthält (einschließlich "-- -- --" und "*******"), dann soll die komplette Zeile gelöscht werden.
Wenn Zelle leer ist, dann soll ebenfalls die komplette Zeile gelöscht werden.
Wenn Zelle "33 Bonus: doppelte Portion" enthält, dann soll nur der Text aus dieser Zelle entfernt werden. Die Zahl muss erhalten bleiben.

Das Schwierige ist, wenn diese "Bonus-Zellen" auftauchen, sind diese unterschiedlich formatiert.

"Bonus-Zellen" die eine zweistellige Ziffer enthalten (hier: 33) haben am Anfang kein Leerzeichen, soll heißen, der Text beginnt direkt mit der 33 (Bsp. Zelle A30)

"Bonus-Zellen" die nur eine einstellige Ziffer (hier: 2) enthalten, haben am Anfang ein Leerzeichen in der Textzeile stehen (Bsp. Zelle A35).

Also, die Bonus-Zellen sind folgendermaßen aufgebaut:
Bonus-Zeile mit zweistelliger Ziffer (Ziffer kann 10 bis 99 sein):
"33" + "8 Leerzeichen" + "Bonus:" + "1 Leerzeichen" + "doppelte" + "1 Leerzeichen" + "Reservierung"

Bonus-Zeile mit einstelliger Ziffer (Ziffer kann 0 bis 9 sein)::
"1 Leerzeichen" + "2" + "8 Leerzeichen" + "Bonus:" + "1 Leerzeichen" + "doppelte" + "1 Leerzeichen" + "Reservierung"

Das Ergebnis welches ich in Spalte B manuell eingegeben habe, soll dann in Spalte A stehen.

Danke für Eure Hilfe

:)

 

Hi,

ich hoffe ich habe dich richtig verstanden:

Code:

 

Hallo Beverly,

ja genau das habe ich gesucht. Hab vielen vielen Dank für deine schnelle Hilfe.

Makro läuft tadellos und vor allem super schnell. Habe es schon mit Excel-Funktionen getestet aber die Berechnung dauerte ewig. Nochmals vielen Dank.

Arno

 

Hallo Beverly,

kannst du mir noch eine Zeile einbauen, indem Excel nachdem es alles gelöscht hat in Spalte A in die letzte leere Zelle springt, damit ich dann über Strg + Shift + Pos1 den gesamten Tabellenblatt-Inhalt kopieren kann. Im Moment ist es so, das ich wenn ich Strg+ +Shift + Ende benutze, Excel in die letzte Zelle springt, in der ursprünglich Text stand. Bei 1000 ursprünglichen Zellen und später vielleicht nur noch 800 muss ich zuviel scrollen. Die eleganteste Lösung wäre natürlich, wenn Excel gleich den, nach dem Löschen verbliebenen, Text markiert und ich nur noch Strg+C drücken müsste. Vielen Dank.

 

Hi Arno,

ergänze die blau markierten Zeilen

Code:

 

Super. Danke schön Beverly. Jetzt komm ich endlich gut voran. Werde mich in den nächsten Monaten auch mehr mit der Materie VBA beschäftigen. Bin von der Mächtigkeit sehr beeindruckt. Wünsche dir noch ein schönes WE.

Gruß Arno