Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Werte automatisch in Kommentare setzen

Werte automatisch in Kommentare setzen
21.06.2008 13:45:21
Alex
An Alle,
folgendes Problem;
in der Zelle B1 steht ein Wert
und dieser Wert soll im Kommentar der Zelle A1
automatisch erscheinen.
Wer kann mir helfen?
Danke
Alex

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

Betreff
Datum
Anwender
Anzeige
AW: Werte automatisch in Kommentare setzen
21.06.2008 13:51:00
Josef
Hallo Alex,
wenn B1 von Hand geändert wird, dann diesen Code in das Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
    With Range("A1")
        .ClearComments
        If Target <> "" Then .AddComment Target.Text
        .Comment.Shape.TextFrame.AutoSize = True
    End With
End If
End Sub


Gruß Sepp



Anzeige
Korrektur weil Fehler im Code
21.06.2008 13:52:24
Josef
Hallo nochmal,
nimm diesen Code.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
    With Range("A1")
        .ClearComments
        If Target <> "" Then
            .AddComment Target.Text
            .Comment.Shape.TextFrame.AutoSize = True
        End If
    End With
End If
End Sub


Gruß Sepp



Anzeige
AW: Korrektur weil Fehler im Code
21.06.2008 14:09:00
Alex
Hallo Sepp,
vielen Dank hat sehr gut geklappt!
Hast Du noch eine Idee, wie man auch mehrere Werte
automatisch in die Kommentare bekommen kann?
Z.B. alle Werte von B1 bis B200 sollen in A1 bis A200
im Komentar angezeigt werden?
Danke Alex

AW: Werte automatisch in Kommentare setzen
21.06.2008 14:08:58
Daniel
Hi
das geht nur mit VBA:

Sub Makro1()
On Error Resume Next '--- falls schon ein Kommentar besteht
Range("A1").AddComment
On Error GoTo 0
Range("A1").Comment.Text Text:=Range("B1").Text
End Sub


und hier ein Beispiel, in dem alle Werte, die du von Hand in Spalte B einträgst, als Kommentar nach Spalte A übertragen werden:
https://www.herber.de/bbs/user/53235.xls
Gruß, Daniel

Anzeige
AW: Werte automatisch in Kommentare setzen
21.06.2008 15:18:00
Alex
Vielen Dank Daniel hat super geklappt.
Gruß
alex

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige