bedingtes Dividieren per Makro

Question

Hallo Helfer,
ich benötige ein 2teiliges Makro:
1. In "A4:F53" stehen Formeln und Zahlen, alles soll in Zahlen umgewandelt werden.
2. Immer wenn in Spalte G in einer Zeile eine 2 steht, dann sollen die Werte in der gleichen Zeile durch 2 dividiert werden.
mfg
Wolfgang

Answer 1

Hallo Wolfgang,

probier es mal so:

Sub wolfgang()
Dim rngZelle As Range

'erst im Bereich A4:F53 in Werte umwandeln; Bereich kopieren und nur Werte einfügen
Range("A4:F53").Copy
Range("A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

'dann noch einmal die Werte durchlaufen und ggf. durch 2 dividieren
For Each rngZelle In Range("A4:F53")
If Cells(rngZelle.Row, 7) = 2 Then rngZelle = rngZelle.Value / 2
Next rngZelle

Range("A4").Select

End Sub

Gruß

M.O.

Answer 2

Hallo M.O.,
vielen Dank, das ist genau das was ich mir vorgestellt hatte.
mfg
Wolfgang