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
Das Makro suchte mir auch ganz brav mein Datum und hat mir den Inhalt aus anderen Zellen dann eingefügt.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
Leider erhalte ich nun jedesmal die Fehlermeldung : XX.XX.XXXX nicht gefunden.Hat mir bitte jemand einen Tipp ?
Vielen Dank im Voraus.
Toumas