ich habe folgendes Problem:
im Bereich D1:D30 werden folgende Werte per Makro eingetragen: ganze Zahlen zwischen 0 und 99999 und (in Kombination mit dem Buchstaben A) A0 bis A99999. Also möglich wären z. B. nur Werte wie A37204, 13268, 98540 usw.
Alle anderen Einträge sollen rot markiert werden. Also z. B. 3720,4 oder 3720ß oder A3720ß. Jetzt werden mit folgendem Makro allerdings Werte bis einschl. 99999 in Kombination mit A rot markiert und falsche Einträge, wie 3720,4 nicht. Gibt es dafür vielleicht eine Lösung? Vielen Dank im Voraus! Grüße, Stephan
hier noch die Datei:
https://www.herber.de/bbs/user/52516.xls
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2:D30]) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case 0 To 99999
.Interior.ColorIndex = xlNone
Case A1 To A99999
.Interior.ColorIndex = xlNone
Case Else
.Interior.ColorIndex = 3
End Select
End With
End Sub