Datum suchen und werte enifügen

Question

Guten Morgen,

Ich hoffe einer von euch kann mir helfen.
Ich habe eine Excel Datei, mit zwei Tabellenblättern.
In Tabelle 1 stehen untereinander in Spalte A Datumswerte 01.01.2011, 02.01.2011, usw (für das gnze Jahr. In den Spalten B bis M sollen Daten eingefügt werden.
Diese Daten befinden sich in Tabelle 2.

Nun bräuchte ich ein Marko das in Tabelle2 die Zelle A1 auslist (dort ist ein datum enigetragen) und dieses datum in Tablle 1 sucht. Anschließend sollen die Werte die In tablle 2 in den Zellen A3 bis M3 stehen neben das zuvor gesuchte Datum in Tabelle 1 kopiert.

Hoffe ich konnte es halbwegs klar beschreiben.
Vielen Dank schonmal für eure Hilfe.

Sascha

Answer 1

Hallo Sascha,

warum ein Makro, dafür gibt es doch die Tabellenfunktion SVERWEIS()

Wenn das gesuchte Datum in Tabelle1 Zelle A1 steht, dann schreibst Du un B1 folgende Formel und ziehst sie nach rechts bis in Salte M.

=WENN(ISTNV(SVERWEIS($A1;Tabelle1!$A:$M;SPALTE(A1);0));"";SVERWEIS($A1;Tabelle1!$A:$M;SPALTE(A1);0))

Gruss
Rainer

Answer 2

Korrektur

Es muss richtig heißen:

Wenn das gesuchte Datum in Tabelle2 Zelle A1 steht

Gruss
Rainer

Answer 3

Das Problem ist das sich die werte aus Tabelle2 täglich ändern.
Somit greift die Formel nur für einem Tag.
Am nächsten tag sind die werte wieder weg.

Ich bezwecke aber das die Werte aus Tabelle2 beim entsprechenden Datum in Tabelle1 "reinkopiert" werden, so das ich am ende des Jahres einen kompleten Überblick habe wieviele artikel an an welchem Tag benötigt wurden.

Answer 4

Hallo Sascha,

anbei eine Beispielmappe

Gruss
Rainer

Answer 5

Hallo Rainer,

schon mal vielen Dank für die schnelle Hilfe!
Das Marko ist super, ich bräuchte nur eine kleine verbesserung:

Derzeit kopiert das Makro direkt die Zelle, sprich auf Tabelle1 wird die Formel eingetragen.
Da sich die Werte in Tabelle2 aber durch Formeln zusammensetzen sollten nur die in dem Moment errechneten Werte übertragen werden

Danke für die Hilfe,

Sascha

Answer 6

Hallo Sascha,

anbei der geänderte Code

Option Explicit

Sub uebertragen()
Dim lngDat As Long, rngC As Range
lngDat = Worksheets(2).Range("A1").Value
For Each rngC In Worksheets(1).Range("A1:A366")
If rngC.Value = lngDat Then
Worksheets(2).Range("A1:M1").Copy
Worksheets(1).Select
Range("A" & rngC.Row).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
End If
Next
Worksheets(1).Select
Range("A1").Select
End Sub

Gruss
Rainer

Answer 7

Genial!
Funtkioniert perfekt!

Danke und schönen Abend.