Konsolidierung via VBA: Daten verknüpfen
09.10.2015 10:31:32
Heiko
ich nutze zur Zusammenfassen meherer Datenblätter folgendes Macro.
Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Konsolidierung"
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A1:" & strLC)
Bereich.Copy Destination:=Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub
Somit werden alle Daten ins Zielblatt kopiert.
Ich möchte aber, daß die Daten im Zielblatt (Konsolidierung) als Verküpfung eingefügt werden.
Link:=true funktioniert hierbei aber nicht
Wer kann mir helfen?
Danke für Eure Hilfe
Anzeige