Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verknüpfen statt kopieren

Verknüpfen statt kopieren
15.04.2005 15:07:25
Janine
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfen statt kopieren
15.04.2005 15:36:13
bst
Hallo Janine,
Tabelle2.Cells(j, 1).Formula = "=Tabelle1!" & Cells(1, i).Address(False, False)
HTH, Bernd
AW: Verknüpfen statt kopieren
15.04.2005 15:41:53
Janine
Hallo Bernd,
tausend Dank! Das war genau das, was ich gesucht habe! :)
AW: Verknüpfen statt kopieren
15.04.2005 16:11:15
Janine
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!
AW: Verknüpfen statt kopieren
15.04.2005 16:21:43
bst
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
Anzeige
AW: Verknüpfen statt kopieren
15.04.2005 16:32:22
Janine
:)
Vielen Dank!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige