Thema: Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten