Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren in Tabelle mit variablen Worksheets

Forumthread: Kopieren in Tabelle mit variablen Worksheets

Kopieren in Tabelle mit variablen Worksheets
03.11.2015 15:56:54
Andreas
Hallo,
ich habe Daten, die per Button von Workbook A in Workbook B kopiert werden sollen. Soweit so gut, das bekomm ich noch gerade hin.
Hier kommt nun die Schwierigkeit:
Ich bekomme die Daten für einen kompletten Monat z.B. vom 01.11.-30.11.
Jede Zeile ist mit einem Datum versehen.
In Workbook B gibt es Worksheets "KW 1 - KW 53"
Die Zeilen sollen nun in das Sheet mit der entsprechenden Kalenderwoche kopiert werden.
Wie kann man das am einfachsten hinbekommen?
Vielen Dank schonmal für die Hilfe

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in Tabelle mit variablen Worksheets
03.11.2015 16:18:49
Rudi
hallo,
dann rechne die KW anhand des Datums aus. 
Function DINKW(datum)
' Kalenderwoche nach DIN
Dim tmp
tmp = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1)
DINKW = ((datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Worksheets("KW " &Dinkw(Datum))......
Gruß
Rudi

Anzeige
AW: Kopieren in Tabelle mit variablen Worksheets
04.11.2015 08:53:04
Andreas
Hallo Rudi,
danke, nur die KW ist garnicht mein großes Problem. Die könnte ich mir auch in der Tabelle ausgeben lassen.
Nur wie bekomme ich die Daten in das entsprechende Worksheet.
Beispiel:
Zeile A = 19.10.2015 - Daten aus Zeile A sollen in die erste freie Zeile des Worksheet "KW 43" kopiert werden.
Zeile B = 30.10.20115 - Daten müssen in Worksheet "KW 44"
Wie gesagt, ich kann mir die KW auch in einer Zelle ausgeben lassen, aber ich weiß nicht, wie ich die Daten in das entsprechende Blatt bekomme.
Danke

Anzeige
AW: Kopieren in Tabelle mit variablen Worksheets
04.11.2015 10:16:53
matthias
Hallo Andreas,
ich denke Rudi hat das etwa so gemeint: 
Sub DatenUebertragen()
Dim wksQ As Worksheet, wkbZ As Workbook
Dim rDatum As Range
Set wksQ = ThisWorkbook.Sheets("Tabelle1")            'Quelle
Set wkbZ = Workbooks.Open("D:\Dokumente\Mappe2.xlsx") 'Ziel
For Each rDatum In wksQ.Range("A2:A" & wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row) 'Spalte  _
des Datums
With wkbZ.Worksheets("KW " & Dinkw(CDate(rDatum)))
rDatum.EntireRow.Copy _
Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
Next rDatum
End Sub
Die Funktion für die DIN Kalenderwoche musst du natürlich mit in das Modul packen.
lg Matthias

Anzeige
AW: Kopieren in Tabelle mit variablen Worksheets
04.11.2015 12:28:56
Andreas
Danke, läuft hervorragend!
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Anzeige
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige