Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen
Problem
Wie kann ich in Spalte A Werte in Abhängigkeit der Werte in Spalte B eintragen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Eintragen()
Dim rng As Range
Set rng = Range("B1")
Do Until IsEmpty(rng)
If rng = 2 Then rng.Offset(0, -1) = "Ok"
Set rng = rng.Offset(1, 0)
Loop
End Sub