Office: (Office 2013) Bestimmte Werte einmal täglich in neue Zelle übertragen

Hallo,

Mal wieder komme ich nicht weiter. Ich denke jedoch, das es per VBA hinzubekommen ist, mir fehlt jedoch jeglicher Ansatz.
Ich habe ein Tabellenblatt "Aktuell", welches mir aktuelle Werte aus einer Solaranlage importiert.
Der Import erfolgt bei jedem öffnen der Tabelle (kann einmal aber auch mehrmals am Tag sein).
Jetzt möchte ich, das möglichst automatisch im Tabellenblatt "Statistik" einmal am Tag die Werte in eine Zelle übernommen werden. Ist der Tag des nächsten Öffnens der Tabelle ein anderer, sollten die Werte dann automatisch in eine neue Zelle (Zeile) eingetragen werden, ohne die vom vorhergehenden Eintrag zu verlieren/verändern.
Wenn die Tabelle mehrmals am Tag geöffnet wird, ist es egal, aus welchem Import übernommen wird.
Wichtig nur, bei jedem neuen Tag, an dem die Datei geöffnet wird soll ein neuer Eintrag in "Statistik" erfolgen. Wird die Datei mehrfach am selben Tag geöffnet, soll auch nur ein einziger Eintrag für den Tag erfolgen.
Im Anhang zum besseren Verständnis das Beispiel in vereinfachter Form.

Ist das umsetzbar?

Danke und Gruß

Matthias

 

Hallo!
Zusätzlich ins Workbook_Open (beachte die Reihenfolge bzgl. Deines Importcodes):

<pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Workbook_Open()
<span style='color:#0000EE'>Dim</span> LetzterEintrag <span style='color:#0000EE'>As Date</span>
LetzterEintrag = Tabelle1.Cells(<span style='color:#FF0080'>9</span>, <span style='color:#FF0080'>3</span>)
<span style='color:#008000'>'hier erst der Import-Code </span>
<span style='color:#0000EE'>If</span> LetzterEintrag &lt; Date <span style='color:#0000EE'>Then</span>
<span style='color:#0000EE'>With</span> Tabelle2.Cells(<span style='color:#FF0080'>2</span> ^ <span style='color:#FF0080'>20</span>, <span style='color:#FF0080'>1</span>).End(xlUp).Offset(<span style='color:#FF0080'>1</span>, <span style='color:#FF0080'>0</span>)
.Offset(<span style='color:#FF0080'>0</span>, <span style='color:#FF0080'>0</span>) = Date
.Offset(<span style='color:#FF0080'>0</span>, <span style='color:#FF0080'>1</span>) = Tabelle1.Cells(<span style='color:#FF0080'>4</span>, <span style='color:#FF0080'>2</span>)
.Offset(<span style='color:#FF0080'>0</span>, <span style='color:#FF0080'>2</span>) = Tabelle1.Cells(<span style='color:#FF0080'>5</span>, <span style='color:#FF0080'>2</span>)
.Offset(<span style='color:#FF0080'>0</span>, <span style='color:#FF0080'>3</span>) = Tabelle1.Cells(<span style='color:#FF0080'>6</span>, <span style='color:#FF0080'>2</span>)
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span>
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span>
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span></pre>

Gruß Ralf

 

Hi Matthias,

kopiere folgenden Code ins Codemodul DieseArbeitsmappe:

Code:

Private Sub Workbook_Open()
    Dim lngLetzte As Long
    Dim wksTab As Worksheet
    Set wksTab = Worksheets("Aktuell")
    If wksTab.Range("C9") <> Date Then
        With Worksheets("Statistik")
            lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
            .Cells(lngLetzte + 1, 1) = Date
            wksTab.Range("B4:B6").Copy
            .Cells(lngLetzte + 1, 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
            wksTab.Range("C9") = Date
        End With
        Application.CutCopyMode = False
    End If
End Sub

Bis später,
Karin

 

Hallo,

Vielen Dank, ihr seit genial!
Hab es nicht nur kopiert und angepasst, sondern auch verstanden! ;.) :-)
Habe mich für die Version von Karin entschieden, da ich hier relativ einfach auch zusätzliche Einträge erzeugen kann (einfach das Datum aus C9 löschen).

Vielen Dank!

Matthias