Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datum suchen und Daten übertragen

Forumthread: VBA Datum suchen und Daten übertragen

VBA Datum suchen und Daten übertragen
25.06.2022 03:13:35
Dirk
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Datum suchen und Daten übertragen
25.06.2022 09:55:43
RPP63
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
Anzeige
AW: VBA Datum suchen und Daten übertragen
25.06.2022 10:25:45
GerdL
Moin,
die Kombination von Datum per Formel gesetzt und Zellenformat "Tag" ist imho für Match unmöglich u. für Find bei mehreren Monaten ebenso. Da hilft durchrechnen der Zellenposition oder die Datümer ohne Formel eintragen.
Gruß Gerd.
AW: VBA Datum suchen und Daten übertragen
25.06.2022 10:47:40
RPP63
Moin!
Ich hatte mir die Archiv-Datei nicht angesehen.
Wenn da nur Tageszahlen stehen, hast Du natürlich Recht, Gerd.
Zum Glück ;) hatte ich ja ebenfalls dargestellt, wie einfach man die Tageszahl eines Tags im lückenlosen Jahr ermitteln kann.
Gruß Ralf
Anzeige
AW: VBA Datum suchen und Daten übertragen
25.06.2022 23:27:43
Dirk
Moin,
uff ok. Also die Zeile ausrechnen.
Und wie mache ich das?
Ich brauche einen "Speicher Button" der mir die Daten an die richtige stelle kopiert.
Also z.B. aus "Arbeitsblatt1" in Zelle A1 das Datum nimmt, in "Arbeitsblatt2" in Zeile 30 die Zelle ausrechnet und aus "Arbeitsblatt1" B1 bis B10 unter die gefundene Zelle kopiert. :/
Anzeige
AW: VBA Datum suchen und Daten übertragen
26.06.2022 11:06:33
GerdL
Hallo Dirk!
Der Kalender darf ab M30 nach rechts keine Lücken haben und die Datumszelle braucht einen passenden Eintrag.
Ohne Plausibilitätsprüfungen:

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
Gruß Gerd
Anzeige
AW: korrigiert
26.06.2022 11:10:20
GerdL 

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

Anzeige
;

Forumthreads zu verwandten Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Anzeige
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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