Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
Hallo
"....Wie mache ich das am einfachsten...."
In Zelle in Spalte G klicken, schauen was in F steht und gegebenfalls ändern :-)
... oder du nimmst das Makro
Sub rep_300() Dim i AsLong For i = 1 To Cells(Rows.Count, 7).End(xlUp).Row With Cells(i, 7) If .Value = 300 And Cells(i, 6).Value = 1 Then .Value = 1 EndIf EndWith Next i EndSub
Gruss Rainer
Anzeige
AW: Ersetzen mit Bedingung in VBA
bully
Hallo Rainer,
die Betonung lag schon auf "mit VBA".
Also habe ich mich entschieden das Makro einzufügen. Es funktioniert.
Vielen Dank
Gruss bully