Prozedur für alle Userforms zugänglich machen
24.01.2015 13:37:48
Peter
Hallo,
ich bin ein bequemer Mensch und darum suche ich, trotz meiner schwachen Programmierkenntnisse, immer nach Mitteln und Wegen um mir viel Tipperei zu ersparen.
Ich arbeite mit mehreren Userform. In diesen müssen die Textboxen an verschiedenen Stellen geleert werde.
Angefangen habe ich damit, dass ich folgende Zeilen an den entsprechenden Stellen im Programm eingefügt habe:
TextBox1 = ""
TextBox2 = ""
usw.
Da mir das zu aufwendig erschien, folgte Schritt 2:
Sub TxtBoxLeeren()
TextBox1 = ""
TextBox2 = ""
usw.
End Sub
Diese Prozedur habe ich dann mittels CALL TxtBoxLeeren an den entsprechenden Stellen aufgerufen.Da sich die Anzahl der Textboxen im Laufe der Bearbeitung änderten und ich es leid war ständig nachzupflegen, wurde aus der dummen Auflistung eine Schleife:
Sub TxtBoxLeeren()
For Each obj In Me.Controls
If Left(TypeName(obj), 7) = "TextBox" Then
i = i + 1
obj.Value =
End If
Next obj
End Sub
Und nun endlich die Frage:Ist es möglich die Prozedur TxtBoxLeeren() so zu gestalten, dass sie für alle Userforms in dieser Arbeitsmappe zugänglich ist?
Wenn ja, wo speicher ich sie und wie übergebe ich den Namen des Userforms an die Prozedur, falls das überhaupt notwendig ist.
Gruß,
Peter