Office: (Office 365) Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Hallihalllo,

Ich sitze gerade an meine Bachelorarbeit und muss mittels VBA ein Auswertungsprogramm für erhobene Daten erarbeiten. Ich suche schon ewig im Internet nach dem passenden Code und konnte ihn bis jetzt nicht finden.
Ich habe bereits einen Code gefunden welcher es mir ermöglicht, beliebig viele erhobene Datentagestabellen in einer Arbeitsmappe zu öffnen. Jedoch stehe ich nun vor dem Problem, dass ich gerne den letzten Wert einer gewissen Spalte mit den in anderen Tabellen in der gleichen Spalte und ebenfalls der letzte Wert addieren möchte.
Also ich möchte quasi den letzten Wert in Spalte B mit dem letzten Wert in der nächsten Tabelle in Spalte B addieren und dies für beliebig viele Tabellen.

Sorry für das umständliche beschreiben, ich hoffe man verseht es halbwegs.
Vielen Dank schonmal im Voraus.

Liebe Grüße Leo

 

für Spalte A
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Cells(12,5)=Cells(12,5)+Cells(LoLetzte,1)

 

Hallo Hajo,
Vielen Dank für die super schnelle Antwort.

Der Code läuft ohne Fehlermeldung durch, jedoch gibt er als ein falsches Ergebnis aus . Ich bin mir leider nicht sicher woran es liegen könnte. Ich glaube es läuft nur die Tabelle durch in der man das Makro ausführt. Bei mir ist es so das ich beispielsweise 8 Tabellen in einer Arbeitsmappe habe. 7 Tabellen sind mit Werten gefüllt und in der 8ten soll der addierte Wert der letzten Zellenwerten einer Spalte (aus den jeweiligen 7 Tabellen) ausgegeben werden.

Liebe Grüße Leo

 

Du hast schon die Richtige Tabelle davor geschrieben?

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Okay ich hab jetzt mal eine Arbeitsmappe sehr vereinfacht nachgebaut um das Prinzip zu verdeutlichen.
In der Arbeitsmappe soll in Tabelle 1 der Wert ausgegeben werden, welcher sich aus den untersten Werten der Tabelle 2,3,4,5 ergibt.

Danke für die Mühen.

Liebe Grüße Leo

 

Code:

Option Explicit

Sub addition_letzter_zellwerte()
    Dim Loletzte As Long
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Worksheets
        If WsTabelle.Name <> "Tabelle1" Then
            With WsTabelle
                Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
                Cells(1, 1) = Cells(1, 1) + .Cells(Loletzte, 1)
            End With
        End If
    Next WsTabelle
End Sub

Gruß Hajo

 

Vielen vielen Dank für die Arbeit .
Klappt einwandfrei.