ich habe leider kaum Ahnung von VBA und versuche es gerade ein wenig zu Lernen.
Mein Problem: Ich Erzeuge Anhand des heutigen Datums ein neues Tabellenblatt. Auf dieses Tabellenblatt soll der Inhalt einer Tabelle eingefügt werden.
Klappt auch alles soweit wenn ich in der gekennzeichneten Zeile das heutige Datum händisch einsetze. Die Tabelle aufrufen, die aufgrund des aktuellen Datums erstellt wurde.
Sub AnzeigeSichern()
'** Neues benanntes Tabellenblatt einfügen
'** einfügen als letztes Blatt
'** Kopieren Inhalt Anzeige und dann zurückspirngen zu Anzeige
'** Dimensionierung der Variablen
Dim blatt As Object
Dim BlattName As String
Dim bolFlg As Boolean
Dim dtHeute As Date
'** dtheute definieren
dtHeute = Date
'** Blattname festlegen
BlattName = dtHeute
'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = dtHeute Then bolFlg = True
Next blatt
'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolFlg = False Then
With ThisWorkbook
.Sheets.Add After:=Sheets(Worksheets.Count)
.ActiveSheet.Name = dtHeute
End With
End If
'** KopierenInhaltAnzeige auf neues Blatt
Sheets("Anzeige").Select
Range("A1:G36").Select
Selection.Copy
Sheets(dtHeute).Select 'DAS PROBLEM!!!!!!!!
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Sheets("Anzeige").Select
End Sub
Viele Grüße und Dank
Karsten