|
Hallo Leute,
ich habe das gelöst Häckchen zwar wieder weggemacht, jedoch sieht man in der Übersicht immernoch das Häckchen. Deshalb wusste ich nicht ob Ihr nochmal da reinschaut. Aus diesem grund habe ich diesen neuen Beitrag eröffnet.
Es geht um folgendes Problem:
Das Makro tut was er soll, jedoch wenn er zum Suchbegriff nichts findet übernimmt er das Ergebnis vom letzten Suchbegriff.
Wenn das Makro nichts findet soll er auch eine 0 als Ergebnis ausgeben.
Makro:
Sub ScannzahlenGutware()
Dim z As Long
Dim lz As Long
Dim s As Integer
lz = Cells(Rows.Count, 2).End(xlUp).Row
If Cells(Rows.Count, 2) <> "" Then lz = Rows.Count
On Error Resume Next
For z = 7 To lz
For s = 4 To 4
result = WorksheetFunction.VLookup(Cells(z, 2).Value, Range("GUT!A:H"), s, False)
Cells(z, 32).Value = IIf(IsError(result), 0, result)
Next s
Next z
End Sub
Beispiel Bild:
Bitte um Verzeihung für das neue Thema.
Danke
Gruß Emre.
|