Datum setzen
01.03.2008 09:36:47
Tom
ich habe ein Problem mit einem VBA-Script welches mir das aktuelle Systemdatum setzen soll.
Mein Script ZahlenSuchen() sucht aus einem Excelsheet eine Rechnungsnummer, ist die Rechnungsnummer vorhanden soll er mir das Systemdatum und ein "x" setzen. Nachdem er mir das "x" gesetzt hat wird dieser Datensatz in eine zweite Tabelle kopiert, und in der Ursprungstabelle gelöscht.
Das klappt schon ganz gut, nur wenn ich heute die Tabelle öffne, meine Rechnungsnummern prüfe und eintrage, werden die Datumsfelder in der Tabellenkopie von gestern mit dem heutigen Datum überschrieben, das sollte leider nicht so sein ;-(((
Mein Script sieht im Moment so aus:
Sub ZahlenSuchen()
Dim rng As Range
Dim LSNR As String
Dim RowIndex as Integer
Dim c As Variant
Dim sTitle1 As String
sTitle1 ="Verbringungsnachweis eintragen:"
Columns("A:A").Select
LSNR = InputBox(prompt:="Bitte Invoice Nummer eingeben:", Title:=sTitle1)
If LSNR = "" Then Exit Sub
LSNR = CLng(LSNR)
Set rng = Columns(1).Find(What:=LSNR, LookAt:=xlWhole, LookIn:=xlValues)
If rng Is Nothin Then
Beep
MsgBox "Invoice Nummer wurde nicht gefunden!"
Call ZahlSuchen
Exit Sub
End If
For Each c In Range("A:A")
If c.Value = LSNR Then
c.Offset(0, 13) ="=NOW()"
c.Offset(0, 11) ="x"
Call ZahlenSuchen
Exit Sub
End If
Next
End Sub
Für eine Tipp und Eure Hilfe bedanke ich mich im Voraus.
Thomas