Zähler For-Schleife Vlookup Eintragung
08.09.2017 13:33:12
Johnny
ich würde gerne einen Zähler in mein Makro einbauen, sodass am Ende ausgegeben wird, wie viele Zellen mit Inhalt gefüllt worden sind. Ich hatte folgenden Lösungsansatz gehabt, bis mir eingefallen ist, dass der Zähler hier bei jeder freien Zelle hochzählt, aber es kommt sehr häufig vor, dass zwar eine Zelle leer ist, aber kein passender Eintrag dazu gefunden wird, sodass die Zelle leer bleibt. In dem Fall sollte der Zähler nicht hochzählen, sondern immer nur dann, wenn ein Eintrag passender Eintrag über VLookup gefunden wurde.
Dim Zähler As Integer
Application.ScreenUpdating = False
Zähler = 1
For i = 10 To 400
For j = 43 To 60
On Error Resume Next
If Sheets("Tabelle2").Cells(i, j).Value = "" Then
Sheets("Tabelle2").Cells(i, j).Value = Application.WorksheetFunction.VLookup(Sheets("Tabelle2"). _
Cells(i, 3).Value & Sheets("Tabelle2").Cells(5, j).Value, Sheets("Tabelle1").Range("A:C"), 3, 0)
Zähler = Zähler + 1
End If
Next
Next
MsgBox "... " & Zähler & " ..."
Application.ScreenUpdating = True
End Sub