Gruppe
Allgemein
Bereich
Liste
Thema
99er Umsatzliste die 98er gegenüberstellen
Problem
Wie kann ich der nach Kunden gegliederten Jahres Umsatzliste die Kundenumsätze eines anderen Jahres gegenüberstellen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Zusammenfassen()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer, iRowT As Integer, iCounter As Integer
Dim iCol As Integer, iPlus As Integer
iRowT = 2
For iCol = 2 To 1 Step -1
Set wks = Worksheets("200" & iCol)
iRow = 3
Do Until IsEmpty(wks.Cells(iRow, 1))
var = Application.Match(wks.Cells(iRow, 1), Columns(1), 0)
If IsError(var) Then
iRowT = iRowT + 1
var = iRowT
End If
Cells(var, 1).Value = wks.Cells(iRow, 1).Value
Cells(var, 2).Value = wks.Cells(iRow, 2).Value
Cells(var, 3 + iPlus).Value = wks.Cells(iRow, 3).Value
iRow = iRow + 1
Loop
iPlus = iPlus + 1
Next iCol
End Sub