Makro: Löschen bestimmter Sheets - Fehlermeldung?
21.10.2014 10:56:51
Monika
ich möchte ein neues Workbook anlegen, in welches per Makro verschiedene Dateien kopiert werden sollen. Dies läuft auch schon, nur habe ich ein kleines Problem entdeckt:
Wenn jedes Mal neu reinkopiert wird (was so sein soll, weil es sich immer um die aktuellen Daten handeln muss), dann habe ich irgendwann unheimlich oft redundante Sheets.
Deshalb möchte ich vor dem Einfügen prüfen, ob schon ein Sheet mit dem gleichen Namen vorhanden ist und falls ja, soll dieses gelöscht werden...
Ich habe angefangen etwas zu schreiben, kenne mich allerdings mit Schleifen, etc. leider nicht so gut aus, deshalb würde ich euch gerne um Unterstützung bitten :)
Momentan sieht das ganze so aus:
Sub BlaetterLoeschen()
Dim WS_Count As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
Dim WS As Worksheet
Application.DisplayAlerts = False
If WS.Name = "HP OrderStatus" Then
ActiveWorkbook.WS("HP OrderStatus").Delete
Application.DisplayAlerts = True
End If
Next I
End Sub
Wäre super, wenn ihr mir helfen könntet :)
Vielen Dank schon mal und liebe Grüße
Monika