Verknüpfen statt kopieren

Bild

Betrifft: Verknüpfen statt kopieren
von: Janine
Geschrieben am: 15.04.2005 15:07:25
Hallo Profis,
ich habe folgenden einfachen Makro um eine Tabelle zu "transponieren".
Ich hätte aber gerne die in Tabelle2 geschriebenen Daten mit der Ursprungstabelle verknüpft statt die Daten nur zu kopieren.
Weiß jemand Rat?
Vielen Dank!


Sub transponieren()
j = 1
For i = 1 To 9
    
    Tabelle2.Cells(j, 1) = Tabelle1.Cells(1, i)
    
    i = i + 3
    j = j + 1
Next i
End Sub

Bild

Betrifft: AW: Verknüpfen statt kopieren
von: bst
Geschrieben am: 15.04.2005 15:36:13
Hallo Janine,
Tabelle2.Cells(j, 1).Formula = "=Tabelle1!" & Cells(1, i).Address(False, False)
HTH, Bernd
Bild

Betrifft: AW: Verknüpfen statt kopieren
von: Janine
Geschrieben am: 15.04.2005 15:41:53
Hallo Bernd,
tausend Dank! Das war genau das, was ich gesucht habe! :)
Bild

Betrifft: AW: Verknüpfen statt kopieren
von: Janine
Geschrieben am: 15.04.2005 16:11:15
Hallo Bernd,
ich habe doch noch eine dumme Anfängerfrage:
Wie sieht das denn aus, wenn ich "tabelle2" bzw. "tabelle1" durch den Blattnamen wie z.B. "Auswertung a" ersetzen will?
Danke!
Bild

Betrifft: AW: Verknüpfen statt kopieren
von: bst
Geschrieben am: 15.04.2005 16:21:43
Hi Janine,
ersetze das Tabelle1 im rechten String einfach durch den neuen Tabellennamen.
Falls dort - wie in Deinem Beispiel - aber Leerzeichen (oder ein paar andere
Sonderzeichen) drinne sind, brauchst Du noch einfache Hochkommas drumrum.
Also z.B. sowas:
Tabelle2.Cells(j, 1).Formula = "='Auswertung a'!" & Cells(1, i).Address(False, False)
Du kannst übrigens auch den Namen via VBA bestimmen.
Und, da Excel die Hochkommas anscheinend wegnimmt, falls sie nicht gebraucht werden,
diese einfach immer setzen. Gibt dann sowas:
Tabelle2.Cells(j, 1).Formula = "='" & Worksheets(1).Name & "'!" & Cells(1, i).Address(False, False)
cu, Bernd
Bild

Betrifft: AW: Verknüpfen statt kopieren
von: Janine
Geschrieben am: 15.04.2005 16:32:22
:)
Vielen Dank!!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Verknüpfen statt kopieren"