Löschvorgang / Msgbox
02.09.2004 11:25:33
Frank
den unten genannten Code den mir Roland entworfen hat
möchte ich noch wie unten genannt erweitern.
Problem 1:
Der Code müsste jetzt zusätzlich noch den Inhalt des Bereiches A14:A44 löschen
und den Bereich B14:B44 durch Nullen ersetzen.
allerdings nur in den Blättern 11 / 16 / 21 / 26 / 31 / 36 / 41 / 46 / 51 / 56.
Problem 2:
Eine Msgbox sollte erst noch einmal abgefragen ob wirklich gelöscht werden soll
oder nicht (Yes/No).
Wenn Ja dann sollte nach erfolgter Löschung eine erneute Msgbox erscheinen
die mitteilt das die Daten gelöscht worden sind.(OK)
Wenn Nein dann sollte eine Msgbox erscheinen
die mitteilt das der Löschvorgang nicht ausgeführt wurde.(OK)
Sub sheetsValue_delete2()
Dim i As Byte
For i = 7 To Worksheets.Count
Worksheets(i).Range("F14:O44").Value = 0
Next
End Sub
Danke im Vorraus
Frank