Dynamische Kommentare in Excel
gribi theurillat
anderen zu verknüpfen, die dann auf dem verknüpften Feld als Kommentar
erscheinen.
Wäre froh, wenn mir raschmöglichst jemand helfen könnte.
Besten Dank im Voraus.
Dr. Eckehard Pfeifer
Hallo, der Ansatz sollte ueber VBA nach dem Schema
Set sh = Sheets(1)
sh.Range("a1").AddComment "soso"
erfolgen. Statt "soso" sind dann die Informationen (automatisch?)
einzutragen.
Gruss
E. Pfeifer
gribi theurillat <www.td...@gribitheurillat.ch> schrieb in im
Newsbeitrag: 39E42F8A...@gribitheurillat.ch...
gribi theurillat
Jedoch müssen die Informationen automatisch von einer anderen Tabelle
übernommen werden. So, dass bei einer änderung der ersten Tabelle die Daten
auf der zweiten Tabelle dynamisch, automatisch aktualisiert werden.
BSP. Ich ändere Zeile5 auf der 1. Tabelle. Tabelle 2 Soll mir dann auf dem
Feld A17 die Daten der Tabelle 1, Zeile 5 automatisch, dynamisch übernehmen.
2. Frage: Wie muss ich dies im VBA Editor eintragen??
"Dr. Eckehard Pfeifer" schrieb:
Dr. Eckehard Pfeifer
Hallo, ich denke, dass die Herkunft z.B. in Zelle A1 steht (=[mappe]...).
Damit hast Du Kontrolle über Range("A1").Value. Der Textstring hat dann eine
konkrete Gestalt, die Du mit Left, Right, Mid usw. zerlegen kannst. Im
AddComment fügst Du das Überbleibsel ein.
Gruss
E. Pfeifer
gribi theurillat <www.td...@gribitheurillat.ch> schrieb in im
Newsbeitrag: 39E45199...@gribitheurillat.ch...
gribi theurillat
Zelle A5:H5, in die Tabelle 2 Feld A1 als kommentar beifügen kann. Ist dies
überhaupt möglich???
Sie müssen entschuldigen , aber komme mit Ihrer Beschreibung nicht ganz klar.
Bitte um diesen einen Befehl, den Rest kann ich mir selber reimen.
Bitte um rasche Antwort....
Besten Dank..
Dr. Eckehard Pfeifer
Dim sh2 As Worksheet
Dim rng As Range
Dim txt As String
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
For Each rng In sh1.Range("a1:h5")
txt = txt & rng.Value2 & ", "
Next
sh2.Range("a1").AddComment txt
das leist die Zellen aus und schreibt den Kommentar.
Aber das ist etwas anderes als urspruenglich gefordert, da Du erst die Zelle
verknuepfen wolltest. Jetzt wird nur der Kommentar gebildet.
--
Mit freundlichen Grüßen
Eckehard Pfeifer
(www.dr-e-pfeifer.de)
Ein Blick lohnt sich immer: www.vba-magazin.de)
"gribi theurillat" <www.td...@gribitheurillat.ch> schrieb im Newsbeitrag
news:39E47B31...@gribitheurillat.ch...
Frank Arendt-Theilen
Tabelle1!A1 ist mit Tabelle2!A1 verknüpft. In Tabelle1!A1 befindet
sich bereits ein Kommentar. Kopiere das folgende Ereignis-Makro in das
Modul der Tabelle2.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.DisplayCommentIndicator = xlCommentAndIndicator
Worksheets("Tabelle1").Select
ActiveSheet.Range("A1").Select
ActiveCell.Comment.Shape.Select
Selection.Text = Target.Value
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
Wird in Tabelle2!A1 eine Änderung im Wert oder der Formel vorgenommen,
überträgt das obige Makro den Wert in den Kommentar Tabelle1!A1.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Wed, 11 Oct 2000 11:14:50 +0200, schrieb gribi theurillat
<www.td...@gribitheurillat.ch> in microsoft.public.de.excel zu
"Dynamische Kommentare in Excel":
gribi theurillat
Besten Dank klappt wunderbar.
Aber wie kann ich jetzt das ganze noch aktualisieren? Wenn ich den text jetzt im
sheet 1 jetzt ändere, bleibt der dynamische text gleich, wird nicht
aktualisiert.
2. Wie beginne ich eine neue Befehlszeile?? Sorry bin noch voll der Anfänger.
"Dr. Eckehard Pfeifer" schrieb:
gribi theurillat
Kriege eine Fehlehrmeldung.
Was muss ich an diesem Befehl ändern
Hier den ganzen Befehl
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim rng As Range
Dim txt As String
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
For Each rng In sh1.Range("a6:h6")
txt = txt & rng.Value2 & " / "
Next
sh2.Range("a6").AddComment txt
Application.DisplayCommentIndicator = xlCommentAndIndicator
Worksheets("Vernetzung").Select
ActiveSheet.Range("A6").Select
ActiveCell.Comment.Shape.Select (Diese Zeile ist gelb
markiert!!!!!!!!!!!!!!)
Selection.Text = Target.Value
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
Kann jemand helfen???
Frank Arendt-Theilen schrieb:
> Hallo gribi theurillat,
> Tabelle1!A1 ist mit Tabelle2!A1 verknüpft. In Tabelle1!A1 befindet
> sich bereits ein Kommentar. Kopiere das folgende Ereignis-Makro in das
> Modul der Tabelle2.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Application.DisplayCommentIndicator = xlCommentAndIndicator
> Worksheets("Tabelle1").Select
> ActiveSheet.Range("A1").Select
> ActiveCell.Comment.Shape.Select
> Selection.Text = Target.Value
> Application.DisplayCommentIndicator = xlCommentIndicatorOnly
> End Sub
>
> Wird in Tabelle2!A1 eine Änderung im Wert oder der Formel vorgenommen,
> überträgt das obige Makro den Wert in den Kommentar Tabelle1!A1.
>
> MfG Frank
> _____________________________________________________
> Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
> E-Mail: Thei...@t-online.de
>
> Am Wed, 11 Oct 2000 11:14:50 +0200, schrieb gribi theurillat
> <www.td...@gribitheurillat.ch> in microsoft.public.de.excel zu
> "Dynamische Kommentare in Excel":
>
Frank Arendt-Theilen
eine Voraussetzung ist, das sich auf dem Tabellenblatt 'Vernetzung'
Zelle A6 bereits ein Kommentar befindet, sonst kann kein Text
zugewiesen werden! Welches Tabellenblatt hat den Namen 'Vernetzung',
Sheet(1) oder Sheet(2)?
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Thu, 12 Oct 2000 08:50:07 +0200, schrieb gribi theurillat
<www.td...@gribitheurillat.ch> in microsoft.public.de.excel zu "Re:
Dynamische Kommentare in Excel":
Dr. Eckehard Pfeifer
einmal, Du musst vorher delete einsetzen oder aber eine VErzweigung oder so
was.
Gruss
E. Pfeifer
gribi theurillat <www.td...@gribitheurillat.ch> schrieb in im
Newsbeitrag: 39E5563A...@gribitheurillat.ch...