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

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

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
AW: Makrohilfe
29.07.2005 15:02:03
mike49
Sorry Andreas,
funktioniert nicht!
Gruß
mike49
Anzeige
Hab's hingekriegt. Danke Andreas.
29.07.2005 15:19:58
mike49
Gruß
mike49

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige