Spalte A enhält ganze Zahlen und ist gefiltert, so dass jede Zahl nur einmal ersichtlich ist.
Bereich: A1 + A & letzeZeile
Nun möchte ich zu jeder sichtbaren Zahl in Spalte A 0.1 dazuzählen?
Wie mache ich das mit VBA?
Gruss, Peter
Sub Addieren()
Dim LetzteZeileA As Long
LetzteZeileA = Range("A" & Rows.Count).End(xlUp).Row
Dim rng As Range, rZelle As Range
Set rng = Sheets("Tabelle1").Range(Cells(1, 1), Cells(LetzteZeileA, 1))
For Each rZelle In rng 'jede Zeile in Range
If rZelle.EntireColumn.Hidden = False Then 'sofern nicht ausgeblendet, resp. gefiltert
rZelle.Value = rZelle.Value + 0.1 'Wert addieren
End If
Next
End Sub