|
huii, bin VBA Neuling. Die Trimfunktion kenne ich in normaler Formel in Excel.
Müsste nicht nur die M10 ersetzt werden damit die Formel dann variabel auf die jeweilige Zeile zugreift? Oder macht es dies mit deinem Vorschlag schon?
Ansonsten würde ich mit meinem Makro arbeiten.
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
|