Datum suchen und Inhalte kopieren die 2te
03.06.2013 08:22:45
Toumas
Am Freitag habe ich dank der Hilfe hier im Forum unten stehendes Makro erhalten :
Sub Einfügen_der_Werte_beim_tagesaktuellen_Datum()
Dim varZ As Variant
With Worksheets("Postvolumen")
varZ = Application.Match(CDbl(Date), .Columns(1), 0)
If Not IsNumeric(varZ) Then
MsgBox Date & "nicht gefunden"
Else
.Cells(varZ, 12).Resize(9, 10).Value = Worksheets("Hilfsblatt").Range("C15:N23").Value
End If
End With
End Sub
Nun hat sich ein Problem für mich ergeben. Ich wollte das Makro soweit ändern, dass nicht mehr das tagesaktuelle Datum, sondern ein individuelles Datum gesucht wird.
Trotz der Suchfunktion im Forum und Google bin ich leider nicht fündig geworden (oder ich gebe die falschen Begriffe ein)
Die Änderung sieht wie folgt aus :
Sub Datum_individuell_suche ()
Eingabe = InputBox("Bitte das Datum der gewünschten Datei eingeben. Format TT.MM.JJJJ")
Sheets("Postvolumen").Select
With Worksheets("Postvolumen")
varZ = Application.Match(CDbl(Eingabe), .Columns(1), 0)
If Not IsNumeric(varZ) Then
MsgBox Eingabe & " nicht gefunden"
Else
.Cells(varZ, 23).Resize(9, 12).Value = Worksheets("Hilfsblatt").Range("C15:N23").Value
End If
End With
End Sub
Hat mir bitte jemand einen Tipp ?
Vielen Dank im Voraus.
Toumas
Anzeige