Gruppe
Datei
Problem
Wie kann ich Daten aus einer geschlossenen Arbeitsmappe importieren, ohne sie zu öffnen. Pfad, Dateiname und Importbereich sollen variabel sein.
StandardModule: basMain
Sub Eintragen()
Dim sTxt As String
Dim rng As Range, rngCell As Range
sTxt = "'" & Range("B1").Value
sTxt = sTxt & "[" & Range("B2").Value & "]"
sTxt = sTxt & Range("B3").Value & "'!"
sTxt = sTxt & Range("B4").Value
Set rng = Worksheets("Ziel").Range(Range("B4").Value)
rng.Cells(1).Formula = "=if(" & sTxt & "="""",""""," & sTxt & ")"
rng.Cells(1).Copy rng
rng.Value = rng.Value
rng.Columns.AutoFit
rng.Parent.Select
End Sub