Makro Pause für Zellmarkierung
21.01.2016 08:45:24
Dieter(Drummer)
aus dem Netz habe ich ein Makro (mit Anpassung/Änderung von mir), dass einem Wert in mehreren Zellen 19 % herausrechnet, damit der Wert in Zellen ein Nettowert ist. Das funktioniert sehr gut.
Ist es möglich und wie wäre der Code, damit nach der ersten Msgbox im Makro, eine Pause für die Markierung der Zellen möglich ist und dann das Makro weiter abläuft?
Hier der bisherige Code:
'von Herber: Nepumuk am 18.01.2016, angepasst von mx
Sub BruttoNettoNeunzehnProzent()
Dim objCell As Range
MsgBox ("Zelle(n) markieren für Brutto ""bei 19%"" in Netto zu wandeln")
Application.ScreenUpdating = False
'Hier soll Makropause sein für die Zellmarkierungen, dann Makro weiter
For Each objCell In Selection
With objCell
.Value = .Value / 1.19
End With
Next
Application.ScreenUpdating = True
MsgBox ("Bruttobeträge sind jetzt Nettobeträge.")
End Sub
Danke für evtl. Hilfe und
Gruß, Dieter(Drummer)