Makro ändern bzw. erweitern
12.07.2005 17:54:14
mike49
ich habe ein "Löschen-Makro", das ich ändern bzw. erweitern möchte.
Der Wert in Zelle F42 wird über "=M49" gebildet.
Wenn ich nun das Makro starte, soll der Wert in F42 nach F40 nur dann übertragen werden, wenn er positiv ist. Ansonsten soll diese Bedingung übersprungen werden und das Makro so laufen wie bisher:
Sub Löschen()
With Application
.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
.EnableEvents = False 'Ereignissprozeduren deaktivieren.
End With
Range("E8:G38").Select
Selection.ClearContents
Range("F40:G40").Formula = "0"
Range("H2") = (Range("H2") + 1) Mod 12
If Range("H2") = 1 Then Range("J1") = (Range("J1") + 1)
Range("E8").Select
With Application
.ScreenUpdating = True 'Bildschirmaktualisierung einschalten.
.EnableEvents = True 'Ereignissprozeduren aktivieren.
End With
End Sub
Vielleicht geht's auch eleganter?
Gruß
Mike49