Hallo,
ich bin noch ein relativer VBA-Anfänger und habe folgendes Problem: Ich habe eine kleine Tabelle (A15:B20, in Spalte A sind Aufgaben, in Spalte B die zuständigen Personen aufgeführt). Nun möchte ich über eine Message Box abfragen, ob in Spalte B auch wirklich jeweils eine Person aufgeführt ist oder ob Zellen im Bereich leer sind. Dazu habe ich folgendes geschrieben, wo ich immer eine "Overflow"-Fehlermeldung erhalte:
Sub ()
Dim i as Integer
For i = 15 To 20
Do While Range("B" & i).Value <> " "
i = i +1
Loop
MsgBox("Field ' " & "B" & i & " ' is not supposed to be empty")
Next i
End Sub
Mir ist klar, dass man die Abfrage leichter (z.B. über eine IF Funktion) machen könnte, aber ich würde gerne wissen, was der Fehler im Code ist.
Besten Dank!
|