|
Hallo liebe VBA-Comunity,
bei mir ist folgendes Problem aufgetaucht. Ich habe mehrere Excel-Sheets und möchte auf dem ersten Sheet einen Button einrichten, mit dem ich die Eingaben in Feld A1 bis B2 aus den Sheets 2, 3, 4, 5, 6 und 10 lösche. Folgenden code habe ich in ein Modul gefügt. Der Code funktioniert auch soweit, außer bei Sheet(10) werdne die Einträge nicht gelöscht.
Option Explicit
Sub Clearcells()
Sheets(2).Range("A1", "B2").Clear
Sheets(3).Range("A1", "B2").Clear
Sheets(4).Range("A1", "B2").Clear
Sheets(5).Range("A1", "B2").Clear
Sheets(6).Range("A1", "B2").Clear
Sheets(10).Range("A1", "B2").Clear
End Sub
Vielen Dank für eure Hilfe!
LG Thommy
PS.: Da ich noch eher unerfahren bin mit VBA, freue ich mich auf ausführlichere Erklärungen.
|