Abfrage von Zellenwerten
13.07.2007 07:50:12
Zellenwerten
Ich habe mal wieder ein kleines Problem, bei dem ich Eure Hilfe gebrauchen kann.
Folgendes Problem:
in den Spalten D:O sind folgende Eingaben möglich: empty, 1, 2, 3
das Modul soll die Zeile rückwärts durchlaufen und mir errechnen,
wie lange der Status "3" zuletzt in Folge gesetzt war.
Mein erster Versuch sieht folgendermassen aus:
Sub Check_ool()
Dim i, counter, zeile, spalte As Integer
Dim wbk As Workbook
Set wbk = ThisWorkbook
counter = 0
zeile = 5
spalte = 15
Do Until wbk.Worksheets("OOL").Cells(zeile, 1).Value = ""
For i = 1 To 12
If wbk.Worksheets("OOL").Cells(zeile, spalte).Value = "" Or wbk.Worksheets("OOL").Cells ( _
zeile,spalte).Value = "1" Or wbk.Worksheets("OOL").Cells(zeile, spalte).Value = "2" Then
spalte = spalte - 1
Else
If wbk.Worksheets("OOL").Cells(zeile, spalte).Value = "3" Then
spalte = spalte - 1
counter = counter + 1
End If
wbk.Worksheets("OOL").Cells(zeile, 16).Value = counter
zeile = zeile + 1
End If
Next i
Loop
End Sub
Der Compiler meckert über einen "Application-defined error".
Wer könnte mir noch vor dem Wochenende weiterhelfen?
Gruss,
Gromminger