Office: (Office 2016) Multipageblätter automatisch nach Tabelleninhalten benennen

Hallo,

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.

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.

 

Hallo,

anbei eine Möglichkeit, wobei Du kein Extra-Blatt dafür brauchst (oder wenn Du es doch möchtest, die Codezeilen mit dem Bezug auf die Übersicht entfernst und die Auskommentierung der ersten Codezeile wieder aufhebst).

Code:

Private Sub cmdSchließen_Click()
  
  Unload Me
  
End Sub


Private Sub UserForm_Initialize()
  
  Dim n As Long
  
  For n = 1 To MultiPage1.Pages.Count
    
'   MultiPage1.Pages(n - 1).Caption = _
    ThisWorkbook.Worksheets("Anzahl").Cells(n, 2).Value
    
    MultiPage1.Pages(n - 1).Caption = _
    ThisWorkbook.Worksheets("Übersicht TN").Cells(n + 1, 3).Value & ", " & _
    ThisWorkbook.Worksheets("Übersicht TN").Cells(n + 1, 4).Value
    
  Next


End Sub

Gruß

 

Hi,

das zusätzliche Tabellenblatt mit der VERKETTEN-Formel brauchst du nicht - so sollte es funktionieren:

Code:

Private Sub UserForm_Initialize()
    'automatische Benennung des Multipage Register
    Dim lngZeile As Long
    With MultiPage1
        For lngZeile = 2 To 37
            .Pages(lngZeile - 2).Caption = Worksheets("Übersicht TN").Cells(lngZeile, 3) & ", " & _
                Worksheets("Übersicht TN").Cells(lngZeile, 4)
        Next lngZeile
    End With
End Sub

Bis später,
Karin

 

Leider kam ich nicht dazu schneller zu antworten.

Hat super geholfen!

Vielen Dank

 

Hola,

und leider vergisst der Crossposter meistens in allen Foren zu antworten.....

https://www.herber.de/forum/archiv/1748to1752/t1751763.htm#1751763

Guß,
steve1da