VBA Werte in bestimmte Zeile kopieren

Ein herzliches Hallo zusammen!
Ich habe hier schon einige wertvolle Tips gefunden. Es ist ja so, dass einige/viele das gleiche Problem lösen möchten.
Trotz intensiver Suche habe für meine aktuelle Frage noch keine Antwort gefunden. Ich habe viel gesucht und gefunden, schaffe es aber nicht, die Beispiele auf meine Frage zu adaptieren.
Ausgangslage:
Ich habe eine Excel-Datei mit mehreren Tabellenblättern. Im Tabellenblatt REPORT steht in der Zelle C5 ein (beliebiges) Datum. In der gleichen Zeile stehen im Bereich D5 bis X5 Daten. Im Bereich C9 bis C373 steht das fortlaufende Datum, beginnend mit dem 01.01.2022 bis zum Jahresende.
Gewünschte Lösung:
Ich möchte nun in jene Zeile die Daten aus Zeile 5 kopieren, in der das Datum aus Spalte C9:C373 mit dem Datum von C5 übereinstimmt.
Angenommen, das Datum findet sich in C200, dann sollte D5:X5 nach D220:X220 kopiert werden.
Vielen Dank für eure Unterstützung.
LG Gerhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lrgFindDate As Range If Target.Address = "$C$5" Then If Target.Value "" And IsDate(Target.Value) Then Set lrgFindDate = Range("C9:C373").Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole) If Not lrgFindDate Is Nothing Then Range("C5:X5").Copy Range("C" & lrgFindDate.Row) Set lrgFindDate = Nothing End If End If End If End Sub

Hi,
weil das Worksheet_Change-Ereignis nur im jeweiligen Klassenmodul funktioniert.
Und..ähh?...im Klassenmodul, egal welches, sind auch alles Makros, bzw VBA-Befehle.
(ich vermute, deine irreführende Frage "...Sorry, warum Klassenmodul und nicht Makro?..." kommt daher, weil du dich mit VBA noch nicht so gut auskennst)
Natürlich könntest du meinen Code auch in einem allgemeinen Modul unter...


Sub Buchen()
...hier mein Code ohne die Private Sub + End Sub Zeilen
End Sub

...speichern.
Aber dann müsstest du dafür sorgen, dass der richtige Wert (Inhalt aus Zelle C5) im richtigen Moment an das Makro "Buchen" übergeben wird, und dass im Makro "Buchen" korrekt auf das richtige Tabellenblatt referenziert wird.
Wenn du per Upload eine Bsp-Datei mit ausreichend vielen Bsp-Datenzeilen zeigst, kann ich versuchen, dir den Code in die Bsp-Dateie einzubauen.
Ciao
Thorsten

Sub Buchen() If WorksheetFunction.CountIf(Worksheets("REPORT").Range("C9:C373"), _ Worksheets("REPORT").Range("C5").Value) Then Worksheets("REPORT").Range("D5:X5").Copy _ Worksheets("REPORT").Cells(Application.Match(CLng(CDate(Worksheets("REPORT").Value)), _ Worksheets("REPORT").Range("C9:C373"), 0) + 8, 4) End If End Sub

Sub Buchen() If WorksheetFunction.CountIf(Worksheets("REPORT").Range("C9:C373"), _ Worksheets("REPORT").Range("C5").Value) Then Worksheets("REPORT").Range("D5:X5").Copy _ Worksheets("REPORT").Cells(Application.Match(CLng(CDate(Worksheets("REPORT").Range("C5").Value)), _ Worksheets("REPORT").Range("C9:C373"), 0) + 8, 4) End If End Sub

Sub Buchen_2() Dim Zeile As Long With Worksheets("REPORT") If WorksheetFunction.CountIf(.Range("C9:C373"), .Range("C5").Value) Then Zeile = Application.Match(CLng(CDate(.Range("C5").Value)), .Range("C9:C373"), 0) + 8 .Range("D" & Zeile & ":X" & Zeile).Value = .Range("D5:X5").Value End If End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA Werte in bestimmte Zeile kopieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Werte in bestimmte Zeile kopieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread