VBA If-Funktion
30.06.2017 07:01:05
Chris
ich habe folgendes Problem:
In meiner Tabelle steht in der Spalte C entweder der Wert "K" oder "V" und in Spalte D positive Zahlen. Wenn in C "V" steht, soll in Spalte D der Wert negativ werden. Ich habe versucht, das mit folgendem Makro zu lösen:
Sub Makro()
z= Application.WorksheetFunction.CountA(Sheet("Tabelle").Range("C:C")
Columns("C:C").Select
For i = 1 to z
If ActiveCell.Value = "V" Then
ActiveCell.Offset.Value = ActiveCell.Offset.Value * -1
End If
Next i
End Sub
Das Makro läuft ohne Fehlermeldung durch, ändert aber in Spalte D nicht die Werte, wenn in Spalte C die Bedingung erfüllt ist.
Vielen Dank schon mal für Eure Hilfe!