Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrohilfe

Forumthread: Makrohilfe

Makrohilfe
29.07.2005 14:23:30
mike49
Hallo zusammen,
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrohilfe
29.07.2005 14:45:47
ANdreas
Hallo mike,
versuchs mal so:

Sub Loeschen()
On Error Resume Next
Application.EnableEvents = False
Range("I40").Value = WorksheetFunction.Max(0, Range("M48").Value)
Range("F40").Value = WorksheetFunction.Max(0, Range("M49").Value)
Range("E8:F38").ClearContents
Range("H2").Value = (Range("H2").Value + 1) Mod 12
If Range("H2").Value = 1 Then _
Range("J1").Value = (Range("J1").Value + 1)
Range("E8").Select
On Error GoTo 0
Application.EnableEvents = True
End Sub

Gruß
Andreas
Anzeige
AW: Makrohilfe
29.07.2005 15:02:03
mike49
Sorry Andreas,
funktioniert nicht!
Gruß
mike49
Hab's hingekriegt. Danke Andreas.
29.07.2005 15:19:58
mike49
Gruß
mike49
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige