Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Codevereinfachung

Forumthread: Codevereinfachung

Codevereinfachung
21.10.2004 13:23:31
Michael
Hallo zusammen
Ich habe eine Userform in der ich ein Combobox habe. Mit dieser Combobox aktiviere ich mit einiger if then else Bedingungen die Arbeitsblätter. Nur irgendwie paßt mir der Code nicht (Zu lange. Hat irgendwer eine Idee. Der Code ist nur ein "Auszug" von den ganzen Bedingungen.

Private Sub Zugnummercbo_Change()
If Zugnummercbo = "940" Then
Sheets("SWA 1").Select
End If
If Zugnummercbo = "14800" Then
Sheets("SWA 2").Select
End If
If Zugnummercbo = "14804" Then
Sheets("SWA 3").Select
End If
If Zugnummercbo = "14806" Then
Sheets("SWA 4").Select
End If
If Zugnummercbo = "14941" Then
Sheets("SWA 5").Select
End If
If Zugnummercbo = "14805" Then
Sheets("SWA 6").Select
End If
If Zugnummercbo = "14807" Then
Sheets("SWA 7").Select
End If
End Sub

Danke für Eure Hilfe
Michael
Anzeige

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

Betreff
Datum
Anwender
Anzeige
case..
xule


      
Private Sub Zugnummercbo_Change()
    Select Case Zugnummercbo
    Case "940"
        sh = "SWA 1"
    Case "14800"
        sh = "SWA 2"
    Case "14804"
        sh = "SWA 3"
    'weiter
    End Select
    Sheets(sh).Select
End Sub 
Anzeige
AW: Codevereinfachung
hwe
Man lege einen Array an
Dim a,z as Variant
a=Array(1,2,3,4,5,6...)
z=Array("SWA x","....",...)
und durchsuche den Array mittels Worksheetfunction.MATCH nach der Position und setzte die im z-Array ein! Einen rechnerischen Zusammenhang seh ich nicht...
Gruß HW

myWebSite:Excellenzen & Powerpoint interaktiv
PowerPoint-Anwendertage im Oktober 2004 in Fulda: www.ppt-user.de

Anzeige
Danke
21.10.2004 13:42:43
Michael
Danke für eure Hilfe. Das habe ich benötigt
Gruß
Michael
AW: Codevereinfachung
Reinhard
Hi Michael, 

option Base 1
Sub tt()
Dim n As Integer, zahl As Integer
Dim werte 'as ? Variant?
werte = Array("940", "14800", "14804", "14806", "14941", "14805", "14807")
For n = 1 To UBound(werte)
zahl = zahl + n * -(Zugnummercho = werte(n))
Next n
If zahl > 0 Then Sheets("SWA " & zahl).Select
End Sub

Gruß
Reinhard
Anzeige
;

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