Hallo
Ich habe über die Find Methode die Kalenderwoche gesucht .
Von dieser Zelle aus sollen Werte eingetragen werden.
Wenn ich das über den Mappenname anspreche klappt es nicht.
Const filename = "TestMappe.xls"
Dim klw As Range
If Not TextBox6.Text = "" Then klw.Offset(4, -45).Value = CDbl(TextBox4) ' klappt
Workbooks(filename).Worksheets("Tabelle1")klw.Offset(4, -45).Value = CDbl(TextBox4) 'fehler
Gruß
Frank