Doppelte Einträge nur einmal berechnen
13.12.2004 13:04:54
Ulrich
habe ein großes Problem.
Habe eine Tabelle mit 3 Spalten: Kalenderwoche, Name und Stunde.
Ich möchte nun alle Namen mit Stunden zählen, die in KW 1 und KW 2 vorkommen.
Das Problem ist, dass Namen, die in KW 1 vorgekommen sind, in KW 2 nicht mehr mitgezählt werden.
Hier mein Beispiel VBA:
Sub MA_mit_FP_ZB()
Dim ziel As Object
Set ziel = Workbooks("Mappe2.xls").Sheets("Tabelle1").Cells(4, 4)
Windows("Mappe2.xls").Activate
Sheets("Tabelle1").Activate
zeile = 1
ziel = 0
Do While Cells(zeile, 1).Value <> ""
If (Cells(zeile, 1) = "KW 1" Or Cells(zeile, 1) = "KW 2") And Cells(zeile, 3) > 0 Then
ziel = ziel + 1
End If
zeile = zeile + 1
Loop
Windows("Mappe2.xls").Activate
End Sub