Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Löschvorgang / Msgbox

Betrifft: Löschvorgang / Msgbox von: Frank
Geschrieben am: 02.09.2004 11:25:33

Hallo Exel-Freunde,

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
  


Betrifft: AW: Löschvorgang / Msgbox von: P@ulchen
Geschrieben am: 02.09.2004 11:53:17

Hi Frank,



Sub sheetsValue_delete2()
Dim As Byte
If MsgBox("Möchten Sie den Löschvorgang durchführen ?", vbYesNo, "Achtung") = vbNo Then
    MsgBox "Löschvorgang wurde abgebrochen !"
    Exit Sub
Else
    For i = 7 To Worksheets.Count
        Worksheets(i).Range("F14:O44").Value = 0
    Next
    For i = 11 To 56 Step 5
        Worksheets(i).Range("A14:A44").ClearContents
        Worksheets(i).Range("B14:B44").Value = 0
    Next
    MsgBox "Löschvorgang wurde durchgeführt !"
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: AW: Danke P@ulchen von: Frank
Geschrieben am: 02.09.2004 13:12:23

Funktioniert wunderbar

Danke für deine schnelle Hilfe.

Gruß
Frank


 

Beiträge aus den Excel-Beispielen zum Thema "Löschvorgang / Msgbox"