Office: (Office 2010) VBA Checkbox ja/nein statt wahr/falsch

Hallo zusammen,

langsam bin ich am verzweifeln.. Ich habe mir ein Formular gebaut, das seinen Inhalt an eine Excel Tabelle übergibt.

Nur bei Checkboxen wird logischerweise immer WAHR / FALSCH ausgegeben.
Wie kann ich das bitte in JA / NEIN ändern bzw. in anderen Text?

Vielen Dank!

Gruß Martin

:)

 

Hallo Martien,

wie gut, dass wir alle deine Datei sehen. Da können wir sehr gezielt helfen!
Und wahrscheinlich geht es …

 

Sorry *Smilie ich dachte das wäre immer gleich...bin da erst seit ein paar Tagen dran..


Bitte nicht lachen..es funktioniert an sich recht gut *Smilie


Code:

 

Du musst den Zustand der Checkbox abfragen

PHP:

         Private Sub CheckBox1_Click()
dim Ergebnis as string
if checkbox1.value = false then Ergebnis = "nein"
if checkbox1.value = true then Ergebnis = "ja"
End Sub


 

Moin,

es funktioniert zwar "recht gut" aber eben nicht so, wie du willst. Wenn du wirklich meinst, dass dort in der Tabelle kein logischer (auswertbarer) Wert steht sondern Text, dann geht das so etwas eleganter und auch effektiver:
Code:

Nicht probiert, sollte aber klappen.

 

Morgen,

ich verstehe das irgendwie nicht *frown.gif*

Wo genau soll ich das nun einpflegen?

Ich hätte eig nur gerne, dass dort in einer Zeile bei klick auf E-Mail auch E-Mail steht oder bei klick auf Post dann die Post.

Es funktioniert getrennt aber nicht wenn ich beide haben will..

Danke schön!

 

Moin
Das macht doch IIf(Pruefung,wenn true(wahr) dann,wenn false(falsch) dann)


ActiveSheet.Cells(intErsteLeereZeile, 23).Value = Me.optemail.Value
ActiveSheet.Cells(intErsteLeereZeile, 23).Value = Me.optpost.Value

ActiveSheet.Cells(intErsteLeereZeile, 23).Value = IIf(Me.optemail.Value,"E-Mail","")
ActiveSheet.Cells(intErsteLeereZeile, 23).Value =IIf(Me.optpost.Value,"Post","")
gruss hary

 

Hi,

so wäre es eig auch für mich logisch..

Es funktioniert aber nur bei Post.. beim klick auf E-Mail bleibt die Spalte leer?

Danke

Gruß Martin

 

Hallo Martin,

Falsch, die bleibt nicht leer.
Geh den Code mal Schritt für Schritt durch.
Dann wirst du sehen, dass Bei eMail zuerst "Wahr", dann "Falsch", dann "Email" und dann nichts eingetragen wird.

Du solltest hier eine Fallunterscheidung machen:

PHP:

         dim intPostMail as integer
[...]
intPostMail = IIf(Me.optemail.Value,1,0)
intPostMail = intpostmail + IIf(Me.optpost.Value,2,0)
select case intPostMail
case 0
ActiveSheet.Cells(intErsteLeereZeile, 23).Value = "keins"
case 1
ActiveSheet.Cells(intErsteLeereZeile, 23).Value = "Post"
case 2
ActiveSheet.Cells(intErsteLeereZeile, 23).Value = "eMail"
case 3
ActiveSheet.Cells(intErsteLeereZeile, 23).Value = "Post und eMail"
case else
msgbox "Spaßvogel ^_^"
end select


 

Moin Martin
Aha, hab gepennt. Versuchs mal so:
Code:

statt:
Code:

gruss hary

 

Das wars!

Vielen Dank an den Hary und alle anderen!