ich hoffe ihr könnt mir weiterhelfen....
Habe Folgenden Code eingegeben :
Sub leer_weg()
Cells.Find("Prüfling").Activate
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
ActiveCell.Offset(-1, 0).Select
Range("E" & ActiveCell.Row & ":M" & ActiveCell.Row).Select
Selection.Delete
Range("F9").Select
End If
End Sub
Dieser funktioniert auch, aber nur einmal. Er soll danach weiter suchen und das gleiche wieder ausführen, bis er nichts mehr findet. Dann einfach Exit Sub.
Auf Deutsch was dieses Makro tut:
Suche das Wort Prüfling,
wenn gefunden dann geh in die Zelle darunter
wenn diese Leer ist dann geh wieder zur Zelle Prüfling
markiere E bis M und lösche das
Wenn Zelle unter Prüfling ist nicht leer dann such weiter
Ich weiß das geht bestimmt allgemein viel besser :(
Liebe Grüße, Simal