Automatisch Datum in nächste freie Zelle eintragen
#11
Hallo

mein Vorschlag

unter DieseArbeitsmappe

Code:
Private Sub Workbook_Open()
   Dim lngZiel As Long
   With Sheets("Übersicht")
       lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       If lngZiel < 4 Then lngZiel = 4
       .Cells(lngZiel, 1).Value = Date
   End With
End Sub
MfG Tom
Antworten Top
#12
@ich: ja, die Arbeitsmappe heißt "Übersicht"
@Tom: Danke, aber leider funktioniert das auch nicht.

Muss ich Änderungen in den Optionen machen? Die Datei ist als als .xlsm abgespeichert!
Antworten Top
#13
Hallo Nuno,

ändern musst Du nichts. xlsm ist die richtige Endung für Arbeitsmappen mit Makros.
Der Code von Tom sollte funktionieren. Er gehört dann aber wieder hinter "Diese Arbeitsmappe", so wie Tom es schon schrieb.
Ich hatte sinniger Weise überlesen, dass das Macro beim Öffnen der Mappe ausgeführt werden soll.

Wenn das aber alles nicht funktioniert, stell bitte eine Musterdatei ein.

Gruß
Ich
Antworten Top
#14
(21.11.2016, 15:31)IchBinIch schrieb: Hallo Nuno,

ändern musst Du nichts. xlsm ist die richtige Endung für Arbeitsmappen mit Makros.
Der Code von Tom sollte funktionieren. Er gehört dann aber wieder hinter "Diese Arbeitsmappe", so wie Tom es schon schrieb.
Ich hatte sinniger Weise überlesen, dass das Macro beim Öffnen der Mappe ausgeführt werden soll.

Wenn das aber alles nicht funktioniert, stell bitte eine Musterdatei ein.

Gruß
Ich

Gerne, hier die Datei.
.xlsm   Test.xlsm (Größe: 17,38 KB / Downloads: 6)
Antworten Top
#15
Hi,

da stand in Zeile 46499 noch irgendwo etwas drin :32:
Da unten wurde dann alles eingetragen :19: .

So geht's jetzt.

Gruß
Ich


Angehängte Dateien
.xlsm   Test.xlsm (Größe: 16,55 KB / Downloads: 3)
Antworten Top
#16
Hallo,

Zitat:@ich: ja, die Arbeitsmappe heißt "Übersicht"

@Tom: Danke, aber leider funktioniert das auch nicht.

der Code von Ich läuft korrekt durch, wenn das Arbeitsblatt "Übersicht" heißt,
"Übersicht" ohne irgendwelche Leerzeichen ist, und es sich um das aktive Blatt handelt.
Antworten Top
#17
Hallo Peter,

lade Dir mal die Datei von Nuno herunter und springe in die erste belegte Zelle unterhalb von A5 :32:

Gruß 
Ich
Antworten Top
#18
Perfekt, vielen Dank für Eure Hilfe!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste