Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code verbessern

Forumthread: Code verbessern

Code verbessern
08.10.2006 16:37:50
tina
hi,
ich habe mir einen code für meine UF zusammengebastelt.

Private Sub CommandButton2_Click()
Sheets("tabelle1").Select
If [D1] = 6 Then
[G1] = 1
ElseIf [D2] = 6 Then
[G1] = 1
ElseIf [D3] = 6 Then
[G1] = 1
End If
If [G1] = 1 Then
Label6.Visible = True
End If
End Sub

geht das auch eleganter?
vielen Dank
LG Tin@
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code verbessern
08.10.2006 16:42:01
Jan3
Hi,
Probier folgende Variante:

Private Sub CommandButton2_Click()
Sheets("tabelle1").Select
If [D1] = 6 OR [D2] = 6 OR [D3] = 6 Then
[G1] = 1
End If
If [G1] = 1 Then
Label6.Visible = True
End If
End Sub

Jan
Vielen Dank o.t.
08.10.2006 16:57:10
tina
LG Tin@
AW: Code verbessern
08.10.2006 17:03:36
Daniel
Hallo
noch eleganter wäre
with sheets("Tabelle1")
.[G1] = (.[D1] = 6 OR .[D2] = 6 OR .[D3] = 6)
label6.visible = .[g1]
end with
Anzeige
sehr schön. Vielen Danke. o.t.
08.10.2006 17:07:08
tina
LG Tin@
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige