Hallo zusammen,
in einer Exceltabelle habe ich Buchungssätze aus einer Buchführung.
(folgende Spalten: Konto Soll, Betrag Soll, Konto Haben, Betrag Haben, Text)
Nun möchte ich die Bewegungen pro Konto zusammenfassen. Problem für mich ist,
das ein Konto sowohl in der Spalte „Konto Soll“ als auch in der Spalte „Konto Haben“ vorkommen kann.
Ich habe es mit einer Pivottabelle versucht, aber nicht hinbekommen.
Hat jemand eine Idee?
Vielen Vielen Dank.
Tom
in einer Exceltabelle habe ich Buchungssätze aus einer
Buchführung.
(folgende Spalten: Konto Soll, Betrag Soll, Konto Haben,
Betrag Haben, Text)
Nun möchte ich die Bewegungen pro Konto zusammenfassen.
Problem für mich ist,
das ein Konto sowohl in der Spalte „Konto Soll“ als auch in
der Spalte „Konto Haben“ vorkommen kann.
Hi Tom,
wenn deine Tabelle in Blatt Tabelle1 ist:
KS BS KH BH Text
1234 34,6 gfjhfg
1234 6,9 zuz
6789 11,6 fjödöl
1234 6,45 iuziu
3456 45,8 kiuiu
1234 12,56 ouo
1234 45,8 dkld
3456 45,88 jjh
3456 4,5 kl
6789 11,2 ttt
dann erscheint sie in Blatt Tabelle2 so:
KS BS KH BH Text
1234 34,6 gfjhfg
1234 12,56 ouo
1234 45,8 dkld
1234 6,9 zuz
1234 6,45 iuziu
3456 45,8 kiuiu
3456 45,88 jjh
3456 4,5 kl
6789 11,6 fjödöl
6789 11,2 ttt
wenn du das nachfolgende Makro benutzt.
Gruß
Reinhard
Sub buch()
Set Quelle = Worksheets("Tabelle1")
Set Ziel = Worksheets("Tabelle2")
With Quelle
letzte = .UsedRange.Rows.Count
.Range("A1:E" & letzte).Copy Destination:=Ziel.Range("A1")
End With
With Ziel
For n = 2 To letzte
If .Cells(n, 1) "" Then
.Cells(n, 1) = .Cells(n, 1) & "A"
Else
.Cells(n, 1) = .Cells(n, 3) & "C"
End If
Next n
.Range("A2:E" & letzte).Sort Key1:=.Range("A2"), Order1:=xlAscending, \_
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For n = 2 To letzte
If Right(.Cells(n, 1), 1) = "A" Then
.Cells(n, 1) = Left(.Cells(n, 1), Len(.Cells(n, 1)) - 1)
Else
.Cells(n, 1) = ""
End If
Next n
End With
Set Quelle = Nothing
Set Ziel = Nothing
End Sub
Vielen Dank, werde es ausprobieren.
Kann man das aber nicht mit einer Pivottabelle machen?
Gruß
Tom