Laufzeitfehler '1004' bei .Range(Cells...
09.06.2016 15:40:27
Nick
ich habe hier schon einige Lösungen für meine VBA-Excel-Probleme gefunden. - Vorab dafür mal ein großes Dankeschön. -
Heute knabbere ich nun an einem "Anwendungs- oder objektorientierten Fehler": Zur Auswertung wird der Index mehrerer Tabellenblätter an die Prozedur "Farbe_suchen(wks)" weitergegeben.
Dort sollen die gefundenen Ergebnisse in einem weiteren Berichtsblatt eingetragen werden. Ein Auswerteschritt besteht darin, den Farb-Index bestimmter Zellen im "wks-Blatt" zu ermitteln.
Die Benutzung von wks.Range("R" & zeileStr... in Zeile 26 liefert den Farbindex . - Bei der eigentlich benötigten Zeile 29 mit wks.Range(Cells... kommt die oben bezeichnete Fehler-Meldung. - Wer weis Rat?
Gruß Nick
Sub Report_Zusammenstellen()
Debug.Print "Report_Zusammenstellen()"
Dim wks As Worksheet
Dim sheet_name As String
For Each wks In Worksheets
sheet_name = wks.Name
Select Case sheet_name
Case "Test"
Call Farbe_suchen(wks)
End Select
Next
End Sub
Sub Farbe_suchen(wks)
Debug.Print "Farbe_suchen(wks)", wks.Name
Dim Farb_Index, zeile As Integer
Dim zeileStr As String
zeile = 17
zeileStr = CStr(zeile)
Farb_Index = wks.Range("R" & zeileStr).Interior.ColorIndex '