Office: Aktuelles Datum in Spalte finden

Hallo zusammen,
ich habe eine Datei, in der ich in Spalte C das Datum vom ganzen Jahr habe. Jetzt möchte ich gerne, dass wenn ich die Datei aufmache, der Courser automatisch zum aktuellen Datum springt. Ich als Anfänger dachte es würde damit gehen aber leider funktioniert das nicht > was mache ich falsch? In Zelle o1 ist das aktuelle Datum durch die Funktion =heute()

Sub aktuellesdatum()
Range("C4").Select
While ActiveCell O1
ActiveCell.Offset(1, 0).Activate
Wend
End Sub


Viele Grüße
Bernd

:)

 

Hi Bernd,
eine dringende Empfehlung: Arbeite mit Option Explicit.

Wenn du in VBA im Menü Extras - Optionen, Karte "Editor"
die Option "Variablendeklaration erforderlich" aktivierst,
schreibt der VBA-Editor automatisch "Option Explicit" als erste Zeile in jedes neue Modul.

Zu Option Explicit schau auch mal z. B. hier:

 

Hallo Erich,
hab vielen Dank! Funktioniert perfekt!

Könntest du mir noch den Befehl verraten, der den Makro beim Öffnen der Datei ausführt?

Gruß Bernd

 

Hallo Erich,
hat sich erledigt. Hab den Sub "Private sub Workbook_open()" benannt und in "Diese Arbeitsmappe" geschrieben, jetzt funktioniert es.

Trotzdem hätte mich der VBA-Befehl interessiert, der beim Öffnen einer Datei einen Makro startet.

Hab vielen Dank!
Gruß Bernd

 

Hi Bernd,
das klingt ja fast militärisch: "Befehl", "verraten". *grins

Schön, dass es funktioniert. Wesentlicher wäre für mich gewesen, ob du dir das mit dem "Option Exlicit" zu Gemüte geführt hast,
vielleicht auch deinen alten Code mal unter dieser Option zu kompilieren versucht hast.

Ein "Befehl" wird nicht beim Öffnen eines Workbooks ausgeführt.
Wohl aber eine Ereignisprozedur namens Workbook_Open() - aber nur, wenn die Ausführung von VBA-Code zugelassen ist/wird.

Such doch in dr VBA-Hilfe, hier oder in anderen Foren mal nach Workbook_Open. Da findest du viele Beispiele.

Ein Tipp:
Die Propzedur Workbook_Open() gehört in den Code von "DieseArbeitsmappe", nicht in ein allg. Modul.
Noch ein Tipp:
Falls das Workbook mehrere Blätter enthält, solltest im Workbook_Open() oder in aktuellesdatum() festlegen,
in welchem Blatt gesucht werden soll.

Noch eine Bemerkung:
So - mit vielen "Activate" in einer Schleife - programmiert man das wenig effektiv.
Aber du kannst ja nicht alles auf einen Schlag lernen. *Smilie

Einiges hat sich schon erledigt - weil zeitlich überschnitten...

 

Hi Erich,
militärisch hatte das nicht sein sollen :-D

Ich werde mir in nächster Zeit die von dir vorgeschlagenen Links auf jeden Fall anschauen, nur geht das bei mir jobbedingt halt immer nur für ein paar Minuten und das kompilieren werd ich auch mal machen (bin gespannt ob ich damit was anfangen kann, grins)

Vielen Dank auf jeden Fall für deine Hilfe!!!
Gruß Bernd