AW: Zeichen zählen
20.04.2004 15:56:10
Werner
Grüezi Sacha
Diese beiden Makros in ein Modul kopieren.
Sub Mehr_als_30()
z = Range("A65536").End(xlUp).Row
s = Range("IV1").End(xlToLeft).Column
Range(Cells(1, 1), Cells(z, s)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LÄNGE(A1)>30"
Selection.FormatConditions(1).Interior.ColorIndex = 8
Range("A1").Select
End Sub
Sub BedFormat_Löschen()
Cells.Select
Selection.FormatConditions.Delete
Range("A1").Select
End Sub
Beim Start von Makro Mehr_als_30 werden diese Zellen blau, solange mehr als 30 Zeichen drin sind.
Gruss Werner