VBA Datum suchen und Daten übertragen

Moin Moin,
ich habe in diesem archiviertem Beitrag nach einer Lösung zum suchen nach einem Datum per VBA gesucht.
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1887665#1887979
Dieser hat auch in meiner Beispieldatei funktioniert.
Jetzt habe ich das Datum in der Datei von Januar auf Januar-Dezember erweitert.
Auch den Bereich in dem gesucht wird im Code angepasst.
Wenn ich jetzt nach z.B. dem 14.11.2022 suche, findet der Code den 14.01.2022.
Was mache ich falsch?
Es scheint das nur nach dem 14. gesucht wird und mir das erste Ergebnis ausgespuckt wird.
Die Zellen sind alle als Datum formatiert.


Sub Speichern()
Dim rngTag As Range
Set rngTag = Sheets("Speicher_einteilung").Range("M30:NN30"). _
Find(Format(Sheets("Einteilung").Range("C2"), "d"), LookIn:=xlValues, lookat:=xlWhole)
If Not rngTag Is Nothing Then
Sheets("Einteilung").Range("AI6:AI68").Copy
Sheets("Speicher_einteilung").Cells(32, rngTag.Column).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Format(Datum, "d") erzeugt eine Text-Ganzzahl zwischen 1 und 31
Du suchst aber ein Datum im Bereich M30:NN30
Ein Datum findet man in VBA zuverlässig mittels Application.Match(Datum, Bereich, 0)
Dies liefert die Spaltenzahl des Bereichs.
Wenn "vor" M30 kein Datum steht, sollte man den Bereich gleich auf die ganze Zeile ausweiten, erspart späteres Umrechnen.
Auch wenn eine Zahl erwartet wird, sollte man die Variable als Variant deklarieren.
Ein Variant kann nämlich auch einen Fehlerwert aufnehmen, wenn das Suchdatum nicht gefunden wird!
Wenn Deine Daten lückenlos aufsteigend eingetragen sind (wovon bei Range("M30:NN30").Columns.Count = 366 auszugehen ist), kannst Du Dir diese ganzen Verrenkungen auch schlicht sparen und die Spalte einfach ausrechnen!
Heute beispielsweise ist der 176ste Tag des Jahres.
Einfachst zu errechnen mittels


Format(Date, "y")

Gruß Ralf

Sub Speichern2() Dim Spalte As Long Dim Tag As Long With Sheets("Einteilung") Tag = .Range("C2") - DateSerial(Year(.Range("C2")), 1, 1) + 1 Spalte = lngTag + 12 '(Spalte M= 13) .Range("AI6:AI68").Copy End With Sheets("Speicher_einteilung").Cells(32, Spalte).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

Sub Speichern2() Dim Spalte As Long Dim Tag As Long With Sheets("Einteilung") Tag = .Range("C2") - DateSerial(Year(.Range("C2")), 1, 1) + 1 Spalte = Tag + 12 '(Spalte M= 13) .Range("AI6:AI68").Copy End With Sheets("Speicher_einteilung").Cells(32, Spalte).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

VBA Datum suchen und Daten übertragen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Datum suchen und Daten übertragen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread