ich habe folgende Macro gefunden:
Sub comment2cell()
On Error Resume Next
For i = 1 To 1000
If ActiveSheet.Cells(i, 2).Comment.Text "" Then ' 2 = Spalte B
ActiveSheet.Cells(i, 26) = ActiveSheet.Cells(i, 2).Comment.Text ' 26 = Spalte Z
End If
Next
On Error GoTo 0
End Sub
Nun würde ich die Makro gerne so erweitern, dass ich mit einer Menüabfrage die benötigte Spalte und Zeile auswählen kann.
Danke im voraus für die Unterstützung.
Grüße, Thomas