|
Hallo Yal
Danke für deine Hilfe.
Habe folgendes Makro untenstehend versucht kommt aber einen Debugger Fehler bei:
.FormulaLocal = .FormulaLocal & "+(M10/2)"
Müsste M10, M11, M12... nicht immer die jeweilige Zeile im Makro berücksichtigen? So nimmt es immer M10, möchte aber das es bei jeder Zeile "+(M10/2)", "+(M11/2)", "+(M12/2)" u.s.w. nimmt. Wie würde das gehen?
Und immer bei Klick auf Button soll die Formel erweitert oder der Zusatz gelöscht werden.
Private Sub CommandButton14_Click()
'jeweils bei Klick auf Button wird in Spalte BZ "+(jeweilige Zeile/2) hinzugefügt oder gelöscht
Static bytClick As Byte
bytClick = 1 + (bytClick Mod 2)
Select Case bytClick
Case 1: Call Makro9
Case 2: Call Makro10
End Select
End Sub
Sub Makro9()
'jeweils bei Klick auf Button wird in Spalte BZ "+(jeweilige Zeile/2) hinzugefügt
With Range("BZ10:BZ307")
.FormulaLocal = .FormulaLocal & "+(M10/2)"
End With
End Sub
Sub Makro10()
'jeweils bei Klick auf Button wird in Spalte BZ "+(jeweilige Zeile/2) gelöscht
With Range("BZ10:BZ307")
.FormulaLocal = Left(.FormulaLocal, InStrRev(.FormulaLocal, "+") - 1)
End With
End Sub
|