Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kommentar einfügen

Kommentar einfügen
29.04.2003 22:41:24
Semih
Hallo Leute,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kommentar einfügen
30.04.2003 07:46:46
Jürgen K.

Hi Semih,

Ich habe in einem Makro folgenden Code (nur ein Teil davon) um einen Kommentar über eine TextBox einzugeben. Damit müsstest Du eigentlich etwas anfangen können...


Dim Kommentar As String
Kommentar = TextBox1.Value

If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Kommentar
Unload UserForm1
Exit Sub
End If

ActiveCell.Comment.Delete
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Kommentar
Unload UserForm1

End Sub


Gruß, Jürgen

Anzeige
Re: Kommentar einfügen
30.04.2003 22:38:49
Semih

Hallo Jürgen,

leider bin ich nicht so recht gut in VBA und deswegen weiß ich nicht genau wie ich das einsetzen soll.
Danke dir aber trotzdem!

Gruß Semih

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige