Makro mehrfach aufrufen mit Namensübergabe

[Kuwer]

Hallo Ralf,

hier mal mit einer zwischengeschalteten Userform für die Auswahl.
  Erprobungsmatrix-RB_Uwe.xlsm (Größe: 1.009,79 KB / Downloads: 2)

Gruß Uwe

[Rabe]

Hi Uwe,

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?

[Kuwer]

Hi Ralf,

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 Sub

Code:

'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 Sub

Gruß Uwe