Office: If Schleife mit mehreren Checkboxen

stephan89hansen · 26. November 2011

Hallo zusammen, ich habe folgendes Problem:
So weit bin ich schon, wenn ich eine Checkbox aktiviere schreibt er den Wert in eine Textbox.

Code:

If CheckBox1.Value = True Then
GrenzenderMaschine.bestVwdBox.Text = CheckBox1.Caption
End If

If CheckBox2.Value = True Then
GrenzenderMaschine.bestVwdBox.Text = CheckBox2.Caption
End If

If CheckBox3.Value = True Then
GrenzenderMaschine.bestVwdBox.Text = CheckBox3.Caption
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte jetzt ber folgendes auch noch: wenn ich zum Beispiel checkbox 1 und checkbox 2 aktiviere, dann sollen auh beide Werte in die gleiche Textbox gespeichert werden. Momentan übernimmt er immer nur eine Checkbox, er soll aber beide.
Also vom Prinzip her so, funktioniert aber nicht:

Code:

If CheckBox1.Value & CheckBox2.Value = True Then
GrenzenderMaschine.bestVwdBox.Text = CheckBox1.Caption & Checkbox2.Caption
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe ihr könnt mir helfen

:)

EarlFred · 27. November 2011

Hallo unbekannt,

Code:

If CheckBox1 and CheckBox2 Then
...
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beachte die Reihenfolge der Abfragen!

[Edit]
Vielleicht auch sowas:
Code:

Dim strAusgabe As String

If CheckBox1 Then
strAusgabe = strAusgabe & ", " & CheckBox1.Caption
End If
If CheckBox2 Then
strAusgabe = strAusgabe & ", " & CheckBox2.Caption
End If
If CheckBox3 Then
strAusgabe = strAusgabe & ", " & CheckBox3.Caption
End If

GrenzenderMaschine.bestVwdBox.Text = Replace(strAusgabe, ", ", vbNullString, , 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/Edit]

[Edit2]
oder auch sowas, wenn nicht alle Kombinationen zugelassen werden:
Code:

Select Case True
Case CheckBox1 And CheckBox2 And CheckBox3
GrenzenderMaschine.bestVwdBox.Text = "Alles"
Case CheckBox1 And CheckBox2
GrenzenderMaschine.bestVwdBox.Text = CheckBox1.Caption & " " & CheckBox2.Caption
Case CheckBox2 And CheckBox3
GrenzenderMaschine.bestVwdBox.Text = CheckBox2.Caption & " " & CheckBox3.Caption
Case CheckBox1 And CheckBox3
MsgBox "Diese Auswahl ist ungültig!", vbCritical
GrenzenderMaschine.bestVwdBox.Text = "Fehler"
Case CheckBox1
GrenzenderMaschine.bestVwdBox.Text = CheckBox1.Caption
Case CheckBox2
GrenzenderMaschine.bestVwdBox.Text = CheckBox2.Caption
Case CheckBox3
GrenzenderMaschine.bestVwdBox.Text = CheckBox3.Caption
End Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auch hier: Reihenfolge der Abfragen beachten!
[/Edit2]

Grüße
EarlFred

Beverly · 28. November 2011

Hi Stephan,

vielelich könntest du es ja so machen:
Code:

If CheckBox1 Then TextBox1 = TextBox1 & " " & CheckBox1.Caption
If CheckBox2 Then TextBox1 = TextBox1 & " " & CheckBox2.Caption
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stephan89hansen · 28. November 2011

Danke für die Hilfe, es war ein dummer Fehler!
Ich musste einfach nur anstatt "&" ein "AND" schreiben. Hätte ich auch selber drauf kommen kommen!

Office: If Schleife mit mehreren Checkboxen

If Schleife mit mehreren Checkboxen

If Schleife mit mehreren Checkboxen

If Schleife mit mehreren Checkboxen

If Schleife mit mehreren Checkboxen - Similar Threads - Schleife mehreren Checkboxen

mehrere Do While Schleifen nacheinander

Eine Do-Schleife mit mehreren Variablen durchlaufen lassen

VBA: Mehrere If-Schleifen, entweder oder

Alle Dateien in einem Ordner öffnen und bearbeiten - Schleife funktioniert nicht mehr

Mehrere Bildobjekte per Schleife mit Bild versehen.

Mehrere XML-Dateien hintereinander in Excel einlesen

VBA: For Each Schleife mit mehreren Bedingungen