Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt erstellen mit Name aus ComboBox

Tabellenblatt erstellen mit Name aus ComboBox
06.06.2007 14:32:17
Peter
Hallo
ich würde gern eine Tabellenblatt aus einer Vorlage erstellen.
das Blatt sollte den Namen aus 2 Comboboxlisten erhalten. in einer liste steht der Monat. in der anderen das Jahr.
wie kann ich das abfragen?
danke für hilfe

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt erstellen mit Name aus ComboBox
06.06.2007 15:52:38
fcs
Hallo Peter,
wenn du die beiden Kombo-Boxen (aus der Symbolleiste Steuerelemente-Toolbox) im Tabellenblatt angelegt hast, dann folgenden Code im Tabellenblatt einfügen und den Namen der Vorlagedatei anpassen.
Gruß
Franz

Private Sub ComboBox2_LostFocus()
'Combobox2 ist die Box für die Monatsauswahl
Dim BlattName$
BlattName = Me.ComboBox1.Value & Me.ComboBox2.Value
'Prüfung, ob Blattname bereits vergeben
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name = BlattName Then
MsgBox "Das Blatt " & BlattName & " existiert bereits!"
Exit Sub
End If
Next
Application.ScreenUpdating = False
If MsgBox("Soll Tabelleblatt für Monat " & BlattName & " angelegt werden?", vbYesNo, _
"Neues Monats-Tabellenblatt einfügen") = vbYes Then
'Hinter der letzten Tabelle neues Blatt einfügen, _
"A4_Quer" ist die Vorlage(XLT)-Datei in einem der Standard-Vorlagenverzeichnisse _
von Excel. Andernfalls hier kompletten Dateipfad mit angeben _
(z.B. C:\Test\A4_Quer.xlt")
Sheets.Add After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count), Type:="A4_Quer"
ActiveSheet.Name = BlattName
Application.ScreenUpdating = True
End If
End Sub


Anzeige
AW: Tabellenblatt erstellen mit Name aus ComboBox
07.06.2007 07:09:17
Peter
Klasse einfach spitze
klappt perfekt
vielen dank dafür
gruß Peter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige