Laufzeitfehler 91 die hundertste
07.09.2007 11:16:00
lueckii
Eigentlich bin ich nicht mehr bluiger Anfänger in VBA, hab allerdings schon über ein halbes Jahr nichts mehr gemacht.
Darum hier eine Frage, die zwar schon 100mal gestellt wurde, die Lösungen des Problems mir aber nicht wirklich weiterhelfen.
Das Problem ist p. Beim 2ten Durchlauf der For..Next Schleife, kommt die Fehlermeldung LZF 91;
Hab ich vielleicht die variablen falsch dimensioniert?
Hatte solche Probs früher auch, damals wußte ich allerdings meistenes woran liegt
Die schleife liest einfach Zeile für Zeile aus dem Worksheet Verbrauch_Maerz_August Artikelnummern aus und überprüft, ob diese auch im anderen Worksheet sind. wenn ja, dann soll in die Zeile links von der gefundenen Nummer ein Ja geschrieben werden.
Dim Nummer As Integer
Dim Reihe As Integer
Dim n As Variant
Dim p As Variant
n = 2
For Reihe = 5 To 168
Nummer = Worksheets("Verbrauch_Maerz_August").Range("A" & Reihe).Value
With Worksheets("Konsi_SAP_Auswert").Range("B6:B339")
p = .Find(Nummer).Row
End With
If Worksheets("Konsi_SAP_Auswert").Cells(p, n).Value = Nummer Then
Worksheets("Konsi_SAP_Auswert").Cells(p, n - 1).Value = "Ja"
End If
p = Empty
Next Reihe
End Sub
Vielen Dank schon mal für die Mühen
Gruß Martin