Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ersetzen mit Bedingung in VBA

Ersetzen mit Bedingung in VBA
bully
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ersetzen mit Bedingung in VBA
07.09.2008 20:41:15
Ramses
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 As Long
    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
            End If
        End With
    Next i
End Sub

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige