Hallo,
ich habe ein Problem mit Zellenkommentaren. Ich versuche Folgendes
[code]Cells(1,1).Value = Cells(1,2).Comment.Text[/code]
Das klappt soweit. Der Wert der Zelle A1 ist der Kommentar von Zelle B1. Jetzt versuche ich folgendes:
[code]i = 5
Do
i = i + 1
If (ActiveWorkbook.Worksheets("Tabelle1").Cells(i, 2).Comment.Text <> "") Then
frmMain.ComboBox1.AddItem _
ActiveWorkbook.Worksheets("Tabelle1").Cells(i, 2).Comment.Text
End If
Loop Until i = 10[/code]
Ich möchte die Kommentare von bestimmten Zellen (die auch alle Kommentare haben!!!) in eine Combobox schreiben. Aber irgendwie bringt er mir bei der If-Abfrage einen Fehler...
Würde mich über Hinweise freuen :) Danke schön |