Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code erweitern

Code erweitern
Einzel
Hallo,
habe folgenden Code
Range("A1") = FileDateTime(Range("B1") & Range("C1"))
Nun möchte ich ihn erweitern. In Spalte C habe ich nicht nur in C1 einen Wert sondern auch in C2, C3 usw.
Dieses ist aber immer unterschiedlich, mal C1-C16 oder C1-C?
Der Code soll also schauen nachdem er sich zum erstenmal ausgeführt hat ob in C2 ein Wert steht. Wenn ja das gleiche für C2 in A2. B1 bleibt gleich. usw.
Hoffe man kann es verstehen.
MfG
Stephan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code erweitern
30.06.2009 13:53:01
Jogy
Hi.

Sub enterFileDateTime()
Dim i As Long
Application.ScreenUpdating = False
With ActiveSheet
For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row
On Error Resume Next
.Range("A" & i) = FileDateTime(.Range("B1") & .Range("C" & i))
If Err.Number  0 Then .Range("A" & i) = "Datei nicht gefunden"
On Error GoTo 0
Next
End With
Application.ScreenUpdating = True
End Sub


Gruss, Jogy

AW: Code erweitern
30.06.2009 14:00:03
Einzel
Super super super.
Genau das wollte ich.
Danke
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige