Makrohilfe
29.07.2005 14:23:30
mike49
irgendwie funktioniert mein selbst gebasteltes Löschen-Makro nicht:
Sub Löschen()
Application.EnableEvents = False
If Range("M48") > 0 Then
Range("I40") = Range("M48")
Else
Range("I40") = 0
End If
If Range("M49") > 0 Then
Range("F40") = Range("M49")
Else
Range("F40") = 0
End If
Range("E8:F38").ClearContents
Range("H2") = (Range("H2") + 1) Mod 12
If Range("H2") = 1 Then Range("J1") = (Range("J1") + 1)
Range("E8").Select
Application.EnableEvents = True
End Sub
Der Wert aus M49 wir nicht richtig nach F40 übernommen.
Habe ich was falsch gemacht?
Gruß
mike49