With Schleife
25.10.2003 09:47:28
Christoph
Mit nachfolgendem Code lese ich aus einem Tabellenblatt in Spalte A Werte
in eine Varaible ein. Das klappt auch wunderbar.
Dim X as Variant
Dim Anzvariable as Integer
DIM Variablenname() As String
Set Kom_Datei = Workbooks(wb_name_KDatei).Worksheets(ws_name_KDatei)
Kom_Datei.Activate
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
Das gleiche Versuche ich nun in einer With Schleife allerdings ohne
das Tabellenblatt zu aktivieren.
With Kom_Datei
For Each rng In .Range(Cells(1, 1), Cells(Anzvariable, 1))
If Not IsEmpty(rng) And _
rng.Font.ColorIndex = 5 Then
Variablenname(i) = rng.Value
End If
i = i + 1
Next rng
End With
Hier erhalte ich die Fehlermeldung
Anwendungs oder objektdefinierter Fehler
Woran liegts.
Gruss Christoph