|
Hallo,
die Anweisung ist sehr gut verständlich, besser geht es gar nicht!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub SaldoTransferFromLastMonth()
Dim shActMonth As Worksheet
Dim shLastMonth As Worksheet
Dim rngRowSaldo As Range, lngRowSaldo As Long
Set shActMonth = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
If ActiveWorkbook.Sheets.Count > 1 Then
Set shLastMonth = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count - 1)
lngRowSaldo = shLastMonth.Cells(shLastMonth.Rows.Count, 6).End(xlUp).Row
Set rngRowSaldo = shLastMonth.Cells(lngRowSaldo, 6)
shActMonth.Cells(1, 6).Formula = rngRowSaldo.Formula
End If
End Sub
|
Es wird vorausgesetzt, dass in den Tabellen der aktuelle Monat immer als letzte Tabelle rechts angehängt wird.
z.B.: Januar, Feburuar, März, April, Mai, Juni, ...
Im Code wird anschließend vom vorletzten Tabellenblatt das Saldo ausgelesen und in die letzte Tabelle üertragen.
Falls die Reihenfolge der Tabellen umgekehrt sein sollte
z.B.: ..., Juni, Mai, April, März, Februar, Januar
... dann muss folgender Code verwendet werden:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub SaldoTransferFromLastMonth()
Dim shActMonth As Worksheet
Dim shLastMonth As Worksheet
Dim rngRowSaldo As Range, lngRowSaldo As Long
Set shActMonth = ActiveWorkbook.Sheets(1)
If ActiveWorkbook.Sheets.Count > 1 Then
Set shLastMonth = ActiveWorkbook.Sheets(2)
lngRowSaldo = shLastMonth.Cells(shLastMonth.Rows.Count, 6).End(xlUp).Row
Set rngRowSaldo = shLastMonth.Cells(lngRowSaldo, 6)
shActMonth.Cells(1, 6).Formula = rngRowSaldo.Formula
End If
End Sub
|
VG, BigBen
|