Liste aus Tabellenblätter erzeugen

Hallo ihr Lieben,

Ich bräuchte eure Hilfe, und zwar habe ich einige PDF-Dateien bekommen, die ich bearbeiten soll. Die PDF-Dateien habe ich in Excel-Dateien konvertiert und stichprobenartig überprüft.

Es geht darum, dass in jedem Tabellenblatt eine Handynummer hinterlegt ist. Dazu gibt es noch verschiedene Informationen wie bspw. der Datentarif, der Datenverbrauch sowie die Gesamtkosten. Zusätzlich gibt es detaillierte Einzelverbindungsnachweise (EVN).

Die Aufgabe, die ich bekommen habe, ist eine Übersichtsliste zu erstellen. Ich soll eine Auflistung aller Telefonnummern erstellen, mit dem Datentarif, Datenverbrauch sowie die Gesamtkosten (und ein paar Infos zusätzlich). Ich würde das ganze händisch lösen, wären es nicht um die 900 Tabellenblätter je Datei. Es gibt insgesamt 3 Excel-Dateien.

Ich habe die Originaldatei genommen und daraus eine Beispieldatei erstellt, in der Hoffnung, dass ich den Code minimal anpassen muss. Meistens befinden sich die gesuchten Informationen in EINEM Tabellenblatt. Teilweise kommt es vor, dass ein Teil der Informationen (sind eigentlich immer die Gesamtkosten) im nächsten Tabellenblatt befindet, da die EVN zu lang ist (siehe Blatt856 und Blatt857). Unten rechts steht immer die Seitenzahl. Zudem gibt es auch Telefonnummern, die keine EVN vorweisen, das heißt, die Nummer wurde gar nicht verwendet und als Gesamtsumme steht dann nur EUR. Das soll in der Übersicht genauso angezeigt werden.

Ich habe eine Musterlösung erstellt, in der Hoffnung, dass ihr versteht, was ich genau benötige. Ich hoffe, ihr versteht mein Anliegen.
VIELEN DANK im VORAUS!!

https://www.herber.de/bbs/user/158503.xlsx

Liebe Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Woooos? ein Fehler? bei mir? kann nicht sein! ;-)

Ich dachte, mein Test war erfolgreich. Aber Tatsächlich kommt die Gesamtsumme am Ende vom letzten Blatt der EVN-Liste. Hierunten ein ergänzte Version.

Die Kürze kommt aus 2 Annahmen:
_ Ein Nummer (Anschluss oder Kennung) ist immer eindeutig, es sei denn die EVN-Liste ist so lang, dass mehrere Blätter notwendig sind, aber in den reine EVN-Blätter fehlt in "A7" den Begriff "Datenvolume" (abgesehen von meiner Gesamtsumme-Fehler)
_ die Verarbeitung ist einmalig, und daher die Performance zweitrangig

Hier eine korrigierte Version, die den Gesamtsumme der EVN mitnimmt:

Sub auflisten()
Dim wsZ As Worksheet 'Ziel
Dim wsQ As Worksheet 'Quelle
Dim Zeile As Range
Dim F As Range
    
    Set wsZ = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    wsZ.Range("A1:F1") = Split("Blatt Kennung Anschluss Datenvolume Verbrauch Gesamtsumme")
    On Error Resume Next 'wegen Find
    For Each wsQ In ActiveWorkbook.Worksheets
        Set Zeile = wsZ.Cells(Rows.Count, "A").End(xlUp).Offset(1).EntireRow
        If wsQ.Range("A7").Value Like "Datenvolume*" Then 'wenn nicht: nur EVN, nicht interessant, nächste Blatt
            Zeile.Cells(1) = wsQ.Name 'Name des Blattes in Spalte A
            Zeile.Cells(2) = wsQ.Range("C4").Value  'Kennung in Spalte B übernehmen
            Zeile.Cells(3) = wsQ.Range("C6").Value  'Anschluss in Spalte c übernehmen
            Zeile.Cells(4) = wsQ.Range("D7").Value 'DatenVolume in Spalte D übernehmen
            Zeile.Cells(5) = wsQ.Range("D11").Value 'DatenVolume in Spalte D übernehmen
        End If
        'Gesamtsumme
        With wsQ.Cells(Rows.Count, "D").End(xlUp)
            If .Value Like "Gesamtsumme" Then
                Set F = Nothing: Set F = wsZ.Range("B:B").Find(wsQ.Range("C4").Value) 'Falls die Blätter nicht in der logische Reihenfolge stehen
                If Not F Is Nothing Then F.EntireRow.Cells(6) = CDbl(0 + Trim(Replace(.Offset(0, 1).Value, "EUR", "")))
            End If
        End With
    Next
End Sub

VG
Yal

Sub auflisten() Dim wsZ As Worksheet 'Ziel Dim wsQ As Worksheet 'Quelle Dim Zeile As Range Set wsZ = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)) wsZ.Range("A1:F1") = Split("Blatt Kennung Anschluss Datenvolume Verbrauch Gesamtsumme") For Each wsQ In ActiveWorkbook.Worksheets Set Zeile = wsZ.Cells(Rows.Count, "A").End(xlUp).Offset(1).EntireRow If wsQ.Range("A7").Value Like "Datenvolume*" Then 'wenn nicht: nur EVN, nicht interessant, nächste Blatt Zeile.Cells(1) = wsQ.Name 'Name des Blattes in Spalte A Zeile.Cells(2) = wsQ.Range("C4").Value 'Kennung in Spalte B übernehmen Zeile.Cells(3) = wsQ.Range("C6").Value 'Anschluss in Spalte c übernehmen Zeile.Cells(4) = wsQ.Range("D7").Value 'DatenVolume in Spalte D übernehmen Zeile.Cells(5) = wsQ.Range("D11").Value 'DatenVolume in Spalte D übernehmen If wsQ.Range("A14").Value Like "Anzahl*" Then Zeile.Cells(6) = wsQ.Range("E14").Value 'Gesamtsumme in Spalte F, falls vorhanden End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Liste aus Tabellenblätter erzeugen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste aus Tabellenblätter erzeugen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread