Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Heutiges Datum und kopieren als Makro

Forumthread: Heutiges Datum und kopieren als Makro

Heutiges Datum und kopieren als Makro
17.10.2016 14:55:06
Thomas
Da mir mit meinem Problem nicht geholfen wurde, versuche ich es mal anderst,
wie schreib ich ein makro der das heutige Datum filter und die Zeile C-E kopiert und in eine anderes Tabellenblatt kopiert...das bitte als schleife da mehrer Zeilen mit dem selben Datum vorhanden sind.
Danke und Gruß
Thomas
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Die ausständige Hilfe liegt vermutlich daran...
17.10.2016 15:12:25
Michael
Thomas,
...dass mit Deinen bisherigen Beschreibungen keiner vernünftig helfen kann; Deine Angaben im Original-Faden (von dem ich annehme, dass es der Deine ist) https://www.herber.de/forum/archiv/1520to1524/t1520008.htm#1520008 laden ohne entsprechende Bsp-Mappe nicht gerade zum Helfen ein.
Und nachdem Du in eben diesem Faden nach schon knapp 2 Stunden (!) fehlende Hilfe reklamierst, und jetzt auch noch einen zusätzlichen Faden dazu aufmachst, verbessert sich Deine Situation nicht.
Also: Zeige bitte anhand einer kleinen Bsp-Datei, wie Deine Daten aufgebaut sind und was, wann, wie und wohin kopiert werden soll. Dann kann sich dem evtl. jemand annehmen.
LG
Michael
Anzeige
Beispieldatei
17.10.2016 15:34:27
Thomas
Hallo Micheal,
ja damit könntest du recht behalten. Hab eine Beispieldatei jetzt mal hochgeladen.
https://www.herber.de/bbs/user/108826.xlsx
Danke dir schonmal im voraus
Thomas
Nachgefragt...
17.10.2016 15:52:24
Michael
Hallo Thomas!
Bsp-Datei ist schon mal sehr viel hilfreicher als Dein erster Text. Dennoch hab ich ein paar Fragen:
- Es gibt in der Gesamtliste immer nur 3 Abteilungen (AB, FB, GH)? Oder können das auch mehr sein?
- Es gibt auch nur genau drei Empfänger, genau eine je Abteilung? Oder eben auch mehr?
- Wie groß ist die Gesamtliste (wieviele Zeilen umfasst diese)?
- Die jeweils kopierten Bereich sollen auch tabellarisch kopiert werden? Also im Grund wie in Excel, oder einfach nur als zusammenhängender Text?
LG
Michael
Anzeige
AW: Nachgefragt...
17.10.2016 16:11:35
thomas
Hallo Michael,
1. es gibt mehr als nur die drei Abteilungen (ca. 6)
2. dementsprechend gibt es auch mehrere Empfänger
3. Liste ist momentan bei Zeile 260, wird aber stetig größer
4. bitte tabellarisch in E-mail
Danke dir vielmals das du mein Problem bearbeitest
Gruß Thomas
Anzeige
Okay, ich schau mir das an aber...
17.10.2016 17:05:40
Michael
...Du musst Dich etwas in Geduld üben, in Ordnung?
Ich komme evtl. erst morgen bzw. übermorgen dazu, Dir einen Ansatz zu liefern (heute ziemlich sicher nicht mehr).
Schau aber evtl. auch morgen mal rein, evtl. muss ich nochmal nachfragen - aber grds. hab ich denke ich verstanden, wie's bei Dir aussieht und was Du bezweckst.
Ich melde mich wieder!
LG
Michael
Anzeige
AW: Okay, ich schau mir das an aber...
17.10.2016 17:22:01
thomas
Hallo Michael,
ist kein Problem. Ich schaue morgen ab und zu mal rein, falls du fragen hast.
Danke vielmals und Gruß Thomas
Noch nicht ganz ausgefeilte Lösung - Was denkst Du
18.10.2016 14:31:59
Michael
Thomas?
Hab hier für Dich eine Testdatei: https://www.herber.de/bbs/user/108854.xlsm
Probier das doch mal aus, und gib Rückmeldung ob das Deinem Ziel entspricht. Hier ein paar Infos zur Datei:
Tabelle1 enthält die Bsp-Daten Deiner ursprünglichen Bsp-Datei; ich habe in den Testdaten lediglich den 17.10. auf den 18.10. getauscht. Mit Klick auf den Button "Mailstapel starten" löst Du das Makro aus - keine Angst, es werden nur 3 Mails geöffnet, aber nicht versendet.
Mailfilter ist ein Hilfstabellenblatt, das ich zum Filtern und aufdröseln der einzelnen Abteilungen, unter Nutzung des SpezialFilters, angelegt habe. Schau es Dir evtl. einmal VOR auslösen des Makros und einmal danach an - dieses Blatt ist jetzt für die drei Abteilungen angelegt, die in Deiner Bsp-Mappe vorkamen, das müsstest Du dann noch auf die 6 Abteilungen insgesamt erweitern; im Grunde ist in diesem Blatt für jede Abteilung definiert a) was aus der Hauptliste gefiltert werden soll und b) wer der Email-Empfänger des jeweiligen gefilterten Datensatzes ist. Hier nutze ich Bereichsnamen.
Ist noch nicht ganz ausgefeilt, ein paar Fehlerüberprüfungen/Bereinigungen etc. müssten noch rein, aber im Grunde, denke/hoffe ich, das was Du suchst.
Gib mal Bescheid!
LG
Michael
Anzeige
AW: Noch nicht ganz ausgefeilte Lösung - Was denkst Du
18.10.2016 16:27:13
thomas
Hallo Michael,
ich probier das morgen mal aus. Gib dir dann Rückmeldung. Bis dahin.... :)
Vielen Vielen Dank
LG Thomas
Na, wie sieht's aus...
19.10.2016 14:22:17
Michael
Thomas? Passt?
Hier, in der Zwischenzeit, der angepasste Code inkl. Kommentaren: https://www.herber.de/bbs/user/108880.xlsm
LG
Michael
Anzeige
AW: Na, wie sieht's aus...
20.10.2016 07:41:12
thomas
Hallo Michael,
du bist Genial, dem ist nichts mehr hinzu zufügen. Das ist genau das was ich wollte. Denn Rest bekomme ich bestimmt selber hin. Falls ich dennoch fragen haben sollte, schreib ich dich nochmal an. Hab gestern Krank im Bett gelegen, deswegen hab ich nicht geantwortet.
Vielen Herzlichen Dank.
Gruß Thomas
Anzeige
Freut mich, Danke für die nette Rückmeldung! owT
20.10.2016 08:13:16
Michael

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Anzeige
VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Makro: Datei (feste Werte) kopieren und versenden
Niko

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...
03.06.2009 12:27:02
Thread-ID: 1078831
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
VBA Zellbereich kopieren
Karin

Hallo Forum,
ich muss von einem Tabellenblatt bei bestimmten Bedingungen Zellbereiche in ein anderes Tabellenblatt kopieren. Eigentlich leicht, dachte ich ... In den XL-Beispielen habe ich auch ein wunderbares Makro gefunden, das per Doppelklick den gesamten Zellbereich in das zweite Tabell...
14.07.2009 19:08:09
Thread-ID: 1088630
10 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige