Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verweise auf Zellen in geschlossener Arbeitsmappe erstellen

Gruppe

Verknüpfung

Problem

Wie kann ich Daten aus einer geschlossenen Arbeitsmappe importieren, ohne sie zu öffnen. Pfad, Dateiname und Importbereich sollen variabel sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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