Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert in Zelle nach löschen um 1 erhöhen

Wert in Zelle nach löschen um 1 erhöhen
15.05.2018 15:47:42
mike49
Hallo zusammen,
Ich habe dieses Löschen Makro:
Sub Löschen()
' Löschen Makro
ActiveSheet.Unprotect
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
'Übernahme der Monatsstundentunden/Urlaubs-/Krankheitstage
Dim zeile As Integer
'Monatsstunden
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("N" & zeile) = ActiveSheet.Range("E38")
'Urlaubstage
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("U" & zeile) = ActiveSheet.Range("K43")
'Krankheitstage
zeile = 22 + ActiveSheet.Range("D4")
ActiveSheet.Range("V" & zeile) = ActiveSheet.Range("K44")
'Weiter mit alten Anweisungen
Dim rngLöschen As Range
Set rngLöschen = ActiveSheet.Range("A12:C37")
rngLöschen.ClearContents
Set rngLöschen = ActiveSheet.Range("F12:F37")
rngLöschen.ClearContents
rngLöschen.FormulaLocal = "=WENN(B12"""";""A"";"""")"
Set rngLöschen = Nothing
Range("B12").Select
'   Call Tabelle1.spinMonth_SpinUp
ActiveSheet.Protect
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub

Wie kann ich erreichen, dass die Ziffer in D4 um 1 erhöht wird, jedoch bis höchstens 12. Dann soll wieder von 1 begonnen werden.
Gruß
mike49

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

Betreff
Datum
Anwender
Anzeige
AW: Wert in Zelle nach löschen um 1 erhöhen
15.05.2018 16:06:58
Hajo_Zi
Hallo Mike,
    If Range("D4") = 12 Then
Range("D4") = 1
Else
Range("D4") = Range("D4") + 1
End If


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Danke Hajo. Das klappt so prima . . .
15.05.2018 16:44:22
mike49
. . .
Gruß
mike49
Danke für Rückmeldung oT.
15.05.2018 16:46:38
Hajo_Zi
Anzeige

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige