Abfrage Box

Question

Hallo

Habe mir dieses Makro aufgezeichnet, ich möchte das vor dem Löschen eine Box mit der nachfrage wirklich Löschen erscheint.




Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'

'
Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents
Range("B7").Select
End Sub

Besten dank für folgende Hilfe

MFG
Hans

Answer 1

Hallo Hans,

Option Explicit

Sub Test()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub

Gruß Hajo

Answer 2

Hallo
Besten dank für deine Hilfe

Habe es nach einigen probieren hin bekommen
Mein Makro siet jetzt so aus, und funktioniert auch.

Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet
'

If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"

Range("B9:H13,B16:H21,B24:H28").Select
Range("B24").Activate
Selection.ClearContents

Else
MsgBox "Nein"
Range("B7").Select

End If

End Sub

Köntest du es so anpassen das nur eine Abfrage kommt, ob ja oder nein.

MFG
HAns

Answer 3

Hallo Hans,

Option Explicit

Sub Löschen()
'
' Löschen Makro
' Makro am 01.08.2010 von Familie aufgezeichnet, das glaube ich nicht????
'
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
Range("B9:H13,B16:H21,B24:H28").ClearContents
Else
Range("B7").Select
End If
End Sub

Gruß Hajo

Answer 4

Hallo

Nochmals besten DANK für deine schnelle Hilfe.

Es läuft so wie ich es mir gedacht hatte!!!

mfg
Hans