... "Laufzeitfehler 1004.Die Find-Eigenschaft des Range-Objektes kann nicht zugeordnet werden."
Diese Fehlermeldung erzeugt Excel beim Kompilieren von aus meiner Sicht korrektem Code:
Dim rngData, rngFind As Range
Dim shtData2 As Worksheet

Set shtData2 = ThisWorkbook.Worksheets("Journal")
Set rngData = shtData2.Range("a1")

Set rngFind = rngData.EntireRow.Find("Monat")

iRowData = rngFind.EntireColumn.Find(What:=iMonth, LookIn:=xlValues, lookAt:= xlWhole, Searchorder:=xlByColumns, searchdirection:=xlNext).Row
' oberste Zelle mit dem gesuchten Monat finden
Wer eine Lösung(und Erklärung) für dieses ungewöhnliche Problem hat, möge sie
nicht für sich behalten...
MH