Office: (Office 2016) Zelleninhalte aus anderem Tabellenblatt kopieren

Hallo Forum,

ich bin neu und habe keine großen Kenntnisse in VBA. Ich habe eine Mappe mit Blättern für jeden Tag im Monat (Benannt '1' - '31'). Darin werden verschiedene Werte eingetragen. Um mir die Eingabe zu erleichtern möchte ich gern per Makro die Möglichkeit haben die Werte vom Vortag in das aktuelle Blatt zu kopieren. Mein konkretes Problem: Wie sag ich VBA aus welchem Blatt er kopieren soll. Ein besonderes Problem stellt dabei der Montag da, weil da der Vortag nicht der Sonntag ist, sondern der Freitag.
Falls es die Programmierung erleichtert: Ich habe bereits in dem Feld J2 den Wochentag des entsprechenden Datums stehen. Es wäre also eine IF-Abfrage in der Art If J2=0 then "kopiere von tabelle-3" else "kopiere von Tabelle-1"

Danke schon mal für die Hilfe

Nelson

 

Hi Nelson,

weshalb soll J2 = 0 sein? Den Wochentag 0 gibt es doch gar nicht.

Code:

Sub Kopieren()
    Dim wksTab As Worksheet
    For Each wksTab In Worksheets
        If wksTab.Name = Worksheets("Tabelle1").Range("J2") Then '<== Name der Zieltabelle anpassen
            With wksTab
                .Range("B2").Copy Worksheets("Tabelle1").Range("B2") '<== was kopiert werden soll und wohin bitte anpassen
            End With
            Exit For
        End If
    Next wksTab
End Sub

---

 

Doch den gibts: In J2 steht '=Wochentag(B2;3)'
In B2 steht das Datum für das entsprechende Blatt und die 3 sagt das der Montag 0 ist, Dienstag 1 bis Sonntag 6
So kann ich über eine bedingte Formatierung die Wochenenden in rot anzeigen lassen, damit da keine Daten eingegeben werden.

Ich bin aktuell nicht ganz sicher was in deiner Schleife passiert. Aber es ist nicht das was ich brauche.

Es wird keine Schleife gebraucht. Konkret:
Ich habe den 3.1.22 schon eingegeben. Jetzt bin ich bei der EIngabe der Daten vom 4.1.22. Ich stelle fest, dass die Daten fast identisch sind wie am 3.1. also würde ich gerne einen Knopf anklicken und mir werden die Daten vom Vortag ins aktuelle Blatt übernommen. So muss ich lediglich 3-4 Einträge anpassen statt alle 40 neu einzugeben.

if activeSheet.Range("J2").Value = 0 then vortag = 'TAG(B2)-3' else vortag = 'TAG(B2)-1'
Worksheet(vortag).Range("C4:D6").copy activesheet.Range("C4:D6")

So in etwa sollte es gehen. Der Ausdruck 'TAG(B2)' soll die Excel-Formel TAG() sein, die vom Datum nur den Tag-Teil zurück gibt. Also wenn das Datum 3.1.22 ist, dann gibt TAG(3.1.22) 3 zurück. Wie das in VBA geht weiss ich nicht. Wenn das nicht geht, dann kann ich den Wert auch in eine Zelle schreiben und diesen Zellinhalt nehmen.

Geht das mit der Selection einen Blattes über eine Variable? Wenn nicht, kann da mit dem Blattindex gearbeitet werden? Die Blätter für die Dateneingabe haben immer den Index 'Tag'+2 (Die ersten beiden Blätter sind die Auswertungen und diese sollen auch vorne bleiben).

Ich hoffe jetzt das ganze verständlicher erklärt zu haben. Hier schon mal Danke für die Hilfe Beverly.

Gruß Nelson

 

Hi Nelson,

es stand nicht in deinem ersten Beitrag, dass du mit dem Parameter 3 in der WOCHENTAG-Formel arbeitest - bei Parameter 2 (der meistens zur Anwendung kommt) gibt es keinen Tag 0.

Mein Code macht folgendes: er läuft in einer Schleife über alle Tabellenblätter und prüft, ob der Name des laufenden Tabellenblattes der Zahl in J2 entspricht. Wenn Ja, dann kopiere aus diesem Tabellenblatt.
Alles andere musst du schon selbst machen bzw. entsprechend anpassen, da niemand deine Mappe kennt und deshalb niemand weiß, was wann wohin kopiert werden soll.

---

 

Die Struktur deiner Daten steht einer einfachen Lösung im Weg. Du hast genauso viele Datenquellen wie der Monat Tage hat. Es ist aber viel einfacher aus einer Datenquelle pro Monat die Darstellungen für jeden Tag zu berechnen als umgekehrt. Mit nur einer Datenquelle kannst du den Formelbestand auf den Worksheets der Tage konstant halten (bzw. es mit PowerQuery oder den dynamic array funktions lösen). Auch monatsbezogene Analysen sind dann gar kein Problem mehr.

In deiner aktuellen Struktur bist du auf dem Weg in die Hölle der hochgradig individuellen Lösung.

 

Dann danke ich erst mal für die Aufklärung meiner Defizite bezüglich Excel.
Das Profis diese Aufgabe anders gelöst hätten, war mir schon vorher klar. Aber ich muss sagen, des ich mehr als Belehrungen erwartet hätte.
Danke an Beverly nochmal für den ersten Ansatz. Der löst zwar nicht mein Problem aber er hat mir die richtige Richtung gezeigt.
An Pan möchte ich noch richten: Excel ist nicht ganz meine Welt. Ich habe darin nur einfache Kenntnisse aus dem Selbststudium. Ich habe nicht einmal eine kaufmännische Ausbildung. Ich selbst hätte diese Aufgabe eher in einer Datenbank gelöst nicht in einer Tabellenkalkulation. Aber es hat einen Grund warum ich für jeden Tag ein eigenes Blatt verwende und das liesse sich mit meinem Kenntnissen eben NICHT anders lösen.
Weitere Antworten sind nicht notwendig.

Nelson

 

In einer Datenbank würdest du also 31 Table der gleichen Struktur anlegen?
Oder würdest du 1 Table nehmen und dafür 31 views definieren, die bis auf einen Filter alle gleich sind?

Warum willst du das in Excel als Datenbankkenner anders machen?
Pan