beim makro start möchte ich die frage stellen: wollen sie löschen ja nein bei ja weiter - bei nein abbruch
Office - Word, Excel und Co. 9.757 Themen, 41.682 Beiträge
REPI 
user_244412 „excel makro“
Und Deine konkrete Frage ist ?
Wie sieht Dein bisheriger Script aus ?
user_244412 REPI „Und Deine konkrete Frage ist ? Wie sieht Dein bisheriger Script aus ?“
Hallo, mein Makro startet beim kliken auf einen Button. Ich möchte absichern, daß zuerst die Frage kommt: wirklich löschen ?? es gehen alle Daten in diesem Arbeitsblatt verloren!!!! "ja" "nein" - Wenn ja, weiter - wenn nein Abbruch, kein Makrostart.
Danke
mfg Alfred
Sub Lö()
'
' Lö Makro
'
'
Rows("10:36").Select
ActiveWorkbook.Worksheets("MB").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MB").Sort.SortFields.Add Key:=Range("A10:A36"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("MB").Sort
.SetRange Range("A10:AK36")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("H5:N5").Select
Selection.ClearContents
Range("A10:A36").Select
Selection.ClearContents
Range("F10:AJ36").Select
Selection.ClearContents
End Sub
peterson user_244412 „Hallo, mein Makro startet beim kliken auf einen Button. Ich möchte absichern,...“
Dim i As Integer
i = MsgBox("Willst Du alles löschen?", vbOKCancel, "Titel")
If i = vbOK Then
'................
ElseIf i = vbCancel Then
' ................
End If
mumpel1 peterson „Dim i As Integer i MsgBox Willst Du alles löschen? , vbOKCancel, Titel If i...“
Hallo!
Weshalb zum Kuckuck müsst Ihr einen MsgBox immer deklarieren? Es geht auch ohne "Dim".
Sub Lö()
If MsgBox("Wollen Sie löschen?", vbYesNo, "Frage") = vbNo Then Exit Sub
Rows("10:36").Select
ActiveWorkbook.Worksheets("MB").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MB").Sort.SortFields.Add Key:=Range("A10:A36"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("MB").Sort
.SetRange Range("A10:AK36")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("H5:N5").Select
Selection.ClearContents
Range("A10:A36").Select
Selection.ClearContents
Range("F10:AJ36").Select
Selection.ClearContents
End Sub>
Gruß, René
