Fehler in der Schleife
19.02.2004 17:15:21
Christoph
Sub test()
name = Cells(41, 2)
pruefung = name
zeile = 3
ausgabe = 52
art = "Carriermanagement Festnetz"
art2 = "Carriermanagement Mobilfunk"
art3 = "VODAFONE Grundgebühr"
Do While pruefung = name
If Cells(zeile, 4) = art Then Cells(ausgabe, 3) = 1 Else
If Cells(zeile, 4) = art2 Then Cells(ausgabe, 4) = 2 Else
If Cells(zeile, 4) = art3 Then Cells(ausgabe, 5) = 3 Else
zeile = zeile + 1
pruefung = Cells(zeile, 2)
Loop
End Sub
Danke Chris