ich verwende folgenden Code, um ein neues Tabellenblatt mit einem speziellen Namen einzufügen.
Nun fehlt mir aber der Trichter, wie ich prüfe, ob das Tabellenblatt vielleicht schon vorhanden ist.
Könnte mir hierbei jemand weiterhelfen?
Danke und Gruß
Albert
Private Sub CommandButton2_Click()
On Error GoTo Ende:
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = ComboBox1.Value & "." & TextBox1.Value
On Error Resume Next
SheetExists = Not Sheets(ComboBox1.Value & "." & TextBox1.Value) Is Nothing
'Kopieren der erforderlichen Daten
ActiveSheet.Previous.Select 'Den Inhalt des vorherigen Monats zum Kopieren auswählen
Cells.Select
Selection.Copy
On Error GoTo Ende 'Zurückwechseln zum neuen Monat und Einfügen der Daten
ActiveSheet.Next.Activate
ActiveSheet.Paste 'Daten einfügen
Range("d6").Select
Range("D6").Value = "01." & ComboBox1.Value & "." & TextBox1.Value
Range("D7").Select
ActiveWindow.FreezePanes = True
Range("D7:AH" & Range("C60").End(xlUp).Row).Select 'Löschen der Bestellungen im _
neuen Monatssheet
Selection.ClearContents
Range("C68:AH" & Range("B116").End(xlUp).Row).Select 'Löschen des Bedarfs im neuen _
Monatssheet
Selection.ClearContents
Range("D7").Select
Me.Hide
Ende:
End Sub