Hallo Forum,
ich hab folgendes Problem. Ich möchte aus einer Tabelle bestimmte Werte markieren und gleichzeitig addieren und die Summe in einem speraten Feld unterbringen. Aber irgendwie bekomm ich das mit dem addieren nicht ganz hin.
Hab einiges ausprobiert und ich poste einfachmal meine letzte version. Schonmal danke für die Hilfe.
Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+q
'
zeile = 1
Do While Cells(zeile, 1).Value <> ""
If Cells(zeile, 1).Value >= 500 Then
Cells(zeile, 2).Interior.Color = RGB(200, 0, 0)
Cells(zeile, 1).Interior.Color = RGB(200, 0, 0)
Cells(1, 4).Value = Cells(zeile, 1).Value + Cells(1, 4).Value
End If
zeile = zeile + 1
Loop
End Sub
|