Office - Word, Excel und Co. 9.723 Themen, 41.186 Beiträge

Verfolgung starten Optionen

excel makro

user_244412 / 4 Antworten / Flachansicht 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
Und Deine konkrete Frage ist ? Wie sieht Dein bisheriger Script aus ? REPI
Hallo, mein Makro startet beim kliken auf einen Button. Ich möchte ... user_244412
Dim i As Integer i MsgBox Willst Du alles löschen? , vbOKCancel, Titel If i ... peterson
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