Hallo zusammen!
Ich habe mir folgenden Code geschrieben
Sub p()
Dim Dateiauswahl As Variant
Dim Quelldatei As String
Dim Werk As String
Dim Jahrzelle As Range
Dim Jahr As String
Dim ZelleeinfgA As String
Dim ZelleeinfgB As String
'rem Datei öffnen'
Werk = ActiveSheet.ComboBox1.Value
Dateiauswahl = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls), *.xls")
If Dateiauswahl = False Then
Application.ScreenUpdating = True
End
End If
Workbooks.Open Dateiauswahl
On Error GoTo 0
Quelldatei = ActiveWorkbook.Name
Jahr = ActiveWorkbook.Worksheets("Tabelle1").Range("B1").Value
'rem in Stammdatei wechseln'
DieseDatei = ThisWorkbook.Name
ThisWorkbook.Activate
'Hier kommt die Fehlermeldung : Anwendungsbezogener..... LZ-Fehler 1004'
ThisWorkbook.Sheets(Werk).Range("B1:X1").Select
With ThisWorkbook.Sheets(Werk).Range("B1:X1")
Set Jahrzelle = Selection.Find(What:=Jahr, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart)
End With
ZelleeinfgA = Jahrzelle.Offset(1, 0).Address
ZelleeinfgB = Jahrzelle.Offset(2, 2).Address
ActiveSheet.Range(Jahrzelle).Activate
ThisWorkbook.Sheets(Werk).Range("ZelleeinfgA:ZelleeinfgB").Value = _
ActiveWorkbook.Sheets("Tabelle1").Range("B2:D3").Value
Der Teil:
ThisWorkbook.Sheets(Werk).Range("B1:X1").Select
With ThisWorkbook.Sheets(Werk).Range("B1:X1")
Set Jahrzelle = Selection.Find(What:=Jahr, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart)
End With
funktioniert, wenn ich ihn ohne die Zeilen vorher laufen lasse.
Woran könnte das liegen.
Vielen Gruß
Martin