Excel und VBA: Formeln, Programmierung, Lösungen

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