Office: Zellen per Makro in Tabelle zum jeweiligen Datum kopieren

Hallo ihr Excel-Profis,

ich könnte eure Hilfe gebrauchen. Ich habe eine Berechnungstabelle, die verschiedene Zellen mit Ergebnissen ausgibt. Des Weiteren habe ich 12 Blätter für die jeweiligen Monate. In den Monats-Blättern befindet sich je eine Tabelle mit den einzelnen Tagen. Nun möchte ich, dass per Makro über einen Button aus der Berechnungstabelle die Zellen mit den Ergebnissen in das richtige Monatsblatt, in den richtigen Tag kopiert wird. Die Berechnungstabelle weis über die Formel =HEUTE() welches Datum wir haben.

Alle Zellen wo ich eine schwarze Zelle davor habe, sollen z.B. heute den 10.01.2023 in das Tabellenblatt Jan in die Spalte 10. Jan., in die jeweilige zugehörige Zeile kopiert werden.

Die vorbereitete Tabelle findet ihr im Anhang. Ich hoffe ihr könnt mir da helfen.

Vielen Dank!
Gruß

 

Moin Salatgewalt,
Du suchst einfach im dem Monat entsprechenden Tabellenblatt die richtige Spalte heraus

Code:

Private Sub test
 Dim ZielSpalte as Long
   With ThisWorkbook.Sheets(Month(Date)+10)
      ZielSpalte=.Rows("4:4").Find(What:=Date)
   End With
End Sub

(ungetestet)
Dann kannst Du Deine gewünschten Zellen in die richtigen Zielzellen kopieren.
Mit einer Schleife kann man natürlich auch alle Tabellenblätter nach dem heutigen Datum durchsuchen.
Ein bisschen basteln darfst Du auch.
Gruß
Doming

 

Hi,

bei der Suche nach Datumswerten gibt es häufig Probleme die richtige Zelle zu finden, insbesondere wenn das Datum aus einer Formel ermittelt und dazu noch die Zellen nicht standardmäßig als Datum formatiert sind, wie das bei dir der Fall ist. Aus diesem Grund solltest du besser Zeile 4 des relevanten Tabellenblattes in einer Schleife durchlaufen - nach diesem Prinzip:

Code:

Sub Daten_in_Tabelle_kopieren_Klicken()
    Dim wksTab As Worksheet
    Dim intSpalte As Integer
    Set wksTab = Worksheets(Format(Range("W10"), "mmm"))
    With wksTab
        For intSpalte = 6 To 36
            If .Cells(4, intSpalte) = Range("W10") Then

                MsgBox intSpalte

                Exit For
            End If
        Next intSpalte
    End With
End Sub

Anstelle der Codezeile mit der MsgBox muss dann dein Code zum Kopieren der Daten stehen.

---

 

Guten Abend,

danke erstmal für die Antworten. Ich kann damit leider gar nix anfangen. Die Zeile 4 in den Monatsblättern ist standardmäßig als Datum formatiert. Die gleiche Formatierung verwendet auch die Berechnungstabelle.

Ich bekomme es nicht mal hin die 6 Werte aus der Berechnungstabelle in die Monatstabelle automatisch zu kopieren, geschweige denn die gleich der richtigen Datumsspalte zuzuordnen. Woher nimmt man sich die Codezeilen? Gibt es da Vorlagen mit welchem Code man was auslöst?

Gruß

 

Hi,

dass du dieselbe Formatierung verwendest hat nichts damit zu tun sondern dass es eben eine ANDERE als die Standardformatierung für ein Datum (z.B. 11.01.2023) ist. Und außerdem errechnet sich das Datum in den Monatstabellen aus Formelergebnissen - und beide Dinge machen Probleme beim Auffinden des gewünschten Datums wenn man es anders als mit einem Schleifendurchlauf versucht zu lösen.

Hier der komplette Code für das Suchen der gewünschten Spalte und Eintragen der Werte:

Code:

Sub Daten_in_Tabelle_kopieren_Klicken()
    Dim wksTab As Worksheet
    Dim intSpalte As Integer
    Set wksTab = Worksheets(Format(Range("W10"), "mmm"))
    With wksTab
        For intSpalte = 6 To 36
            If .Cells(4, intSpalte) = Range("W10") Then
                .Cells(8, intSpalte) = Range("I17")
                .Cells(9, intSpalte) = Range("I19")
                .Cells(10, intSpalte) = Range("I20")
                .Cells(15, intSpalte) = Range("I35")
                .Cells(16, intSpalte) = Range("I37")
                .Cells(22, intSpalte) = Range("S17")
                .Cells(23, intSpalte) = Range("S19")
                .Cells(23, intSpalte) = Range("S20")
                .Cells(29, intSpalte) = Range("S35")
                .Cells(30, intSpalte) = Range("S37")
                .Cells(35, intSpalte) = Range("A1") '<==????? Zelladresse anpassen
                .Cells(36, intSpalte) = Range("A1") '<==????? Zelladresse anpassen
                Exit For
            End If
        Next intSpalte
    End With
End Sub

Was mir unklar ist, sind die letzten beiden Zeilen, also Zeile 35 und 36 der Monatstabelle - die Zelladressen, aus denen die Werte geholt werden sollen, musst du im Code anpassen, also anstelle "A1" die richtigen Adressen eintragen.

Die Codezeilen kann man nirgendwo "hernehmen" - man muss dazu VBA erlernen.

---

 

Hey,

danke für die ausführliche Hilfe. Ich versuch es mal damit. Zeile 35 und 36 werden händisch von mir eingefügt, da diese Werte aus dem Leitsystem entnommen werden müssen. Das Leitsystem ist allerdings komplett gekapselt ohne Kommunikation nach "draußen".

Gruß

 

Hey,

hab's in die Tabelle mit eingebaut. Es funktioniert tadellos. Sieht gar nicht so kompliziert aus, ich habe es aber einfach nicht hinbekommen, da mir die Kenntnisse über die verschiedenen Codes im VBA fehlen. Vielen Dank!

Gruß

 

Hi,

falls dir trotzdem noch etwas unklar an dem Code ist - einfach rückfragen.

---