AW: Datum und dazugehöriger Wert addieren
09.01.2010 13:46:19
Hans
Hallo Sepp, danke für die Hilfe.
Das VBA Skript schreibt alle Wert die in einem Tabellenblatt eingegeben werden in eine Zeile in der Datei Auftrag.xls
Datum = Range("datum")
Windows("Auftrag.xls").Activate
With Sheets("Daten").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(spe8, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
GoTo weiter
End If
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select 'letzte leere zelle
GoTo weiter
End With
weiter:
ActiveCell.Select
ActiveCell = spe8
Selection.Offset(0, 1) = RechnungsNr
Selection.Offset(0, 2) = KundenNr
Selection.Offset(0, 3) = GeraeteNummer
Selection.Offset(0, 4) = ExterneNummer
Selection.Offset(0, 5) = AuftragsDatum
Selection.Offset(0, 6) = RechnungsDatum
ActiveWorkbook.Save
Noch etwas, bei dem Skript das du mir zum löschen der Uhrzeit gegeben hast entsteht ein problem
ab 12 Uhr wird es auf den nächten Tag geschrieben.
lg
Hans