Gruppe
Allgemein
Problem
Wie kann ich der nach Kunden gegliederten Jahres Umsatzliste die Kundenumsätze eines anderen Jahres gegenüberstellen?
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