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.
..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.
Folgende(r) 1 Nutzer sagt Danke an IchBinIch für diesen Beitrag:1 Nutzer sagt Danke an IchBinIch für diesen Beitrag 28 • dennisBS
traust Du der Sicherheit meiner Macros und oder Dateien nicht? :21:
Dein Wunsch sei mir Befehl.
Sub DatenÜbertragen() Dim z AsLong Dim s AsLong Dim zm AsLong
zz = 5 With Tabelle4
zm = .Cells(Rows.Count, 1).End(xlUp).Row
For z = 5To zm For s = 2To63Step2 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 ExitFor EndIf Next s Next z
Zitat: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:
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
..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.
(20.09.2016, 18:17)WoW Danke!Wie kann ich jetzt noch Tabellen hinzufügen? In der Datei die vom Kunden ist sind 14 Arbeitsbläter WillWissen schrieb: 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.
Sub DatenÜbertragen() Dim z AsLong Dim s AsLong Dim zm AsLong Dim Blatt As Worksheet
zz = 5 ForEach Blatt In ThisWorkbook.Worksheets If Blatt.Name = "Wochenbericht"ThenGoTo weiter
With Blatt
zm = .Cells(Rows.Count, 1).End(xlUp).Row
For z = 5To zm For s = 2To63Step2 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 ExitFor EndIf Next s Next z EndWith
weiter: Next Blatt