Bericht aus Arbeitsblättern

[dennisBS]

Hallo zusammen.
Ich habe eine Aufgabenstellung an der ich etwas verzweifle.
In dem Beispiel in der Anlage
soll ein bericht erstellt werden. In der Mappe Planung werden x und Hacken eingetragen für geplant und erledigt. 
Jetzt muss ich beim Kunden einen Wochenbericht vorlegen. Der sich aus 10 Arbeitsblättern ersteckt.

Wie kann ich in der Mappe Wochenbericht alle Daten erscheinen lassen die in den Planungsmappen mit x und Haken versehen sind.
Da es ein Wochenbericht sein soll möchte ich in der Mappe Wochenbericht eine Auswahl der KW haben die als bericht ausgegeben werden soll.

Ich hoffe Ihr könnt mir folgen :20:

[IchBinIch]

Hallo Dennis,

probier es mal so.

Gruß
Ich


  Mappe1.xlsm (Größe: 83,71 KB / Downloads: 6)

..zum Generieren der Daten aus einem Bericht. Liegen die Tabellen alle in einer Datei?
Dann müsste man noch eine Schleife darum bauen, die alle Tabellen der Mappe durchsucht.

[WillWissen]

Hi IchBinIch,

bitte stelle uns doch dein Makro hier vor. Nicht alle möchten eine .xlsm-Datei runterladen.

[IchBinIch]

Hallo Günter,

traust Du der Sicherheit meiner Macros und oder Dateien nicht? :21: 

Dein Wunsch sei mir Befehl.

Sub DatenÜbertragen()

Dim z As Long

Dim s As Long

Dim zm As Long



zz = 5

With Tabelle4



zm = .Cells(Rows.Count, 1).End(xlUp).Row



    For z = 5 To zm

        For s = 2 To 63 Step 2

            If .Cells(z, s).Value = "x" And .Cells(z, s + 1).Value = "a" Then

                .Range("A" & z, "BL" & z).Copy Tabelle14.Range("A" & zz)

                zz = zz + 1

                Exit For

            End If

        Next s

    Next z



End With





End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß
Ich

[WillWissen]

Hi,

danke für die prompte Erledigung.

traust Du der Sicherheit meiner Macros und oder Dateien nicht? [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

ich schon (mein real-time-Schutz würde schon beim Runterladen meckern), aber es gibt genügend User, die einfach auf Nummer sicher gehen wollen. Und für diese User wäre der - eventuell über die SuFu erreichte - Beitrag nutzlos.

Alles ist gut. :15:

[dennisBS]

Hallo Dennis,

probier es mal so.

Gruß
Ich



..zum Generieren der Daten aus einem Bericht. Liegen die Tabellen alle in einer Datei?
Dann müsste man noch eine Schleife darum bauen, die alle Tabellen der Mappe durchsucht.

[dennisBS]

Hi,

danke für die prompte Erledigung.



ich schon (mein real-time-Schutz würde schon beim Runterladen meckern), aber es gibt genügend User, die einfach auf Nummer sicher gehen wollen. Und für diese User wäre der - eventuell über die SuFu erreichte - Beitrag nutzlos.

Alles ist gut. :15:

[dennisBS]

WoW Danke

Wie kann ich denn Tabellen hinzufügen? Da die Datei vom Kunden 14 Arbeitsblätter hat

[IchBinIch]

Hallo Dennis,

so z.B.

Sub DatenÜbertragen()

Dim z As Long

Dim s As Long

Dim zm As Long

Dim Blatt As Worksheet



zz = 5

For Each Blatt In ThisWorkbook.Worksheets

    If Blatt.Name = "Wochenbericht" Then GoTo weiter

    

With Blatt



    zm = .Cells(Rows.Count, 1).End(xlUp).Row

    

        For z = 5 To zm

            For s = 2 To 63 Step 2

                If .Cells(z, s).Value = "x" And .Cells(z, s + 1).Value = "a" Then

                    .Range("A" & z, "BL" & z).Copy Tabelle14.Range("A" & zz)

                    zz = zz + 1

                    Exit For

                End If

            Next s

        Next z

    End With

weiter:

Next Blatt



End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0

Die Frage ist aber ob alle Tabellen verarbeitet werden sollen mit Ausnahme der Tabelle "Wochenbericht.

Gruß
Ich

[dennisBS]

Danke euch.
Ihr seit Super.
:18: :18: :18: