17.05.2014, 12:48
Seiten: 1 2
17.05.2014, 13:47
Hi Uwe,
das sieht gut aus. Lob!
Wie ist das nun, wenn die Übersichten (ABC, ABC-Test, Müller, Schleife Müller, Bremse, Meier, Schulze, ...) und Auswertungen (Auswertung ABC, Auswertung ABC-Test, ...) aber nun nicht wie bisher gleiche Namen haben mit fortlaufenden Nummern?
Was können wir dann tun?
(17.05.2014, 12:48)Kuwer schrieb: [ -> ]hier mal mit einer zwischengeschalteten Userform für die Auswahl.
das sieht gut aus. Lob!
Wie ist das nun, wenn die Übersichten (ABC, ABC-Test, Müller, Schleife Müller, Bremse, Meier, Schulze, ...) und Auswertungen (Auswertung ABC, Auswertung ABC-Test, ...) aber nun nicht wie bisher gleiche Namen haben mit fortlaufenden Nummern?
Was können wir dann tun?
17.05.2014, 14:13
Hi Ralf,
beziehe Dich einfach auf den Inhalt der Auswahl(en), welcher entsprechend erstellt wird.
Gruß Uwe
beziehe Dich einfach auf den Inhalt der Auswahl(en), welcher entsprechend erstellt wird.
Code:
'Userform "Form_Auswahl"
Option Explicit
Private Sub UserForm_Activate()
ListBox1.List = Array("ABC", "ABC-Test", "Müller", "Schleife Müller", "Bremse", "Meier", "Schulze")
CommandButton1.Visible = False
End SubCode:
'Userform "PB1"
Option Explicit
Private Sub UserForm_Activate()
Dim i As Long
With Form_Auswahl.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
PB1.Caption = "Berechne Statistik " & .List(i)
Call Statistik("Übersicht " & .List(i), "Auswertung " & .List(i)) ' Aufruf der Statistik-Funktion
End If
Next i
End With
Unload PB1
Unload Form_Auswahl
Worksheets("Start").Activate
End SubGruß Uwe
Seiten: 1 2