konnte gestern eines meiner Probleme mit Hilfe au diesem Forum wunddderbar lösen (danke Matthias).
Mit unten stehender Formel habe ich variablen deklariert, diese wollte ich in einem anderen Workbook übergeben. Und zwar auf die gleiche Weise. Aktuelles Datum finden, Zeile bestimmen und in eine definierte Spalte einfügen. Nur klappt das aus irgendeinem Grund nicht. Ich bekomme auch keine Fehlermeldung.
Zum einfügen habe ich einfach
Cells(MyDate.Row, "XY").Value = Var1
verwandt.
was kann da falsch sein?
Hier der Code um die Variable zu finden.
Option Explicit
Sub ml()
Dim MyDate, Var1$
With ActiveSheet
Set MyDate = .Columns(1).Find(What:=Date, LookAt:=xlWhole)
End With
Var1 = Cells(MyDate.Row, "AZ").Value
MsgBox "Inhalt Variable(Var1): " & Var1
End Sub
Ausserdem brauche ich eigentlich das Datum von gestern, schreibe ich aber
With ActiveSheet
Set MyDate = .Columns(1).Find(What:=Date-1, LookAt:=xlWhole)
End With
bekomme ich den Fehler "Erwartet Anweisungsende oder )" oder sowas in der Richtung.
Ds muss doch irgendwie funktionieren?!
Danke nochmal für eure Hilfe
Heiko