Ich möchte auf Knopfdruck ein Blatt mit dem aktuellem Datum erstellen und dann Werte auf dieses Blatt kopieren. Ich bekomme aber im letzten Step eine Fehlermeldung und ich komme mit meinen VBA Kenntnissen nicht mehr weiter.
Private Sub CommandButton1_Click()
Dim WsTabelle As Worksheet
Dim BoVorhanden As Boolean
'* H. Ziplies *
'* 21.07.12 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/*
For Each WsTabelle In Sheets
If WsTabelle.Name = Date Then
BoVorhanden = True
End If
Next WsTabelle
If BoVorhanden = False Then
Sheets.Add.Name = Date
Sheets("Daten Hier einfügen").Range("A:C").Copy
Sheets(Date).Range("A:C").PasteSpecial xlPasteValues
End If
End Sub
Gruß
Andre