Moin,
Beschäftige mich bereits seit Stunden mit diesem Problem, aber keine Lösung gefunden. Ich habe in 4 Zellen jeweils eine Zahl stehen, die für die Zeilen und Spaltennummern zweier Zellen einer Range (B11:L1810) stehen. Siehe
Jetzt möchte ich in B11 eine Verknüpfung zu einer Zelle in einem externen Excel-File herstellen (C:\Dokumente\[file.xlsm]sheet1'!'A1) und diese Zelle dann per AutoFill auf den Bereich B11:L11 erweitern. Das ganze habe ich per Makro aufgezeichnet und versuche nun den Bereich für die AutoFill Funktion dynamisch per "Cells()" anzusteuern, aber es klappt einfach nicht.
Nachfolgend mein Makro. Die Fett-formatierte Zeile funktioniert nicht.
' Definition der Variablen
'
Zeile_Start = Range("E4")
Zeile_Ende = Range("E5")
Spalte_Start = Range("C4")
Spalte_Ende = Range("C5")
'
' Ansteuern des Bereiches mit den vorher definierten Variablen.
'
ActiveSheet.Cells(Zeile_Start, Spalte_Start).Select
ActiveCell.FormulaR1C1 = _
"='C:\Dokumente\[file.xlsm]sheet1'!A1"
Cells(Zeile_Start, Spalte_Start).Select
Selection.AutoFill Destination:=Range(Cells(Zeile_Start, Spalte_Start), Cells(Zeile_Start, Spalte_Ende)), Type:=xlFillValues
Range("B11:L11").Select
Selection.AutoFill Destination:=Range("B11:L1810"), Type:=xlFillValues
Calculate
Range("B11:L1810").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Folgendes habe ich auch probiert, um "select" zu umgehen:
Range("B11").AutoFill Destination:=Range(Cells(Zeile_Start, Spalte_Start), Cells(Zeile_Start, Spalte_Ende))
Hier kann ich aber B11 nicht durch Cells ersetzen, warum auch immer...
Wie man am weiteren Code sehen kann möchte ich eigentlich den Bereich B11:L1810 per Autofill ausfüllen. Vielleicht hat auch jemand eine Idee wie dies effizienter als mit diesem "2-Schritt-Prozedere" klappen könnte?