Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Aus Textbox Kommentar überschreiben.

• Aus Textbox Kommentar überschreiben. von Fritz Sanne vom 11.09.2004 12:35:21
• Korrektur - von Fritz Sanne am 11.09.2004 12:38:23
  • AW: Korrektur - von Björn B. am 11.09.2004 14:11:13
    • Korrektur der Korrektur - von Björn B. am 11.09.2004 14:19:48
    • AW: Nee, leider nicht, aber... - von Fritz Sanne am 11.09.2004 14:21:44
      • so geht's, falls das jemanden interessiert..:-)) - von Fritz Sanne am 11.09.2004 14:36:09

Betrifft: Aus Textbox Kommentar überschreiben. von: Fritz Sanne
Geschrieben am: 11.09.2004 12:35:21

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


Betrifft: Korrektur von: Fritz Sanne
Geschrieben am: 11.09.2004 12:38:23

Korrektur

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

Fritz




Betrifft: AW: Korrektur von: Björn B.
Geschrieben am: 11.09.2004 14:11:13

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




Betrifft: Korrektur der Korrektur von: Björn B.
Geschrieben am: 11.09.2004 14:19:48

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




Betrifft: AW: Nee, leider nicht, aber... von: Fritz Sanne
Geschrieben am: 11.09.2004 14:21:44

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




Betrifft: so geht's, falls das jemanden interessiert..:-)) von: Fritz Sanne
Geschrieben am: 11.09.2004 14:36:09

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

Beiträge aus den Excel-Beispielen zum Thema "Aus Textbox Kommentar überschreiben."