Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige