Zelleninhalt wird in allen Blättern gelöscht?
06.06.2006 09:24:03
Torge
kann jemand helfen?
Habe folgenden Code für das Löschen der Zellinhalte nach dem schließen der Datei aus dem Forum,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name <> "Tabelle1" Then
Ws.Range("D3").ClearContents
Ws.Range("D7").ClearContents
End If
Next Ws
End Sub
Problem: habe 10 Arbeitsblätter und nun werden auf allen Blätter in den jeweiligen Zellen die Werte gelöscht, dass sollte aber nur für ein Tabellenblatt gelten.
Habe ich hier das falsche Tabellenblatt angegeben oder was muss ich ändern, dass Blatt in dem es wirken soll heißt bei mir Passwort und ist in der Datei das erste Blatt.
Vielen Dank
Gruß Torge