Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in Zeitspanne kopieren.

Daten in Zeitspanne kopieren.
12.08.2006 12:27:54
Harald
Hallo Excelfreunde !
Ich hab da ein Problem und ich hoffe Ihr könnt mir helfen.
In einem Tabellenblatt ist in den Spalten I und J ein "Von" "Bis" Datum eingetragen.
Ich möchte jetzt Alle Daten die in Spalte A und B (Name, Vorname) eingetragen sind in ein neues Tabellenblatt kopieren, wenn das Datum "Von" "Bis" mit dem Aktuellen Datum übereinstimmt.
Leider hab ich keinen Schimmer wie ich anfangen soll.
Gruss Harald.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Zeitspanne kopieren.
12.08.2006 13:48:11
ChrisL
Hallo Harald
Here we go...

Private Sub Worksheet_Activate()
Dim iZeile As Long
Application.ScreenUpdating = False
Range("A2:B65536").ClearContents
With Worksheets("Tabelle1")
For iZeile = 2 To .Range("A65536").End(xlUp).Row
If CDate(.Cells(iZeile, 9)) < Now And CDate(.Cells(iZeile, 10)) > Now Then _
.Range(.Cells(iZeile, 1), .Cells(iZeile, 2)).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next iZeile
End With
Application.ScreenUpdating = True
End Sub

Dein erstes Tabellenblatt hat den Namen Tabelle1 (Code anpassen).
Alt + F11, links Doppelklick auf die zweite Tabelle, Code einfügen.
Code wird bei Wechsel von Tabelle1 auf dein zweites Tabellenblatt ausgeführt (Worksheet Activate Ereignis).
Viel Spass
Chris
Anzeige
AW: Daten in Zeitspanne kopieren.
13.08.2006 09:39:30
Harald
Hallo Chris !
Ich bin begeistert, Du bist der Grösste, es funzt top.
Vielen tausend Dank, mach weiter so.
Gruss Harald

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige