Kommentar einfügen

ich hab hier ein folgendes.
Untzwar möchte ich das was in TextBox1 eingegeben wir
als Kommentar wieder erscheint.

Das ist ein Teil meines Makros

If Cells(mzei - 2, etr) = 2 Or WeekDay(Cells(mzei, etr)) = 7 _
Or WeekDay(Cells(mzei, etr)) = 1 Then GoTo sprung ' wenn freier Tag dann Ausstieg

Cells(zeil + (Me.ComboBox3.ListIndex) * 37, etr).Select
Selection.Interior.ColorIndex = farbi
Cells(zeil + (Me.ComboBox3.ListIndex) * 37, etr) = TextBox1.Text
If Me.ComboBox2.ListIndex = 5 Then Cells(zeil + (Me.ComboBox3.ListIndex) * 37, etr) = ""
If Me.ComboBox2.ListIndex = 0 Then Cells(zeil + (Me.ComboBox3.ListIndex) * 37, etr) = "U"
sprung:
Next etr

Danke im Voraus

Semih