Datum und Uhrzeit in erste freie Zelle

13/11/2009 - 07:35 von kielhd | Report spam
Hi NG,

ich habe ein kleines VBA-Script geschrieben, das mir einen Fehler
auswirft. Ich bekomme hier beim Aufruf folgenden Fehler:

Laufzeitfehler '1004': Keine Zellen gefunden.

Sub Auto_open()
Dim Zeile As Integer, Spalte As Integer, hugo As Integer

[A:A].SpecialCells(xlBlanks).Cells(1).Select
Selection.NumberFormat = "m/d/yyyy"
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Select
Selection.NumberFormat = "hh:mm"
ActiveCell.Value = Time
ActiveCell.Offset(0, 1).Select

End Sub


Kann hier jemand weiterhelfen?

TIA,
Henning
 

Lesen sie die antworten

#1 Thorsten Albers
13/11/2009 - 13:03 | Warnen spam
kielhd schrieb im Beitrag
...
ich habe ein kleines VBA-Script geschrieben, das mir einen Fehler
auswirft. Ich bekomme hier beim Aufruf folgenden Fehler:
Laufzeitfehler '1004': Keine Zellen gefunden.



Das ist ein 'MS Office-Fehler' und weder ein VBA- noch ein VB-Fehler, daher
solltest Du die Frage in einer dafür geeigneten Newsgroup stellen, d.h.
einem, daß sich mit der fraglichen MS Office-Anwendungen befaßt. Generell
ist diese Newsgroup aber für VBA auch nicht so sehr geeignet, weil es sich
mit Visual Basic (VB) beschàftigt, das in einigen Dingen nicht unerheblich
von VBA abweicht.

Thorsten Albers

albers (a) uni-freiburg.de

Ähnliche fragen