Eine Sub für mehrere Objekte verwenden
11.03.2018 16:29:43
Frank
ich lese mir gerade auf dieser Seite http://www.online-excel.de/ das Thema Klassen durch, da ich damit wenig vertraut bin.
Ich habe eine UserForm auf der ich mehrere Label als ProgressBar verwende. Nun könnte ich bei jedem Label die Width Eigenschaft ändern, was auch ginge. Nun habe ich mich gefragt ob man das nicht in einer Art globalen Sub machen kann. Dieser Sub übergebe ich dann die UserForm, das Label und die Width Eigenschaft. Ich habe einen kurzen Code versucht und wollte euch fragen ob ich auf dem richtigen Weg bin oder ob solch ein Szenario nur mit Klassen zu realisieren ist?
Public Sub Progressbar(Schrittweite As Integer, Form As Object, Label As Object)
Form.Label.Width = Schrittweite
End Sub
Sub Test()
Dim Schrittweite As Integer
Dim Form As Object
Dim Label As Object
UF_statusanzeige.Show vbModeless
Schrittweite = 24
Form = UF_statusanzeige
Label = lb_Progress_Import
Call Progressbar(Schrittweite, Form, Label)
Form = UF_statusanzeige
Unload UF_statusanzeige
End Sub Vielen Dank und viele Grüße
Frank