Hallo,
irgendwie steh ich ma wieder auf dem "Schlauch". Wie bekomm ich meine beiden Abläufe in ein Makro ?
Hatte es schon mit Application.Wait (Now + TimeValue("0:00:02")) versucht, da ich denke wenn es zeitgleich ausgeführt werden soll wird es wohl Probleme geben. Aber die Verzögerung bringt nicht den erhofften Erfolg.
Hier mein Ansatz:
Sheets("A-Liste").Range("A11:r38").ClearContents
Set objSh = Nothing
Exit Sub
ErrExit:
If Err.Number &gt 0 Then
MsgBox Err.Number & vbLf & Err.Description, 48, "Fehler"
End If
Application.Wait (Now + TimeValue("0:00:02"))
Range("B12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B14").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B16").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B18").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B22").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B24").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B26").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B28").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B30").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B32").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B34").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B36").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B38").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B39").Select
End Sub