Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige