Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 22:02:44
Warum NV bei meiner Rang Formel?
23.10.2025 20:59:30
Buchstaben aus Zelle auftrennen
23.10.2025 18:34:00
Summation/Aggregation von Stücklistenmengen
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige