Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Vergleichen

Datum Vergleichen
03.01.2005 08:37:30
Zetto24
Hallo und frohes neues Jahr.
Ich möchte eine Datum in einer Tabelle vergleichen und dan die gesamte Zeile kopieren.
ungefähr so:
Wenn Datum in Zelle F3 aus Tabellenblatt1 =01.01.05 ist dann kopiere Tabellenblatt1 A1 B1 C1 D1 ....
Ich weiß nicht ob ich mich verständlich ausgedruckt habe.
Ich möchte alle Eingaben aus einer Zeile die das Datum aus Januar tragen in ein Tabellenblatt kopiert haben, das z.B. Januar heißt, alle Eingaben aus Februar ins Blatt Februar ...
Glaub es kann nicht allzu schwer sein, aber ich komm im Moment nicht drauf.
Hab wohl noch die Silversternacht in den Gliedern ;-)
vielen Dank im Voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Vergleichen
Beni
Hallo Zetto24,
zwei Beispiele, beim erste beispiel wird in F3 nach dem Monate gefragt und die Zeile1 kopiert und die Tabelle des Monates übertragen, die Monatsblätter müssen mit 1/2/3 usw.
heissen, an sonsten noch 12 Abfragen eingebaut werden müsste If Month(Cells(3, 6)) = 1 Then mon = "Januar" usw.
Das zweite Beispiel ist, wenn Du eine ganze Liste entsprechen dem Monat übertragen möchtest, das Datum wäre in SpalteF und werden die aktuelle Zeile übertragen.
Gruss Beni

Sub Monat_kopieren()
Dim mon As String
mon = Month(Cells(3, 6)) 'F3
lz = Sheets(mon).Cells(65536, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(1, Cells(1, 256).End(xlToLeft).Column)).Copy _
Sheets(mon).Cells(lz + 1, 1)
End Sub



Sub Monat()
Dim mon As String
For m = 1 To Cells(65536, 6).End(xlUp).Row
mon = Month(Cells(m, 6))
lz = Sheets(mon).Cells(65536, 1).End(xlUp).Row
Range(Cells(m, 1), Cells(m, Cells(m, 256).End(xlToLeft).Column)).Copy _
Sheets(mon).Cells(lz + 1, 1)
Next m
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige