Neuerdings bekomme ich unterschiedliche Fehlermeldungen:
"Laufzeitfehler 57121: Anwendungs- und objektdefinierter Fehler" bzw. Laufzeitfehler 32809...
Das Ganze sieht so aus:
1
'
'Fügt Daten der Datei "Dateiname" in Datei Übersicht.xls ein
Dim dateiname As String
'Aufruf des Dateidialoges
dateiname = Application.GetOpenFilename
'wenn Abbrechen oder ESC gedückt wurde
If dateiname = "Falsch" Then
GoTo 2
Else
'MsgBox "Sie haben die Datei " & dateiname & " gewählt"
'enfügen einer Zeile
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
End If
Workbooks.Open Filename:=dateiname
Windows("00_uebersicht2.XLS").Activate
'aktives Fenster immer Windows (1)--> inaktives Fenster öffnen
Windows(2).Activate
Sheets("Tabelle1").Select
Range("C3:F3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("00_uebersicht2.XLS").Activate
ActiveSheet.Paste Link:=True
Windows(2).Activate
Range("C6:F6").Select
Application.CutCopyMode = False
Selection.Copy
Windows("00_uebersicht2.XLS").Activate
Range("B2").Select
ActiveSheet.Paste Link:=True"
.... usw.
Wer kann mir helfen, was hat sich geändert?