Hallo biggx,
nachfolgender Code sollte das machen, was Du DIr vorstellst. Es wird ein EIngabefenster zur Datumseingabe geöffnet. Nach der Eingabe wird anhand einer Schleife das eingetragene Datum in Spalte A gesucht. Wenn gefunden, wird der Bereich des gefundenen Datums kopiert und ab Zelle J4 eingefügt.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Finden_und_kopieren()
Dim intRow As Integer
Dim varEingabe As Variant
'Datumseingabe
varEingabe = InputBox("Bitte Suchdatum eingeben")
'Wenn eingetragenes Datum nicht einem Datumswert entspricht, Prozedur _
beenden
If IsDate(varEingabe) = False Then Exit Sub
'Schleife zum Finden des eingetragenen Datums
For intRow = 4 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Wenn eingetragenes Datum gleich dem Datum der durch die Schleife _
angesprochene Zelle dann...
If CDate(ActiveSheet.Cells(intRow, 1)) = CDate(varEingabe) Then
'...Bereich A:E des gefundenen Datumsbereichs kopieren und in _
J4 einfügen und...
With ActiveSheet
.Range(Cells(intRow, 1), Cells(intRow + 95, 5)).Copy _
.Range ("J4")
End With
'...Schleife verlassen
Exit For
End If
Next
End Sub
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
