AW: Zellen finden deren Inhalt einer bestimmten Struk
29.08.2010 12:28:08
fcs
Hallo Roger,
folgendes Makro hat die Funktionalität.
Bei sehr vielen Zellen dauerts aber schon ein paar Sekunden.
Das Beispiel markiert Zellen mit A-Z und a-z für die 3 ersten Zeichen und 11 Ziffern.
Gruß
Franz
Sub StrukturMarkieren()
Dim Zelle As Range, Bereich As Range, wks As Worksheet
Set wks = ActiveSheet
With wks
Set Bereich = .Range(.Cells(1, 1), _
.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 7)) 'Spaltennummern ggf. anpassen
End With
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Value Like "[A-Z, a-z][A-Z,a-z][A-Z,a-z]###########" Then
Zelle.Interior.ColorIndex = 6 '13 = Violett, 33=hellblau, 6 = gelb
End If
Next
Application.ScreenUpdating = True
End Sub