VBA - Datei, entsprechend der Zeit die letzte Zeile zur Eingabe und Datum+Zeit

31/10/2009 - 16:55 von RogHB346 | Report spam
Hallo NG

Ich möchte beim öffnen der Datei, entsprechend der Zeit die letzte Zeile
zur Eingabe und Datum+Zeit eintragen.

1. wenn 00:00 bis 16:00 die Spalte A letzte Zeile zur Eingabe und Spalte
F Datum + Uhrzeit eingetragen wird
2. wenn 16:01 bis 23:59 die Spalte H letzte Zeile zur Eingabe und Spalte
L Datum + Uhrzeit eingetragen wird

MfG
Heinz
 

Lesen sie die antworten

#1 Andreas Killer
31/10/2009 - 17:23 | Warnen spam
RogHB346 schrieb:

Ich möchte beim öffnen der Datei, entsprechend der Zeit die letzte Zeile
zur Eingabe und Datum+Zeit eintragen.

1. wenn 00:00 bis 16:00 die Spalte A letzte Zeile zur Eingabe und Spalte
F Datum + Uhrzeit eingetragen wird
2. wenn 16:01 bis 23:59 die Spalte H letzte Zeile zur Eingabe und Spalte
L Datum + Uhrzeit eingetragen wird


Der Code muss in das Codemodul der Mappe, wie's geht steht hier:
http://www.online-excel.de/excel/si....php?fD#s3

Formatiere die Spalte F und L mit einem Datum/Zeit-Format Deiner Wahl.

Andreas.

Private Sub Workbook_Open()
Dim Y As Long
If Time() - TimeSerial(16, 0, 0) > 0 Then
'Nach 16:00h
Y = Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Y).Select
Range("L" & Y) = Now()
Else
'Vor 16:00h
Y = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Y).Select
Range("F" & Y) = Now()
End If
End Sub

Ähnliche fragen