Live-Forum - Die aktuellen Beiträge
Datum
Titel
21.05.2025 21:52:44
Doppelte Wert suchen und zählen
21.05.2025 13:33:29
Automatisch ein Kontrollkästchen aktivieren lassen
21.05.2025 11:45:40
aus Zellen-Name Hyperlink erstellen
21.05.2025 09:46:36
letzten 2 Werte aus einer Spalte
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmten Range Zeitabhängig auslesen

Forumthread: bestimmten Range Zeitabhängig auslesen

bestimmten Range Zeitabhängig auslesen
08.10.2003 14:12:15
Joachim Volker
Hallo Leute

Ich hätte wieder mal eine Frage,Bitte

Wie schaffe ich es, damit beim öffnen einer Arbeitsmappe
mit zwei Tabellen "Tabelle1" und "Tabelle2"

Abhängig vom Systemdaum eine bestimmte Zeile in Tabelle1 angezeigt wird.

Beispiel:
In Tabelle2 befinden sich in Range("A2:E15")bestimmte Zeitwerte.

Sollte das Tagesdatum (Systemdatum) in einem Bereich aus z.B

A13:B13 fallen, sollte die ganze Zeile in diesem Fall Zeile 13

Range("A12:E12") in Tabelle1 Range("B2:F2") angezeigt werden.

Danke für die Mühe

Joachim Volker

Die Datei https://www.herber.de/bbs/user/1329.xls wurde aus Datenschutzgründen gelöscht

Anzeige

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

Kategorie
Datum
Tags
#datenabgleich #datumformatierung #zeitabhängigkeit
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: bestimmten Range Zeitabhängig auslesen
08.10.2003 17:25:53
ChrisL
Hi Joachim

Siehe Anhang...
https://www.herber.de/bbs/user/1340.xls

Option Explicit


Sub Abgleich()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Range("B2:F2").ClearContents
For iZeile = 2 To WS2.Range("A65536").End(xlUp).Row
If WS2.Cells(iZeile, 1) <= Date And WS2.Cells(iZeile, 2) >= Date Then
WS1.Range("B2:F2") = WS2.Range("A" & iZeile & ":E" & iZeile).Value
Exit For
End If
Next iZeile
End Sub


Gruss
Chris
Anzeige
AW: Spitze
08.10.2003 18:46:07
Joachim Volker
Hallo Chris

SUPER !!!! FUNKTIONIERT WIE ES SEIN SOLL ...

VIELEN DANK FÜR DIE HILFE

PS:EINE FRAGE NOCH FALLS DU GERADE ONLINE BIST

In meiner Lokalen Tabelle macht er trotz Format-Einstellung auf Datum

ein falschen Datumsformat beim abfragen.

[ 10.08.2003 10/14/2003 01.07.1900 10/23/2003 10/31/2003]

siehe 2.- 4. und 5. Spalte ...
Anzeige
AW: Spitze
09.10.2003 19:32:21
ChrisL
Hi Joachim

Versuchs mal hiermit...

Option Explicit


Sub Abgleich()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Range("B2:F2").ClearContents
For iZeile = 2 To WS2.Range("A65536").End(xlUp).Row
If WS2.Cells(iZeile, 1) <= Date And WS2.Cells(iZeile, 2) >= Date Then
WS1.Range("B2") = CDate(WS2.Range("A" & iZeile))
WS1.Range("C2") = CDate(WS2.Range("B" & iZeile))
WS1.Range("D2") = Format(WS2.Range("C" & iZeile), "00")
WS1.Range("E2") = CDate(WS2.Range("D" & iZeile))
WS1.Range("F2") = CDate(WS2.Range("E" & iZeile))
Exit For
End If
Next iZeile
End Sub


Sorry war den ganzen Tag an einer 'Konferenz'. Wie ging das noch gleich... 'A meeting is a place where minutes are taken and hours are lost.'

Viel Spass... tschüss

Chris
Anzeige
AW: Spitze
10.10.2003 22:00:04
JoachimVolker
Hallo Chris

Danke ...kann dir erst am Samstag Rückmeldung geben ob es funktioniert hat.

JoachimVolker

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