Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Datum und Wert automatisch in erste freie Zelle
#1
Hallo,

ich komme in meinem Excel-Projekt leider nicht weiter. Folgendes soll realisiert werden:

In Tabelle1 wird beim Öffnen der Datei automatisch ein Wert in Zelle C1 geschrieben (akuteller Aktienkurs). Nun möchte ich, dass die Wert automatisch in die erste freie Zelle in Tabelle2-SpalteD geschrieben wird. Dazu wäre es prima wenn automatisch das Datum in Tabelle2-SpalteC geschrieben wird. Zudem müsste sichergestellt werden, dass diesen Vorgang nur beim ersten benutzen der Datei schreibt. Daher, wenn ich die Datei zweimal am Tag offen habe, er nur einmal das Datum und den Wert speichert.

Es soll ein automatisierter Kurs/Depotverlauf abgebildet werden.

Für Hilfe wäre ich sehr dankbar! Bin leider was Makros/VBA betrifft sehr sehr unbedarft.

Beste Grüße
Antworten Top
#2
Hallo,

kopiere diesen Code im VBA-Editor in deiner Datei unter "DieseArbeitsmappe" und speichere die Datei als xlsm (Arbeitsmappe mit Makros).
In der Tabelle 2 bleiben in der Spalte C und D die Zeile 1 leer und können für eine Überschrift genutzt werden!

Code:
Option Explicit
Dim LoLetzte As Integer

Private Sub Workbook_Open()
    With Worksheets("Tabelle2")
        LoLetzte = .Cells(Rows.Count, 3).End(xlUp).Row + 1
        If .Cells(LoLetzte - 1, 3) <> Date Then
            .Cells(LoLetzte, 3) = Date
            .Cells(LoLetzte, 4) = Worksheets("Tabelle1").Range("C1")
        End If
    End With
End Sub
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#3
Hallo,

danke das funktionert in einem Test perfekt. Genau das was ich suchte! DANKE!
Antworten Top


Gehe zu:


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