Supportnet / Forum / Tabellenkalkulation

Hallo :-) ich möchte in einer Excel-Tabelle in allen Zeilen der Spalte 1 einen Kommentar mit dem Inhalt der jeweiligen Zeile der Spalte 2 einfügen. Für eine Zelle habe ich das schon mit Hilfe eines alten Threads hier gefunden: Dim Kommentar$ Cells(1, 1).Select Kommentar = Cells(1, 2).text Cells(1, 1).AddComment.text Kommentar Das funktioniert, aber nun muß ich das Ganze mit einer Schleife (damit kenn ich mich gar nicht aus) auf alle Zeilen (unbekannte Anzahl) übertragen. Wenn´s einen ganz anderen Ansatz dafür gibt, ist mir natürlich auch recht. Dankeschön schon mal Ciao, Andreas

hi,

Option Explicit
Sub Kommentar()
Dim loletzte As Long
Dim zaehler As Long
loletzte = Range("B65536").End(xlUp).Row ´letzte beschriebene zeile in spalte b
For zaehler = 1 To loletzte ´schleife von der ersten zeile bis zur letzten
If Cells(zaehler, 1).Comment Is Nothing Then ´fehler abfangen wenn bereits ein kommentar vorhanden
Cells(zaehler, 1).AddComment Cells(zaehler, 2).Text
Else
Cells(zaehler, 1).Comment.Text Cells(zaehler, 2).Text
End If
Next
End Sub

cu Micha

Dankeschön, Micha
hat mir weitergeholfen und ´s funktioniert :-)
LG
Andreas

• vba vergleich des zelleninhalts
• Wie kann ich in eine Zelle die ersten beiden Ziffern einer anderen Zelle übernehmen ?
• Zellen
• VBA-Excel-Makro, um Teile des Zelleninhaltes auszulesen
• Anwendung von R1C1 in VBA