Was mache ich bloß falsch?
15.07.2003 07:23:26
Marion
ich möchte mit folgendem VBA-Code aus einer Tabelle "Aufträge"
den Suchwert finden und den benachbarten Wert der Zelle in die
Originaltabelle in Spalte H einfügen.
Mit der OnError Anweisung sollen Werte, die nicht gefunden werden
einfach mit einer 7 eingetragen werden.
Leider bricht das Makro ab, sobald ein Wert zum zweiten Mal nicht
gefunden wird, also die OnError-Anweisung wiederholt angesteuert werden soll.
Als Fehlermeldung erscheint: Objektvariable oder With-Blockvariable nicht festgelegt.
Die angebotene Hilfe sagt mir leider nicht viel.
Ich freue mich über jede Hilfe.
Grüße/Marion
Sub test()
Dim Name As Range
Dim Suche As String
Dim Zae7 As Integer
Dim Sprung As Integer
Do While Range("A2").Offset(Zae7, 0) <> ""
Suche = Range("A1").Offset(Zae7, 0).Value
On Error GoTo Fehler
Set Name = Sheets("Aufträge").Columns(2).Find(Suche, LookAt:=xlPart).Offset(0, 1)
Range("H1").Offset(Zae7, 0).Value = Name
Zae7 = Zae7 + 1
GoTo WertOK:
Fehler:
Range("H1").Offset(Zae7, 0).Value = 7
WertOK:
Loop
End Sub