Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare erstellen per Makro | Herbers Excel-Forum"

Forumthread: Kommentare erstellen per Makro

Kommentare erstellen per Makro
29.07.2016 12:51:56
Christian

Hallo zusammen,
ich habe mal wieder eine Frage, bei der ich nicht weiterkomme.
Ich habe eine Liste mit Nummern in Spalte A und einem Text je Nummer in Spalte B.
Jetzt möchte ich aus dieser "Basis Tabelle" mit einem Makro in einem weiteren Tabellenblatt wo nur die Nummern in Spalte A stehen (hier jetzt aber unsortiert) den jeweiligen Text aus der "Basis Tabelle" Spalte B als Kommentar zugeordnet haben.
Die Größe des Komentarfeldes würde ich gerne ebenfalls in dem Makro vordefinieren
anbei habe ich eine Musterdatei gehängt.
Blatt1 = Muster -- so sieht die "Basis Tabelle" aus
Blatt2 = Ergebnis -- so stelle ich mir das Ergebnis vor
Ich hoffe es kann mir jemand helfen :)
Vielen Dank schonmal und ein schönes Wochenende.
https://www.herber.de/bbs/user/107306.xls

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare erstellen per Makro
29.07.2016 14:14:40
Christian
Hallo Markus Boss,
Danke für die 2 Varianten. Ich werde erst einmal Variante 1 nehmen, aber die Möglichkeiten der Variante 2 sind sehr interessant!!!
Anzeige
AW: Kommentare erstellen per Makro
29.07.2016 13:27:43
UweD
Hallo
so....
Sub Kommentare()
    Dim TB1, TB2, LR As Double, i As Double, TText As String
    Set TB1 = Sheets("Muster")
    Set TB2 = Sheets("Ergebnis")
    LR = TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte 
    For i = 2 To LR
        With WorksheetFunction
            TText = .IfError(.VLookup(TB2.Cells(i, 1), TB1.Columns("A:B"), 2, 0), "")
            If TText <> "" Then
                With TB2.Cells(i, 1)
                    .ClearComments
                    .AddComment
                    .Comment.Text Text:=TText
                End With
            End If
        End With
    Next
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Gruß UweD
Anzeige
AW: Kommentare erstellen per Makro
29.07.2016 13:40:08
UweD
Hier noch mit der Größenanpassung.
Sub Kommentare()
    Dim TB1, TB2, LR As Double, i As Double, TText As String, Ko
    Set TB1 = Sheets("Muster")
    Set TB2 = Sheets("Ergebnis")
    LR = TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte 
    For i = 2 To LR
        With WorksheetFunction
            TText = .IfError(.VLookup(TB2.Cells(i, 1), TB1.Columns("A:B"), 2, 0), "")
            If TText <> "" Then
                With TB2.Cells(i, 1)
                    .ClearComments
                    Set Ko = .AddComment
                    Ko.Visible = False
                    Ko.Text Text:=TText
                    Ko.Shape.Width = 100
                    Ko.Shape.Height = 50
                    
                End With
            End If
        End With
    Next
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

LG UweD
Anzeige
AW: Kommentare erstellen per Makro
29.07.2016 14:13:40
Christian
Hallo UweD,
ich danke dir. Mach genau was es soll!!!
AW: gern geschehen owt
29.07.2016 14:20:49
UweD

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige