Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Aus Textbox Kommentar überschreiben.

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."