Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-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

Textbausteine in Textbox sammeln

Betrifft: Textbausteine in Textbox sammeln von: Thomas
Geschrieben am: 02.09.2014 17:20:45

Liebe Forumsmitglieder!
Ich benötige bitte zu folgendem Problem Eure Hilfe.
Ich habe eine TextBox mit dem Namen "Notiz.Text" und 5 Chechboxen.
Immer wenn ich eine Checkbox anklicke, so soll ein Text in Notiz.Text angegeben werden. Das funktioniert auch. Das Problem besteht darin, dass wenn ich z. b. die
zweite Checkbox anklicke, der Inhalt von Checkbox1 aus Notiz.Text überschrieben wird.
Was ich möchte,ist, dass, wenn ich Checkbox1 klicke und Checkbox2 und Checkbox3 usw.
die Texte untereinander in Notiz.Text geschrieben werden, ohne dass die vorherigen gelöscht werden!
Wer kann mir hier helfen?

  

Betrifft: AW: Textbausteine in Textbox sammeln von: Matthias L
Geschrieben am: 02.09.2014 17:50:34

Hallo

Ungetestet

Setze die Eigenschaft MultiLine der TB(Notiz) auf True
Speichere den Inhalt von Notiz.Text in einer String-Variable
also z.B. so:
MyVar=Notiz.Text & Vblf & (Dein Checkboxinhalt)'was immer Du auch damit meinst
und dann schreibst Du es in Notiz.Text zurück
Notiz.Text=MyVar

Gruß Matthias


  

Betrifft: AW: Textbausteine in Textbox sammeln von: Thomas
Geschrieben am: 02.09.2014 18:29:33

Hallo Martin!
Meinst du so:

Private Sub Checkbox_Click()

Dim myVar As String
myVar = "bla bla bla"

If CheckBox1= True Then
Mitteilung.Text = myVar & vbLf
End If

End Sub

Private Sub CheckBox2_Click()

Dim myVar1 As String
myVar1 = "ha ha ha"

If Checkbox2= True Then
Mitteilung.Text = myVar1 & vbLf
End If

End Sub



  

Betrifft: AW: Textbausteine in Textbox sammeln von: Thomas
Geschrieben am: 02.09.2014 19:01:34

Hallo Matthias!
Ich hab´s etwas abgeändert.
Es funktioniert.
Danke für deinen Hinweis!!!


  

Betrifft: AW: Textbausteine in Textbox sammeln von: Thomas
Geschrieben am: 02.09.2014 18:35:09

Hallo Martin!
Meinst du so:

Private Sub Checkbox_Click()

Dim myVar As String
myVar = "bla bla bla"

If CheckBox1= True Then
Mitteilung.Text = myVar & vbLf
End If

End Sub

Private Sub CheckBox2_Click()

Dim myVar1 As String
myVar1 = "ha ha ha"

If Checkbox2= True Then
Mitteilung.Text = myVar1 & vbLf
End If

End Sub



  

Betrifft: Ich bin aber Matthias ... von: Matthias L
Geschrieben am: 02.09.2014 18:48:46

Hallo

Meinst Du mich (Matthias) oder doch eher einen Martin ?

Das war noch nicht ganz, so wie ich es meinte:

Option Explicit
Private Sub Checkbox1_Click()
Dim MyStrG$
MyStrG = "Montag"
If CheckBox1 = True Then
   Mitteilung.Text = Mitteilung.Text & vbLf & MyStrG
End If
End Sub

Private Sub CheckBox2_Click()
Dim MyStrG$
MyStrG = "Dienstag"
If CheckBox2 = True Then
   Mitteilung.Text = Mitteilung.Text & vbLf & MyStrG
End If
End Sub

Private Sub CheckBox3_Click()
Dim MyStrG$
MyStrG = "Mittwoch"
If CheckBox3 = True Then
   Mitteilung.Text = Mitteilung.Text & vbLf & MyStrG
End If
End Sub
Nur was soll passieren, wenn Du eine Checkbox abwählst und dann wieder anwählst?
Eigentlich kamen da von Dir zu wenige Informationen rüber.
Aber evtl. reicht Dir ja das Beispiel.

https://www.herber.de/bbs/user/92446.xlsm

Gruß Matthias


  

Betrifft: AW: Ich bin aber Matthias ... von: Thomas
Geschrieben am: 02.09.2014 19:35:07

Hallo Matthias!
Ich habe mich verschrieben. Entschuldigung!
Vielen Dank für deine Bemühungen. Ich komme schon gut zurecht!
Vielen Dank
Thomas


  

Betrifft: AW: Ich bin aber Matthias ... von: Thomas
Geschrieben am: 02.09.2014 19:53:29

Hallo Matthias!
Ich habe mich verschrieben. Entschuldigung!
Vielen Dank für deine Bemühungen. Ich komme schon gut zurecht!
Vielen Dank
Thomas


 

Beiträge aus den Excel-Beispielen zum Thema "Textbausteine in Textbox sammeln"