VBA Worksheet Problem
25.11.2002 16:27:26
ADAM
Wieso geht folgende Anweisung nicht???
Dim Worksheet as Worksheet
Dim Zeilenzaehler as Integer
For Each Worksheet In ActiveWorkbook.Worksheets(Array("TT", "TR", "GG", "ZD"))
Worksheet.Select
For i = 4 To 2000
If Worksheet.Cells(i, 2).Interior.ColorIndex = 33 Then
Zeilenzaehler = i
Exit For
Else
'do nothing
End If
Next i
ActiveWorkbook.Worksheets("Ausgabeblatt").Cells(5, 2).Value = Worksheet.Cells(Zeilenzaehler, 4)
Next Worksheet
Das Ganze sucht in einem Sheet nach blau hinterlegten Zeilen, und gibt die dann in einem anderen sheet wieder aus.
Es tritt allerdings ein Fehler bei "Worksheets("Ausgabeblatt").Cells(5, 2).Value = Worksheet.Cells(Zeilenzaehler, 4)" auf. Wieso?
ADAM