Referenzieren

Mit nachfolgendem VBA Code lese ich aus einem Tabellenblatt in Spalte A von Zeile 1 - X Werte aus und weise diese der Variablen
Variablenname(i) zu.

Allerdings muss ich dann immer mit Tabellenblatt.Activate
vorher dieses Tabellenblatt aktivieren.

Wie kann ich diese Aufgabe in einer With Schleife lösen.
Das heist ich möchte nur auf das Tabellenblatt referenzieren

Gruss Christoph

i = 0
For Each X In Kom_Datei. _
Range(Cells(1, 1), Cells(Anzvariable, 1))
If Not IsEmpty(X.Value) And _
X.Font.ColorIndex = 5 Then
Variablenname(i) = X.Value
End If
i = i + 1
Next X