Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro mehrfach aufrufen mit Namensübergabe
#11
Hallo Ralf,

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

Gruß Uwe
Antworten Top
#12
Hi Uwe,

(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?
Antworten Top
#13
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste