Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum suchen u im Tabelle finden

Datum suchen u im Tabelle finden
29.11.2019 15:00:53
Achim H.

Hallo Excel Freunde
Wer kann mit einem Makro helfen?
Ich habe im Sheets("Tageseinteiler").Range("B3") ein Datum eingetragen.
Nun möchte ich das, dass Makro im Sheets("Kalender").Range("A4:NH4") nach dem Datum sucht.
Dankeschön schon mal und Gruß
Achim H.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum suchen u im Tabelle finden
29.11.2019 15:05:03
Hajo_Zi
Hallo Achim,
aktuelles Datum suchen
Option Explicit
Sub Test()
'   Heutiges Datum in Spalte A (1) suchen von Basti Spotlight
'   es wird die Zeile ausgegeben
MsgBox Application.Match(CDbl(Date), Columns(1), 0)
End Sub

AW: Datum suchen u im Tabelle finden
29.11.2019 15:24:16
Achim H.
Hallo Hajo
Danke für die Rückmeldung. Leider ist das gewünschte Ergebnis nicht das was ich suche.
Gruß Achim H.
AW: Datum suchen u im Tabelle finden
29.11.2019 15:30:23
Hajo_Zi
Gut Du möchtest nicht mitteilen welches Ergebnis Du haben möchtest.
Ich bin dann raus.
Viel Erfolg noch.
Gruß Hajo
Anzeige
AW: Datum suchen u im Tabelle finden
30.11.2019 06:57:35
hary
Moin
So passt es. 
Sub Datum_suchen()
Dim a As Variant
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Worksheets("Tageseinteiler")
Set wksZ = Worksheets("Kalender")
a = Application.Match(CLng(wksQ.Cells(3, 2)), wksZ.Rows(4), 0)
If IsNumeric(a) Then '-- Variabele a erhaelt die Spaltennummer
MsgBox wksZ.Cells(4, a).Address
End If
Set wksQ = Nothing
Set wksZ = Nothing
End Sub

gruss hary
AW: Datum suchen u im Tabelle finden
30.11.2019 07:08:02
Achim H.
Hallo Hary
Volltreffer . Dankeschön für die Hilfe.
Gruß Achim H.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige