Hallo Excel-Freaks.
Ich habe in ein schon fertiges Userform ein Register eingebaut.
(Per MultiPage Steuerelement)
Auf Seite1 übertrage ich unter anderem 10 TextBoxen per folgendem
Code in die passende Tabelle:
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then
If ObCb.Name "TXT_LfdNr" Then .Cells(LoLetzte, ObCb.Tag) = ObCb.Value
End If
Next ObCb
Sobald ich nun aber auf Seite2 eine neue TextBox einbaue funktioniert das nicht mehr,
weil der obige Code ALLE TextBoxen in UserForm1 übertragen will.
...auch wenn sie auf Seite2 liegen und somit logischerweise auf Seite1
garnicht sichtbar sind. (?)
Weitere Erklärung:
LoLetzte ist eine Funktion die in einer bestimmten Spalte die letzte freie Zeile sucht.
ObCb.Tag ist das Tag der TextBoxen. Hier ist der Buchstabe der Tabellenspalte
eingetragen, in die übertragen werden soll.
Was muß ich nun ändern das in UserForm1 nur die TextBoxen der Seite1 übertragen werden,
und alle TextBoxen auf Seite2 unbeachtet bleiben?