Laufzeitrekorder-Makro optional einbinden
04.09.2016 10:37:26
Friedel
ich habe einen Makro, der einen Laufzeitrekorder beinhaltet:
Sub PortoBbisD()
If Range("BL10").Value 0 Then
Dim DatAnfang As Date
DatAnfang = Nol
Rows("1:15").Copy Worksheets("Tabelle2").Range("A1")
MsgBox Format(Now - DatAnfang, "hh:mm:ss"), , "Makro-Laufzeit"
End If
End Sub
Nun möchte ich 2 Fälle unterscheiden und zwar (es kommen nur ganze Zahlen vor):
1. BL10 ist grösser als 60: Makro soll mit Laufzeitrekorder ausgeführt werden.
2. BL ist zwischen 0 und 59: Makro soll ohne Laufzeitrekorder ausgeführt werden.
Ich habe schon einiges mit if else und if etc. probiert, aber irgendwie funktioniert es nicht
Zudem stört es mich, dass der Mauszeiger sich so lange als Kreis dreht, bis ich auf ok der Schaltfläche der MSG-Box gedrückt habe
Danke!
Friedel