Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte automatisch in Kommentare setzen

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige