Multipage automatisch umbenennen
09.04.2020 23:31:38
cfs73
ich brauche mal wieder Hilfe, weil meine Kenntnisse in Excel mit VBA noch nicht gut ist.
Ich erkläre kurz was ich möchte und die Datei habe ich im Anhang mitgeschickt. https://www.herber.de/bbs/user/136593.xlsm
Ich habe eine Liste mit 36 Teilnehmern im Tabellenblatt "Übersicht TN" , wo ich die Namen in den Spalten "C:C" ab "C2" bis "C37" und den Nachnamen in "D:D" ab "D2" bis "D37"stehen habe.
Möchte eine Eingabemaske (UserForm") bauen mit einen Multipage-Register aus "36 Pages", für jeden Teilnehmer eins, welche automatisch mit den "Namen" und "Vornamen" beschriftet wird, sobald ich die Teilnehmer*innen im Tabellenblatt "Übersicht TN" eingebe.
Ich habe etwas getrickst, in dem ich mir ein Tabellenblatt mit den Namen "Anzahl" angelegt habe und welches ich nachher ausblende. Hier habe ich mir eine Formel mit einer Verkettung "=VERKETTEN('Übersicht TN'!C2;", ";'Übersicht TN'!D2)" gebaut, der mir aus den Spalten "C:C" und den Spalten "D:D" aus Tabellenblatt "Übersicht TN"den Namen und den Vornamen in Spalte "B:B" schreibt.
Aus diesen Tabellenblatt "Anzahl" sollen nun aus der Spalte "B:B" die 36 Multipageblätter automatisch umbenannt werden.
ich habe auch schon ein VBA-Code gebaut und in der Userform "frmDatenblatt" eingebaut.
Der Code lautet:
Private Sub UserForm_Initialize()
'automatische Benennung des Multipage Register
MultiPage1.Page1.Caption = Sheets("Anzahl").Range("b1")
MultiPage2.Page2.Caption = Sheets("Anzahl").Range("b2")
End Sub
Das funktioniert auch ganz gut, solange ich nur eine Page automatisch benenne. Will ich aber auch alle anderen 35 "Pages" automatisch umbenennen, dann kommt folgender Fehler "Laufzeitfehler'424': Objekt erforderlich.
Was ist an meiner Vorgehensweise falsch oder was muss ich noch ergänzen? Am besten sieht man es in meiner Datei im Anhang. Vielleicht geht der auch noch einfacher.
Würde mich über Ideen und Anregungen freuen.
Wünsche ein schönes Osterfest.