Thema Datum  Von Nutzer Rating
Antwort
11.09.2015 17:26:23 SuterB
NotSolved
Blau Excel VBA - Wert aus vorherigen Tabelle auslesen
11.09.2015 18:05:00 BigBen
NotSolved
11.09.2015 20:36:44 SuterB
NotSolved

Ansicht des Beitrags:
Von:
BigBen
Datum:
11.09.2015 18:05:00
Views:
774
Rating: Antwort:
  Ja
Thema:
Excel VBA - Wert aus vorherigen Tabelle auslesen

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)
         
        ' Auslesen des letzten Saldos
        lngRowSaldo = shLastMonth.Cells(shLastMonth.Rows.Count, 6).End(xlUp).Row
        Set rngRowSaldo = shLastMonth.Cells(lngRowSaldo, 6) ' 6 = Spalte F
        ' Übertragen des Saldo's
        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)
         
        ' Auslesen des letzten Saldos
        lngRowSaldo = shLastMonth.Cells(shLastMonth.Rows.Count, 6).End(xlUp).Row
        Set rngRowSaldo = shLastMonth.Cells(lngRowSaldo, 6) ' 6 = Spalte F
        ' Übertragen des Saldo's
        shActMonth.Cells(1, 6).Formula = rngRowSaldo.Formula
    End If
End Sub

VG, BigBen


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.09.2015 17:26:23 SuterB
NotSolved
Blau Excel VBA - Wert aus vorherigen Tabelle auslesen
11.09.2015 18:05:00 BigBen
NotSolved
11.09.2015 20:36:44 SuterB
NotSolved