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
@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!
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
(21.11.2016, 14: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.[
attachment=8076]
Hi,
da stand in Zeile 46499 noch irgendwo etwas drin :32:
Da unten wurde dann alles eingetragen :19: .
So geht's jetzt.
Gruß
Ich
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.
Hallo Peter,
lade Dir mal die Datei von Nuno herunter und springe in die erste belegte Zelle unterhalb von A5 :32:
Gruß
Ich
Perfekt, vielen Dank für Eure Hilfe!