Userform zum Kopieren Tabellenblatts

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi #Name?,
Zitat: "Ich habe mir ein Userform angelegt, welches aus einer Listbox (=Eingabe des Namens..."
In eine Listbox kann man nix eingeben - nur etwas auswählen.
Zitat: "...mit dem in der Textbox eingegeben Namen anlegen..."
Wie jetzt? Zuerst schreibst du doch, Userform enthält nur 1 Listbox + 2 Button - wo kommt denn auf einmal die Textbox her?
Zitat: "...Namenslänge...31 Zeichen begrenzt...keine Sonderzeichen...würde ich dies in der Listbox begrenzen..."
Immer noch: In Listbox kann man nur auswählen, nix eintragen, ok, man könnte hinzufügen, aber du meinst ja tatsächlich was eingeben.
(mein) Ergebnis: Ich bin verwirrt - oder du?
Ich glaub, am besten ist, du zeigst mal bitte per Upload eine Excel-Bsp-Datei mit genügend Bsp-Daten in den richtigen Zellen, alle erforderlichen Tabellenblätten, dein Userform mit "deinen" Controls.
Ciao
Thorsten
P.S. wenn du denkst, ich will dich vorführen (dich dumm "hinstellen") - Nein! Will ich nicht! Ich versteh anhand deiner Beschreibung nicht, was du möchtest.

Private Sub CommandButton1_Click() Call Neckermann("Blatt Vorlage", CStr(TextBox1.Text)) End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Neckermann(Vorlage As String, shname As String, Optional X) shname = LegalSheetName(shname) If Len(shname)

Lässt sich die Eingabe im Userform bereits bei der Erfassung des Namens nach 31 Zeichen stoppen? Aktuell können beliebig viele Zeichen erfasst werden und er schneidet dann den Namen des Tabellenblatts im Registernamen nach 31 Zeichen ab.
Stelle bei der TextBox1 die Eigenschaften im Eigenschaftenfenster
MaxLength auf 31
TabIndex auf 1
Mit dem Code kopiert er mir das aktuelle Tabellenblatt mit dem Button, aber nicht das Tabellenblatt Vorlage. Lässt sich das umstellen?
Ja, ersetze Tabelle1 durch Vorlage ; sorry. das war mein Fehler.
Kann man nach Ende des Blattkopierens das Userform automatisch schließen lassen und dafür eine Box mit Erfolgreich kopiert einblenden, die man mit ok wegklickt?
CommandButton1_Click
'.........
'.........
MsgBox "Erfolgreich kopiert!", vbOkOnly
Unload Me
End Sub
Das Tabellenblatt Vorlage ist in der Arbeitsmappe grundsätzlich ausgeblendet. Muss man im Code das Blatt für das Kopieren gesondert einblenden und nach Abschluss wieder ausblenden lassen? Wenn du es nur manuell ausgeblendet hast, nein.
Gruß Gerd

Dim blnKopiert As Boolean Private Sub CommandButton1_Click() Call Neckermann("Blatt Vorlage", CStr(TextBox1.Text)) If blnKopiert Then MsgBox "Erfolgreich kopiert!", vbOKOnly Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Neckermann(Vorlage As String, shname As String, Optional X) shname = LegalSheetName(shname) If Len(shname)

Private Sub CommandButton1_Click() On Error Resume Next Sheets("Tabelle1").Copy , Sheets(Sheets.Count) Sheets(Sheets.Count).Name = textbox1 Do Until Err.Number = 0 Err.Clear Sheets(Sheets.Count).Name = InputBox("Name", textbox1 & " ist ungültig") Loop End Sub

Beliebteste Forumthreads (12 Monate)

Userform zum Kopieren Tabellenblatts

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform zum Kopieren Tabellenblatts

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread