Datum finden und Werte einfügen
31.05.2013 08:54:15
Toumas
ich habe mal wieder ein Problem bei dem ich eure Hilfe benötige.
Ich darf aus einer anderen Excel-Datei Werte kopieren und diese in meine neue einfügen. (was ja theoretisch kein Problem ist)
Das Problem ist jedoch, dass ich in der neuen Datei ein Tabellenblatt entwerfen musste in dem jeder Tag des Jahres vorhanden ist.
Die kopierten Werte (die ich mittels eines Hilfsblattes erst mal in vernünftige Formen bringe) sollen in die entsprechend dafür vorgesehene Zelle beim Datum eingefügt werden.
Mein Datum (Format TT.MM.JJJJ) steht in der neuen Datei in der Spalte A (Blatt : Zahlen)
Die Werte die ich kopieren soll, stehen auf dem Reiter "Hilfsblatt" von A2 bis C10
Eingefügt werden sollen die Werte in dem Blatt Zahlen beim jeweiligen Datum aber in Spalte K.
Das Datum finde ich mittels :
Sub Heutige_Datum_finden ()
Dim varZ As Variant, rg As Range
varZ = Application.Match(CDbl(Date), Columns(1), 0)
If Not IsNumeric(varZ) Then
MsgBox Date & "nicht gefunden"
Else
Set rg = Cells(varZ, 3)
rg.Activate
End If
End Sub
Aber wie schaffe ich es, dass nun die Werte aus dem Hilfsblatt genau in die Zeile beim gefundenen Datum in der Spalte K eingefügt werden ?
Vielen Dank schon mal im Voraus.
Viele Grüße
Toumas