VBA Makro - Werte neben aktuelles Datum kopieren

[marcelut]

Hallo zusammen,

ich stehe vor folgender Herausforderung und da meine VBA Künste noch nicht wirklich ausgereift sind, wäre es super wenn mir jemand helfen könnte.

Ich möchte aus dem Tabellenblatt ("Tagesdaten") die Zeilen C3:E3 mit Hilfe eines Makros in das Tabellenblatt "Daten" kopieren. Das funktoniert mittlerweile auch. Nun kommt die Schwierigkeit dazu, dass die Daten aus "Tagesdaten" automatisch in die Zeile "neben" der des gestrigen Tages kopiert werden soll. (also genau genommen in die Zeilen E.. bis G..).
Die Datums sind im Zellenbereich "B3 - B..." des Tabellenblatts "Daten" bereits aufgelistet. 

Ich hoffe ich habe mich genau genug ausgedrückt und bedanke mich bereits für die Antworten.

Beste Grüße,

marcelut

[Jonas0806]

Hallo,

lade doch bitte mal eine anonymisierte Beispieldatei hoch.

Gruß Jonas

[marcelut]

Hallo Jonas,
anbei die gewünschte Beispieldatei. Ich hoffe das funktioniert so.

Beste Grüße.

[Jonas0806]

Ich möchte aus dem Tabellenblatt ("Tagesdaten") die Zeilen C3:E3 mit Hilfe eines Makros in das Tabellenblatt "Daten" kopieren. Das funktoniert mittlerweile auch.

Hallo,
deine Datei enthält keine Makros...

ps: Auch alle anderen Angaben stimmen nicht mit der Mappe überein.

Gruß Jonas

[marcelut]

Entschuldige, ich war etwas in Eile.

Jetzt die Beispieldatei wie vorhin beschrieben.

Grüße,
Marcel

[Jonas0806]

Jetzt die Beispieldatei wie vorhin beschrieben.

Hallo Marcel,

und wo?...

Gruß Jonas

[marcelut]

Hallo Marcel,

und wo?...

Gruß Jonas

ist sie nicht unter meinem Beitrag???

[Jonas0806]

ist sie nicht unter meinem Beitrag???

Hallo Marcel,

nach deinem Edit schon ;)

Hier eine Möglichkeit, ohne jede Fehlerbehandlung!

Code:

Option Explicit

Private Sub CommandButton21_Click()
   Dim rngFound As Range
   
   With Tabelle1
       Set rngFound = Tabelle2.UsedRange.Find(.Range("B3").Value)
       rngFound.Offset(0, 3).Value = .Range("C3").Value
       rngFound.Offset(0, 4).Value = .Range("D3").Value
       rngFound.Offset(0, 5).Value = .Range("E3").Value
   End With
End Sub

Gruß Jonas

[marcelut]

Hallo Jonas,

hab deinen Code nun etwas an die Datei, in welcher er funktionieren muss angepasst und siehe da, es funktioniert.

Vielen Dank, trotz den anfänglichen Schwierigkeiten meinerseits :D

:35:

Beste Grüße aus dem Süden,

MarcelUt