Nach Datenübernahme autom. aktuelles Datum
20.04.2005 20:11:16
Erwin
ich bekomme per e-Mail mehrere Excel-Dateien. Die Daten kopiere ich und übernehme sie alle in eine zentrale Datei. Mithilfe dieses Forums habe ich mir folgende Prozedur zusammengebastelt:
Private Sub cmdDatenuebernahme_Click()
Dim daten As Object
Dim ziel As Worksheet
Dim lastRow As Long
kw = InputBox("Bitte Kennwort für Datenübernahme eingeben", "Datenübertragungsberechtigung")
Set daten = ActiveWorkbook.Sheets("Gesamtdaten")
Set ziel = Workbooks("ZenErfRun").Sheets("Gesamtdaten")
If kw = "xxx" Then
lastRow = ziel.Range("A65536").End(xlUp).Row + 1 'erste freie Zeile in ziel
daten.Range(daten.Cells(3, 1), daten.Cells(daten.Cells(65536, 1).End(xlUp).Row, 33)).Copy
ziel.Cells(lastRow, 1).PasteSpecial xlPasteValues
lastRow = ziel.Range("A65536").End(xlUp).Row + 1
Application.CutCopyMode = False
Else
MsgBox "Es wurde kein oder ein falsches Kennwort eingegeben!", , "Datenübertragungsberechtigung"
Exit Sub
End If
End Sub
Das klappt auch wunderbar. Jetzt möchte ich aber zusätzlich, wenn die Datenübernahme in die zentrale Datei "ZenErfRun" erfolgt ist, in Spalte AH für alle übernommenen Datensätze das jeweils aktuelle Datum automatisch schreiben lassen für ein späteres Filtern nach Datum. Das Datum wird mit den Quelldaten aus den E-Mails nicht mitgeschickt, weil ich immer das Datum brauche, wenn ich die Daten mit der Schaltfläche "cmdDatenuebernahme_Click" übernehme.
Es können zwischen 5 und 50 Datensätze pro E-Mail übersandt werden.
Ich bin mit meiner Weisheit jetzt aber am Ende. Wer hat eine Lösung, wie ich an Ende eines jeden übertragen Datensatzes das akt. Datum autom. setzen kann.
Bin für jede Antwort dankbar
Schöne Grüße
Erwin