Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Textbox Kommentar überschreiben.

Forumthread: Aus Textbox Kommentar überschreiben.

Aus Textbox Kommentar überschreiben.
11.09.2004 12:35:21
Fritz Sanne
Hallo, liebe
In einem Textfeld auf einem UF möchte ich den Inhalt eines Kommentars anzeigen. Das gelingt mir.
Nun will ich ihn aus der Textbox heraus überschreiben. Da bekomme ich eine Fehlermeldung.
Was, bitte, fehlt hier?

Private Sub TextBox2_Change()
Dim r As Integer
r = ActiveCell.RowCells(r, 1).Comment.Text = UserForm1.TextBox2
End Sub

Grüße, Fritz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Korrektur
11.09.2004 12:38:23
Fritz Sanne
Korrektur

Private Sub TextBox2_Change()
Dim r As Integer
r = ActiveCell.Row
Cells(r, 1).Comment.Text = UserForm1.TextBox2
End Sub

Fritz
AW: Korrektur
11.09.2004 14:11:13
Björn B.
Hallo Fritz,
Textboxen und Userforms sind zwar nicht gerade mein Gebiet, aber gehts vielleicht mit

Private Sub TextBox2_Change()
Dim r As Integer
r = ActiveCell.Row
Cells(r, 1).Comment.Text = UserForm1.TextBox2.value
End Sub

Gruß
Björn
Anzeige
Korrektur der Korrektur
11.09.2004 14:19:48
Björn B.
Hallo Fritz,
besser ist:

Private Sub TextBox2_Change()
Dim r As Integer
r = ActiveCell.Row
Cells(r, 1).Comment.Text UserForm1.TextBox2.value
End Sub

Gruß
Björn
AW: Nee, leider nicht, aber...
11.09.2004 14:21:44
Fritz Sanne
es war dann doch mehr in der Recherche, als ich zunächst gefunden hatte. Jetzt scheine ich mit viel Fummelei auf dem rechten Wegen zu sein.
Aber trotzdem, Danke
Fritz
Anzeige
so geht's, falls das jemanden interessiert..:-))
11.09.2004 14:36:09
Fritz Sanne 

Private Sub TextBox2_AfterUpdate()
Dim r As Integer
Dim com As String
r = ActiveCell.Row
com = UserForm1.TextBox2.Value
With Cells(r, 1)
If .Comment Is Nothing Then
.AddComment
.Comment.visble = False
.Comment.Text Text:=com
Exit Sub
End If
.Comment.Delete
.AddComment
.Comment.Text Text:=com
End With
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige