Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige