VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Verweise auf Zellen in geschlossener Arbeitsmappe erstellen

Gruppe

Datei

Bereich

Verknüpfung

Thema

Verweise auf Zellen in geschlossener Arbeitsmappe erstellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Verknüpfung