(12.05.2015, 17:03)schauan schrieb: Hallöchen,
das könntest Du im Prinzip ebenso aufzeichnen wie Deinen bisherigen code und dann zusammenfügen, z.B.
Aufzeichnen der Eingabe einer Formel in B66
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("B66").Select
ActiveCell.FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
Range("B67").Select
End Sub
Code optimieren
Code:
Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
und Makro komplettieren (ich habe es vorher auch mal etwas optimiert)
Code:
Private Sub CommandButton1_Click()
' Woche Makro
' Makro am 02.08.2010 von Udo Rolvering aufgezeichnet
Range("A7:A57").Copy
Range("A8").PasteSpecial xlPasteValues
Range("A7").FormulaR1C1 = "=R[1]C+0.01"
Range("A66:A116").Copy
Range("A67").PasteSpecial xlPasteValues
Range("A66").FormulaR1C1 = "=R[1]C+0.01"
Range("A126:A176").Copy
Range("A127").PasteSpecial xlPasteValues
Range("A186:H236").Copy
Range("A187").PasteSpecial xlPasteValues
Range("A186").FormulaR1C1 = "=R[1]C+0.01"
'Formeleintraege:
Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
End Sub
Guten Morgen schauan.
Danke für deine Hilfe!
Ich habe jetzt gerade folgendes gemacht:
Ich habe den Code, der irgendwann vor meiner Zeit hier 2010, aufgezeichnet wurde durch deinen Code ersetzt.
Private Sub CommandButton1_Click()
'Sub Woche()
'
' Woche Makro
' Makro am 02.08.2010 von Udo Rolvering aufgezeichnet
'
'
Range("A7:A57").Copy
Range("A8").PasteSpecial xlPasteValues
Range("A7").FormulaR1C1 = "=R[1]C+0.01"
Range("A66:A116").Copy
Range("A67").PasteSpecial xlPasteValues
Range("A66").FormulaR1C1 = "=R[1]C+0.01"
Range("A126:A176").Copy
Range("A127").PasteSpecial xlPasteValues
Range("A186:H236").Copy
Range("A187").PasteSpecial xlPasteValues
Range("A186").FormulaR1C1 = "=R[1]C+0.01"
'Formeleintraege:
Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
End Sub
Die einzige Veränderung, die ich bemerkt habe, ist der Zelleneintrag in B66.
Da steht jetzt je nach Kalenderwoche 0,20 (bei KW20), 0,21 (bei Kw21) usw.
Bzw. in der Zelle B66 steht " =REST(A66;GANZZAHL(A66))"
Dies habe wir doch schon oben in Zelle B7 und folgende gelöst.
Hab ich jetzt da was falsch gemacht? Oder hab ich mein Problem etwa nicht richtig erklärt?
Bitte um kurzes Feedback. Danke.
Grüße Frank