Fehler in einer Schleifenfunktion
23.08.2006 16:03:45
Diana
Ich bin das erste mal hier und hoffe Hilfe bei Euch zu finden.
Ich habe eine Tabelle mit Telefonnummern (ca. 1000 Stück). Mein Makro soll nun anhand der Telefon-Nr. in den Zellen die jeweiligen Namen, Bereiche usw. in die Nebenspalte zufügen. (Die Namen usw. habe ich Initialisiert.)
Eigentlich funktioniert es auch, aber nur fast, denn es hört in der Tabelle bei 544 auf (also x ist dann 501 und I ist 544). Es kommt der Laufzeitfehler 9 / Index außerhalb des gültigen Bereichs.
Sorry, aber ich bin noch Anfänger in diesem Gebiet und finde keinen Rat mehr.
Vorab schon mal vielen Dank für Eure Hilfe
di_marco
Sub Auswertungen_fuellen()
iniBB_BB_Namen
Dim X As Long
Dim I As Long
For I = 1 To 1000
X = 1 + 1
If Cells(2 + I, 5) = "" Then GoTo Schleifenende
If Cells(2 + I, 5) <> "" Then GoTo Pruefen
Pruefen:
If Cells(1 + I, 5) <> Blackberry(X).BB_Rufnummer Then
X = X + 1
GoTo Pruefen
End If
If Cells(1 + I, 5) = Blackberry(X).BB_Rufnummer Then GoTo Ausfuellen
Ausfuellen:
Cells(1 + I, 15) = Blackberry(X).BB_Name
Cells(1 + I, 16) = Blackberry(X).Bereich
Cells(1 + I, 17) = Blackberry(X).Kostenstelle
Cells(1 + I, 18) = Blackberry(X).BB_Typ
Next I
Schleifenende:
End Sub