Dieses Makro über mehrere Tabellen
28.12.2003 02:00:32
Uwe
schon mal im voraus vielen Dank für eure Mühe...
ich hoffe es kann mir jemand helfen. Folgendes Makro habe
ich erstellt um aus einer Tabelle, die ich von unserem
Rechenzentrum bekomme auszuwerten. Jetzt ist es aber
so, dass es mehrere Tabellen sind, da ich mehrere Mandanten
verwalte.
Es werden pro Mitarbeiter pro Monat alle Lohnarten, die
im einzelnen Monat angefallen sind vom Rechenzentrum
Zeile für Zeile aufgeführt. Ich sortiere und summiere
die Lohnarten über mehrere Monate hinweg in eine
neue Tabelle, die ich SozialplanSumme genannt habe.
Wie kann ich dieses Makro umschreiben, oder ergänzen, dass
es über mehrere Tabellen die entsprechenden Daten holt????
Wäre sehr über eine Hilfe dankbar.
Hier das Makro:
Sub LOAsumiert022()
Dim summe As Single, bereich As range, zelle As range, wsszelle, j As Date
j = Now
n = 6 'Zeilenzähler für Pers-Nr. in SozialplanSumme Tabelle
d = 3 'Spaltenzähler für LOA
summe = 0
Set wss = ThisWorkbook.Worksheets("SozialplanSumme")
Set w022 = ThisWorkbook.Worksheets("Mandant022")
wsszelle = wss.UsedRange.Rows.Count + 1
w022zelle = w022.UsedRange.Rows.Count
wssSpalte = wss.UsedRange.Columns.Count
w022bereich = range(Cells(1, 1), Cells(w022zelle, 1)).Address
Set bereich = w022.range(w022bereich)
Do Until d = wssSpalte
Do Until n = wsszelle + 1
For Each zelle In bereich
If zelle.Value = wss.range("A" & n).Value And _
zelle.Offset(0, 9) = wss.Cells(2, d) Then
summe = summe + zelle.Offset(0, 11).Value
Else
End If
Next zelle
wss.Cells(n, d) = summe
n = n + 1
summe = 0
Loop
d = d + 1
n = 6
Loop
Debug.Print "LOAsummiert022-Makro abgearbeitet in: " & Format(Now - j, "hh:mm:ss")
End Sub