Hallo 

 

Ich habe vor kurzer Zeit ein Projekt angefangen um Daten auszuwerten nun ist es das erste mal das ich mit VBA arbeite. 
 

Set a = ActiveCell.Offset(0,-2).Value  : Wo die Bedingung grösser als 2 ist in meiner Spalte soll es mir den Wert in einer anderen Spalte wo ich mit Offset genau beschreibe den Wert als eine Variable speichern damit ich dann später den gespeicherten Wert für die Datenanalyse weiter verwenden kann. 

 

Nun taucht bei a ein Fehler auf:       Objekt erforderlich

 

Kann mir jemand sagen wie ich das Problem beheben kann. 

 

 

Sub Abfrage_groesser_2()

 

Dim i As Integer

Dim a As Double

 

For i = 2 To 250

 

    If Cells(i, 5).Value < 2 Then

    Set a = ActiveCell.Offset(0, -2).Value

    Exit For

    

   

    End If

    Next i