Bereiche / Bedingte Formatierung / Schleifen
Jesse
ich habe ein kleines Makro programmiert, für eine Bedingte Formatiertung:
Function Muster(Zelle)
Dim I As Integer
Select Case Zelle
Case Is = "U"
I = 3
Case Is = "ÜZ Ü"
I = 12
Case Else
I = 0
End Select
With Selection.Interior
.ColorIndex = I
.PatternColorIndex = xlAutomatic
End With
End Function
Sub SuchenUndFaerben()
Dim I As Integer
Range("A1").Select
For I = 1 To ActiveSheet.UsedRange.Rows.Count
Muster (ActiveCell)
ActiveCell.Offset(1, 0).Select
Next I
End Sub
Meine Frage: In meinem Makro berücksichtige ich nur Spalte A, allerdings würde ich gerne den gesamten beschriebenen Bereich meines Tabellenblattes ( völlig variabel ) mit den Schleifen durchlaufen lassen... ist das möglich? Ich weiss das man den gesamten beschriebenen Bereich mit "usedrange.select" auswählen kann, aber dann funktioniert ja die Schleife nicht mehr. Für eure Hilfe bedanke ich mich im Voraus,
lg Jesse James