Ich möchte gerne durch einen Klick auf den Button ein altes Arbeitsblatt namen "Auszug" löschen und ein neues Arbeitsblatt namens "Auszug" hinzufügen.
Das habe ich jetzt schon geschafft.
Sub NeuesArbeitsblat_Auszug()
'Löscht das Arbeitsblatt "Auszug"
Worksheets("Auszug").Delete
'Neues Arbeitsblatt namens "Auszug" wird erstellt :
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "Auszug"
End Sub
Wenn das Blatt aber schon gelöscht ist, gibt es ja ein fehler.
Jetzt möchte ich gerne eine Funktion einbauen, welche die Datei nach den Arbeitblatt "Auszug" durchsucht. Und wenn diese nicht gefunden wird, so soll auch das Befehl
logischeweise nicht ausgeführt werden.
dafür habe ich im Internet eine passende Funktion gefunden,
Function WorksheetExists(strWorksheet As String, Optional ByRef cWB As Workbook = Nothing) As _
Boolean
Dim sh As Worksheet
Dim flg As Boolean
On Error GoTo Err_Handler
If cWB Is Nothing Then
Set cWB = ActiveWorkbook
End If
flg = False
For Each sh In cWB.Worksheets
If sh.Name = strWorksheet Then
flg = True
Exit For
End If
Next
WorksheetExists = flg
Exit Function
Err_Handler:
WorksheetExists = False
End Function
da ich aber ein absoluter Anfänger in VBA bin, und mich erst seit ein paar Wochen damit intensiver beschäftige, schaffe ich nicht mal das.
Ich hoffe auf euere Hilfe : )