nocheinmal Überprüfen
30.07.2005 17:39:30
Thomas
heute Mittag habe ich schon einmal eine Frage ins Forum gestellt und auch eine brauchbare Lösung bekommen.
Vom Mittag mit Antwort.
Hallo Excelfreunde,
ich habe in den Zeilen (For j = 3 To 41 Step 2) (For I = 3 To 12 Step 1)
drei Buchstaben und zwei Zahlen z.b. abc12.
Leider kann es auch vorkommen das in den Zellen auch vier Buchstaben und eine Zahl oder auch fünf Buchstaben und keine Zahl habe.
Gibt es eine Möglichkeit, mit einem Makro alle Zellen farblich zu markieren, die mehr als drei Buchstaben haben?
Hallo
Vielleicht hilft dir folgender Code weiter.
Sub Anzahl_Buchstaben()
Dim i%, j%, k%, x%
Dim TMP
For j = 3 To 41 Step 2
For i = 3 To 12 Step 1
TMP = Cells(j, i).Value
If Len(TMP) <> 0 Then
x = 0
For k = 1 To Len(TMP)
Select Case Asc(Mid(TMP, k, 1))
Case 65 To 90, 97 To 122, 196, 214, 220, 228, 252, 246
x = x + 1
End Select
Next k
If x > 3 Then Cells(j, i).Interior.ColorIndex = 3
End If
Next i
Next j
End Sub
Jetzt habe ich eine Tabelle wo vorne die Zahlen und hinten die Buchstaben stehen z.b. 12 abc
Was muss am Makro geändert werden, wenn ich nur eine statt zwei Zahlen stehen habe?
Mit freundlichen Grüßen
Thomas