Sehr geehrtes Forum,
Ich habe folgendes Proble:
Ich habe ein Programm geschrieben mit dem man in einer Hauotmaske mehrere Sachen aus eienr Liste auswählen kann.
Die Liste setzt sich zusammen aus Namen von Sheets, die in einer anderen Excelldatei sind.
Das Ausgewählte wird dann von dieser anderen Excelldatei in die eigentliche Arbeitsmappe kopiert.
Wenn ich nun noch einmal von vorne beginnen will, soll ein Button alle sheets löschen, die neu dazugekommen sind.
Das habe ich mit folgender For-Schleife realisiert.
Nun ist mein Problem, das er nur jedes zweite sheet löscht.
If Sheets.Count > 7 Then 'wenn es mehr als 7 sheets
Application.DisplayAlerts = False
For k = 7 To v_new + 4 Step 1 'v_new ergibt sich aus der Summe der neuen sheets,
'+4, weil es erst ab dem 4. Sheet löschen soll
Sheets(k).Delete 'löscht die neuen sheets
Next
Application.DisplayAlerts = True
End If
|