and Anweisung VBA
klü
ich bin ein wirklicher VBA Neuling und komme mit meinem ersten Makro nicht so richtig weiter.
Die Daten kommen stammen aus einem Aktivitätssensor und am Ende will ich unterscheiden können ob die Tiere inaktiv oder aktiv waren. Dafür habe ich mir folgende Grenzen gesetzt:
Wenn der Wert in Spalte 2 (Aktivität x)>=0 =0=-4=14 =11=-49=5 Die Ausgaben für die inaktiven Daten sind richtig aber für die aktiven Daten wird stets "etwas anderes" ausgeben. In Spalte 7 habe ich vermerkt was als Ergebnis dort stehen sollte. Ich habe es in der Beispieldatei in VBA als Modul1 und Klasse 1 gespeichert.
Die Datei ist hier hinterlegt:
https://www.herber.de/bbs/user/78365.xlsm
Sub Unterscheidung()
Set inputs = Sheets("Sheet1")
Set output = Sheets("Sheet1")
Row = 1
Do While inputs.Cells(Row, 1) > 0
Row = Row + 1
output.Cells(Row, 1) = inputs.Cells(Row, 1)
output.Cells(Row, 2) = inputs.Cells(Row, 2)
output.Cells(Row, 3) = inputs.Cells(Row, 3)
output.Cells(Row, 4) = inputs.Cells(Row, 4)
output.Cells(Row, 5) = inputs.Cells(Row, 5)
If inputs.Cells(Row, 2) >= 0 And inputs.Cells(Row, 2) = 0 And _
_
inputs.Cells(Row, 3) = -5 And inputs.Cells(Row, 4) = 14 And inputs.Cells(Row, 2) = _
_
11 And inputs.Cells(Row, 3) = -49 And inputs.Cells(Row, 4) = 5 And inputs.Cells(Row, 4)
Vielen lieben Dank schonmal für eure Hilfe!