Kommentare erstellen per Makro | Herbers Excel-Forum"

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Kommentare erstellen per Makro | Herbers Excel-Forum"

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread