Office - Word, Excel und Co. 9.751 Themen, 41.573 Beiträge

Verfolgung starten Optionen

excel makro

user_244412 / 4 Antworten / Baumansicht Nickles

beim makro start möchte ich die frage stellen: wollen sie löschen ja nein bei ja weiter - bei nein abbruch

bei Antwort benachrichtigen
REPI user_244412 „excel makro“
Optionen

Und Deine konkrete Frage ist ?
Wie sieht Dein bisheriger Script aus ?

Es empfiehlt sich immer, etwas Linux im Hause zu haben.
bei Antwort benachrichtigen
user_244412 REPI „Und Deine konkrete Frage ist ? Wie sieht Dein bisheriger Script aus ?“
Optionen

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

bei Antwort benachrichtigen
peterson user_244412 „Hallo, mein Makro startet beim kliken auf einen Button. Ich möchte absichern,...“
Optionen

Dim i As Integer

i = MsgBox("Willst Du alles löschen?", vbOKCancel, "Titel")

If i = vbOK Then

'................

ElseIf i = vbCancel Then

' ................

End If

bei Antwort benachrichtigen
mumpel1 peterson „Dim i As Integer i MsgBox Willst Du alles löschen? , vbOKCancel, Titel If i...“
Optionen

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é

bei Antwort benachrichtigen