Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zur suche eines Datums

Makro zur suche eines Datums
04.07.2019 12:36:25
Robert
Hi ich versuche dieses Programm so zu verändern das das Datum aus einer bestimmten Tabelle gesucht wird und nicht auf dem ganzen sheet, des weiteren wäre es super wenn die die spalte unter dem Datum genommen und wo anders ausgegeben wird. Würde mich sehr freuen wenn ihr vorschläge für mich habt.
Code:
Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Cells.Find(DateValue(strDate), LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Activate
rngFind.Interior.ColorIndex = 3
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Makro zur suche eines Datums
04.07.2019 13:16:57
Torsten
Hallo Robert, 

Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Sheets("Dein Tabellenname").Range("A1:C5").Find(DateValue(strDate), LookIn:= _
xlFormulas) 'hier deinen Tabellennamen und Sucbereich aendern
If Not rngFind Is Nothing Then
rngFind.Offset(1, 0).Copy
Sheets("Zieltabelle").Range("A1").PasteSpecial  'hier Zieltabelle und Range, wohin kopiert  _
werden soll aendern
Application.CutCopyMode = False
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub
Gruss Torsten
Anzeige
AW: Makro zur suche eines Datums
04.07.2019 13:17:39
Torsten
Hallo Robert, 

Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Sheets("Dein Tabellenname").Range("A1:C5").Find(DateValue(strDate), LookIn:= _
xlFormulas) 'hier deinen Tabellennamen und Sucbereich aendern
If Not rngFind Is Nothing Then
rngFind.Offset(1, 0).Copy
Sheets("Zieltabelle").Range("A1").PasteSpecial  'hier Zieltabelle und Range, wohin kopiert  _
werden soll aendern
Application.CutCopyMode = False
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub

Gruss Torsten
Anzeige
AW: Makro zur suche eines Datums
04.07.2019 15:33:56
Robert
Vielen dank für die schnelle Antwort! Habe die Anpassungen wahrscheinlich falsch vorgenommen es funktioniert nicht.
Fehlermeldung:"index ausserhalb des gültigen Bereichs"
Weisst du woran esliegen könnte ?
Habe es so gemacht:
Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Sheets("Spreadstable").Range("58:58").Find(DateValue(strDate), LookIn:= _
xlFormulas) 'hier deinen Tabellennamen und Sucbereich aendern
If Not rngFind Is Nothing Then
rngFind.Offset(1, 0).Copy
Sheets("Tabelle1").Range("C95").PasteSpecial  'hier Zieltabelle und Range, wohin kopiert _
werden soll aendern
Application.CutCopyMode = False
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub

Userbild
Anzeige
Rows("58:58") ? owT-Gruß
04.07.2019 16:53:27
robert

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige