|
Hallo,
ich hätte eine Klassenkassa programmiert aber habe folgende zwei Probleme:
mein Code funktioniert ja aber beim Abziehen von Werten (im gesamten Zellbereich) wird immer der gesamte Zellbereich im Blatt markiert, sonst funktioniert es einwandfrei, kann man das irgendwie ändern?
Sub KonstanteAddieren2()
ActiveSheet.Range("B4:B35").Select
Dim Zelle As Range
Dim Faktor As Long
Dim Zusatzbetrag As String
Zusatzbetrag = -15
For Each Zelle In Selection
With Zelle
If Not (.HasFormula) Then .Value = .Value + Zusatzbetrag
End With
Next Zelle
End Sub
&ich habe Farbkonstanten bei negativen Zahlen und co programmiert, es funktioniert ja aber kann man das irgendwie programmieren dass das immer bei Änderungen erneuert wird?
Sub Farben()
Dim i As Long
For i = 4 To 36
Select Case Cells(i, 2).Value
Case Is = 0
Cells(i, 2).Interior.Color = vbYellow
Case Is > 0
Cells(i, 2).Interior.Color = vbGreen
Case Else
Cells(i, 2).Interior.Color = vbRed
End Select
Next
End Sub
Lg Sandra
|