Hallo liebe Forumgemeinde
Ich habe in der Recherche folgendes Makro gefunden das auch wunderbar arbeitet.
Kann mir jemand bitte dabei behilflich sein, dass Makro soweit zu bringen, dass es die Zellen mit gefundenen Leerzeichen rot markiert?
Sub blatt() Dim bereich As Range Dim zelle As Range Set bereich = Worksheets("Tabelle1").Range("A1:Z400") For Each zelle In bereich If Left(zelle.Value, 1) = " " Or Right(zelle.Value, 1) = " " Then MsgBox "In der Zelle " & zelle.Address & " befindet sich ein/oder mehrere Leerzeichen" End If Next zelle End Sub
als Zusatzzückerchen wäre es Super, wenn auch eine MsgBox erscheint, wenn keine Leerzeichen gefunden wurden.
Danke vielmals im voraus für eure Unterstützung und Grüsse
Glen