Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ifabfrage

ifabfrage
08.01.2008 21:39:00
holger
hallo ihr lieben,
kann mirjemandhelfen folgenden code zu vereinfachen?
Lieben Dank
holger
If CheckBox1 = True Then
WUND.Label73 = "Nekrose ist vorhanden"
WUND.CheckBox1 = True
End If
If CheckBox1 = False Then
WUND.Label73 = ""
WUND.CheckBox1 = False
End If
If CheckBox2 = True Then
WUND.Label73 = "Keine Nekrose vorhanden"
WUND.CheckBox2 = True
End If
If CheckBox2 = False Then
WUND.Label72 = ""
WUND.CheckBox2 = False
End If

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ifabfrage
08.01.2008 21:55:52
Peter
Hallo Holger,
den jeweils zweiten If könntest du sparen und als Else verwenden
If CheckBox1 = True Then
WUND.Label73 = "Nekrose ist vorhanden"
WUND.CheckBox1 = True
Else
WUND.Label73 = ""
WUND.CheckBox1 = False
End If
If CheckBox2 = True Then
WUND.Label73 = "Keine Nekrose vorhanden"
WUND.CheckBox2 = True
Else
WUND.Label72 = ""
WUND.CheckBox2 = False
End If
Gruß Peter

SUPER!DANKE!!! o.T.
08.01.2008 22:16:00
holger

AW: ifabfrage
08.01.2008 22:02:00
Daniel
Hi
in VBA wird bei Berechungen TRUE mit -1 und FALSE mit 0 bewertet.
damit könnte man folgende Vereinfachung erstellen:

Dim Txt(1) as String
txt(0)="Nekrose vorhanden"
txt(1)=""
Wund.Checkbox1.Value = Checkbox1.value
Wund.Label73 = Txt(checkbox1.value + 1)
Wund.Checkbox2.value = Checkbox2.value
Wund.Label72 = Txt(checkbox2.value + 1)


Gruß, Daniel

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige