Elseif-Problem
21.02.2007 16:13:00
Emanuel
eine kleine Frage hätte ich. Ich habe eine Excel-Liste(ca 10000 Zeilen) die verschiedenste Spalten hat. Nun habe ich vor, mit Hilfe eines Makros diverse Zusammenhänge aus dieser Liste herauszufiltern. Ich habe dazu auch schon ein Makro geschrieben, dieses fiuktioniert jedoch nicht richtig. Derzeit sieht es so aus:
Sub test()
Dim Erf_A_1_M4 As Integer
Dim Erf_A_1_M3 As Integer
ActiveSheet.Range("l2").Select
Do Until ActiveCell.Offset(1, 0).Value = ""
If ActiveCell.Value = "Erfasst" And ActiveCell.Offset(0, 20).Value = ">30" And ActiveCell.Offset(0, 9).Value <> "" Then
Erf_A_1_M4 = Erf_A_1_M4 + 1
ElseIf ActiveCell.Value = "Erfasst" And ActiveCell.Offset(0, 20).Value = ">30" And ActiveCell.Offset(0, 8).Value <> "" Then
Erf_A_1_M3 = Erf_A_1_M3 + 1
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
MsgBox (Erf_A_1_M4 & " Plus " & Erf_A_1_M3)
End Sub
Der erste Wert wird richtig berechnet, der zweite jedoch nicht. Woran liegt das. Wenn ich den zweiten ohne elseif und ohne die erste variable berechne kommt das richtige raus. Woran liegt das? Wie kann ich dass abschaffen?
Danke schon mal im Voraus