Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro geschrieben, dieser funktioniert auch sehr gut. Das Problem ist, dass das Makro die Ergebniszellen in denen es nichts gefunden hat leer lässt.
Wüsstet Ihr einen weg diese mit 0 zu bestücken.
Hier das Makro:
Sub SummeLagerVP()
Dim z As Long
Dim lz As Long
Dim s As Integer
lz = Range("B1048576").End(xlUp).Row
If Range("B1048576") <> "" Then lz = 61048576
On Error Resume Next
For z = 7 To lz
For s = 8 To 8
Cells(z, 10).Value = WorksheetFunction.VLookup(Cells(z, 2).Value, Range("GUT!A:H"), s, False)
Next s
Next z
End Sub
Danke
Gruß
Emre
|