Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Verknüpfen statt kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren