aktuelles Datum
Frank
' heute = today()
Windows("datenbasis1.xls").Activate
Sheets("Sheet1").Activate
v_pos = Sheets("Sheet1").Range("T2").Value