Verknüftungsnamen in Text umwandeln
10.12.2006 15:25:40
Jürgen
wie kann ich den Verweis einer Zelle auf ein anderes Blatt in einen Kommentartext umwandeln?
die Frage ist etwas schwer zu beschreiben, deshalb hier ein Beispiel:
ich kopiere Spalte R aus Tabelle1 in Spalte A in Tabelle2 und wähle "Verknüpfung einfügen" als Kopiermethode.
jetzt steht in Zelle A1 von Tabelle2 immer das zu lesen,
was ich in Zelle A1 in Spalte R in Tabelle2 hineinschreibe.
doppelklicke ich auf Zelle A1 von Tabelle2 steht dort zu lesen:
='Tabelle1'!A1
ich möchte nun Zelle A2 von Tabelle2 den dort vorhandenen Verweis löschen und einen Funktionsaufruf URSPRUNGSSPALTE einfügen, den Text "Tabelle1 A" dort sichtbar anzeigt.
Die Funktion soll dazu auf den Inhalt der Zelle über der Aufrufzelle zurück greifen.
ich hatte dazu einmal die nachfolgende VBA Routine gefunden, die aber nicht funktioniert.
Public
Sub URSPRUNGSSPALTE()
'wenn die OriginalVerknüpfung in A1 steht
'und man die Zelle darunter anklickt:
Text = ActiveCell.Offset(-1, 0).Formula
ActiveCell.Formula = "'" & Text
End Sub
(Text müsste aber noch leicht umformattiert werden.)
wie muss sie richtig lauten?
Gruss
Jürgen