Thema Datum  Von Nutzer Rating
Antwort
Rot Userform als Variable
09.04.2024 11:13:34 Gast92378
NotSolved
09.04.2024 21:49:59 xlKing
NotSolved
09.04.2024 22:32:41 Gast50744
Solved
10.04.2024 00:03:47 Gast92378
Solved
11.04.2024 09:43:36 Gast10678
NotSolved

Ansicht des Beitrags:
Von:
Gast92378
Datum:
09.04.2024 11:13:34
Views:
425
Rating: Antwort:
  Ja
Thema:
Userform als Variable

Hallo,

derzeit lasse ich auf einer Userform bestimmte Eigenschaften von Frames, Buttons etc. je nach Bedarf ändern. Dies mache ich in universell in einem Modul. Ich übergebe typ(zB. "cmd"), Name(zB. "Button") und Nr.(zB 1) oder welcher Frame bearbeitet wird (zB. Frame1) an die sub.

hier ein kurzes Bsp

Public Sub FoldFrame() ' Frame ausklappen
With Userform1.Controls(AuslösenderFrame) 
    .Height = AnzahlBtnsImFrame * btnHeight + 3
    .Visible = True
End With
End Sub

Jetzt würde ich aber gerne das Programm auf mehrere Userformen verteilen und müsste dazu die Userformen variabel bearbeiten. Die oben gezeigte Sub würde dann in etwa so aussehen: WelcheUserform="Userform1"

Public Sub FoldFrame() 
With WelcheUserform.Controls(AuslösenderFrame)
    .Height = AnzahlBtnsImFrame * btnHeight + 3
    .Visible = True
End With
End Sub

Ich habe etwas versucht mit VBA.Userforms.Add(WelcheUserform) aber das führte zu Stapelfehlern.

Hier nun meine Frage: Wie kann ich eine Userform als Variable deklarieren um zB. die oben aufgeführte Sub so anzusprechen, daß die Controls auf der Userform geändert werden von der der Aufruf kam. Teilweise sind mehrer Subs verschachtelt um alle nötigen Änderungen vorzunehmen.

Falls es nicht schon klar ist: Ich bin ein kompletter Noob was VBA angeht und bräuchte demzufolge eine Antwort für Dummys blush 

Vorab schon mal Dankeschön

MfG


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Userform als Variable
09.04.2024 11:13:34 Gast92378
NotSolved
09.04.2024 21:49:59 xlKing
NotSolved
09.04.2024 22:32:41 Gast50744
Solved
10.04.2024 00:03:47 Gast92378
Solved
11.04.2024 09:43:36 Gast10678
NotSolved