mit nachfolgendem Code lege ich nach Comboboxauswahl eine Kopie des aktiven Blattes an. Als Blattname wird der Comboboxinhalt genutzt. Außerdem wird der Comboboxinhalt noch in Zelle A1 des neuen Blattes geschrieben.
Allerdings soll das neue Blatt im Datumsformat 09.09.2014 benannt werden. Über
Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, ("dd.mm.yyyy")) End Sub funktioniert es nicht, da wird gar kein Blatt angelegt (kopiert).
Kann mir bitte Jemand helfen.
Option Explicit
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim BlattName As String
Dim MyBool As Boolean
Dim NewTabelName As String
If ComboBox1.ListIndex > -1 Then
'Neuen TabellenName aus Combobox holen und merken
NewTabelName = ComboBox1.Value
BlattName = ComboBox1.Value
'Prüfe ob Blattname schon vorhanden ist
For Each wks In ThisWorkbook.Worksheets
If wks.Name = BlattName Then
MyBool = True
Exit For
End If
Next
If Not MyBool Then
'Tabelle kopieren und hinter der letzten Tabelle einf?gen
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'der neuen Tabelle den Name geben
Sheets(Sheets.Count).Name = NewTabelName
With ActiveSheet.Range("A1")
.NumberFormat = "dd"
.Range("A1").Value = ComboBox1.Value
End With
Else
MsgBox "Das Blatt [" & BlattName & "] ist schon vorhanden", vbInformation
End If
End If
End Sub
Private Sub UserForm_Initialize()
With Me.ComboBox1
.RowSource = "Userform!A3:A66"
.ListIndex = -1
End With
End Sub
Danke fürs lesen und die Hilfe!
mfg, Andreas