AW: Werte durchzählen
17.06.2015 16:42:39
Kenny
Hallo,
Hätte hier eine VBA Lösung :)
Sub Summe_Namen()
Set wa = Worksheets("Woche")
zähler = 1
For zeile = 2 To wa.UsedRange.Rows.Count
Name = wa.Cells(zeile, 1)
Worksheets(1).Activate
zähler = 1
summe = 0
Do Until ActiveWorkbook.ActiveSheet.Name = "Woche"
Worksheets(zähler).Activate
If IsError(Application.VLookup(Name, Worksheets(zähler).Range("A2:B" & Worksheets(zä _
hler).UsedRange.Rows.Count), 2, False)) = False Then
summe = summe + Application.VLookup(Name, Worksheets(zähler).Range("A2:B" & _
Worksheets(zähler).UsedRange.Rows.Count), 2, False)
End If
zähler = zähler + 1
Loop
wa.Cells(zeile, 2) = summe
Next
End Sub