Office: (Office 2019) Ausgewählte Zellen per VBA in verschiedene Tabellen speichern

Hallo liebe Forumfreunde,

ich bin totaler Anfänger in Sachen VBA.
versuche gerade etwas vba zu lernen *Smilie
ich habe mir eine Mapper erstellt, wo ich aus Tabelle1 bestimmte Zellen in eine
andere Tabelle2 speichere. Klappt auch alles super.

Nun möchte ich aber, das ich aus Tabelle1 die gewählten Zellen nicht nur in Tabelle2 kopiere, sondern auch gleichzeitig in Tabelle3 in Range (BK bis BR)
und in Tabelle4 in Range (R bis Y)
und in Tabelle5 in Range (Q bis X)

Leider habe ich noch nichts gefunden, wie ich das in meinem jetzigen Code einbringen kann?

Mein Code im Moment:

Ich hoffe jemand kann mir hier ne super Lösung anbieten?

Muss ich etwa für jede Tabelle, die Zeilen des Codes ab
Worksheets("Tabell2").Select
für dir Tabelle3 - 4 und 5 auch so untereinander schreiben, mit den richtigen Zellenangaben?

Oder geht das kürzer?

Gruß Mike

:)

 

Hallo Mike,

Code:

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Hajo_Zi,
danke für deine Hilfe.

habe diesen Code mal ausprobiert, bekomme aber sofort eine Fehlermeldung:

"Fehler beim kompilieren: Mehrfachdeklaration im aktuellen Gültigkeitsbereich.

und diese Zeile wird markiert.

Was war mit meinem Code......war der nicht korrekt für mein Vorhaben?
Ich spreche ActiveCell an und du Cells?

Die Tabellen wo gespeichert werden soll, habe nicht die gleichen Zellen, wo abgelegt werden soll?

Gruß
Mike

 

Hallo Mike,

lösche das zweit
Dim Loletzte As Long
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de
Gruß Hajo

 

Hallo Hajo,

das wars gewesen.
Speichern macht der Code......nur nicht an der richtigen Stell und auch nicht in den Tabellen, in denen ich die Daten noch abgelegt haben möchte.

In meiner Testmappe, habe ich mal ein paar Infos in jeder Tabelle angegeben,
wo es abgespeichert werden soll.

Leider bekomme ich meine Mappe nicht klein genug, sie ist immer noch 640 Kb.groß


Welche Möglichkeit gibt es da noch?

Gruß
Mike

 

Hallo Hajo

ich musste in meiner Mappe 2 Tabellenblätter heraus nehmen, damit ich auf die geforderte Kb-Größe kam.

Also hier nun meine sehr abgespeckte Mappe *Smilie

Gruß
Mike

 

Hallo Mike,

mein Code läuft ohne Fehler.

 

Und nun?....was soll ich nun machen?

warum werden bei mir die Zahlen wie in der Mappe am falschen Ort gespeichert?
Und warum werden sie Zahlen nicht auch in den anderen Tabellen an passender Stelle gespeichert?

Ich bin Anfänger und war froh, das ich mit meinem Code schon in der ersten Tabelle die Zahlen speichern konnte.

Gruß
Mike

 

Hallo Mike

probiere es mal so:

a) ersetze den kompletten Code in Modul3 durch
Code:

b) ersetze die Formularsteuerelemente in der Tabelle "Treffer_Anzeige" durch ActiveX-Steuerelemente und kopiere den Code in den Codeteil der Tabelle
Code:

Grüße,
evus

 

Hallo evus.

vielen Dank für deine Hilfe.

Habe alles so gemacht.

Ich habe nun in der Tabelle Treffer-Anzeige die ActiveX-Steuerelemente
eingefügt.

Wie aktiviere ich diese Schaltflächen?

Wenn ich drauf klicke....passiert gar nichts.
Bei den anderen Schaltflächen musst ich die Makros auswählen, das geht bei diesen nicht?

Gruß
Mike

 

Hallo evus,


das aktivieren der Schaltfläche habe ich jetzt hinbekommen.

Aber an diese Zeile im Code von Modul3 wird angehalten:

With Worksheets(wsName)


Muss ich in den Klammern den Worksheetnamen "Treffer-Anzeige" eintragen?
Ich habe noch 2 Tabellen angegeben, die noch fehlten, wo die Zahlen noch abgespeichert werden sollen.
Tabelle Samstagziehung und Tabelle Mittwochsziehung

Ist das so korrekt?

Call Schreiben(1, 3, zahlen, "Samstagziehung" & Tag)
Call Schreiben(1, 3, zahlen, "Mittwochsziehung" & Tag)


Gruß
Mike

 

Hallo Mike,

setze doch im Codebereich der Tabelle einen Haltepunkt und gehe dann den Code mit F8 Zeile für Zeile durch. In der Prozedur "Schreiben" siehst du ja - wenn du den Cursor auf die Variable positionierst - welcher Wert übergeben wird.

Übergeben werden
- ersteZeile: Zeilennummer, ab welcher die Daten stehen sollen
- abSpalte: Spalte in der das Datum stehen soll, die Lottozahlen werden in die Folgespalten übertragen
- werte: in diesem Array steht Datum und Lottozahlen
- wsName: kompletter Name der Tabelle in die geschrieben werden soll

Es klappt aber auch, wenn du den Tabellennamen "Samstagziehung" in "Ziehung-Samstag" und die Prozedur mit Call Schreiben(1, 3, zahlen, "Ziehung-" & Tag) aufrufst.

Grüße,
evus

PS: habe erst morgen wieder Zeit, wenn du die Tabellen nicht anders benennen willst (bitte Info)

 

Hallo Evus,

der Code läuft prima.
Hab es hinbekommen und auch die Tabellennamen
"Ziehung-Samstag" und "Ziehung-Mittwoch" so wie du vorgeschlagen hast
übernommen.

Wo in dem Code wird zwischen Samstag unterschieden? *Smilie

Und gibt es eine Möglichkeit in diesem Code zu prüfen, ob das Ziehungsdatum
für den Tag schon vorhanden ist?
Um doppelte Daten zu vermeiden.

Gruß
Mike

 

Hallo Mike,

habe doch noch Zeit gefunden. Ersetze den kompletten Code in Modul3.

Neu hinzu:
- Function "Check_Eingabe" (Aufruf von Sub "Daten_speichern"). Hier wird geprüft das Ziehungsdatum in Tabelle "Treffer-Anzeige" korrekt und die Zahlen auch Zahlen sind. Wenn Fehler, wird eine Meldung angezeigt und die Werte werden nicht in die Zieltabellen übertragen.

Änderungen in Sub "Daten_speichern":
- neu hinzu Call Schreiben(3, 1, werte, "Ziehung-" & Tag). Hinweis: in deinem letzten Post hast du die ersten beiden Übergabeparameter vertauscht (1, 3,.. statt 3, 1,..).

Änderungen in Sub "Schreiben":
- Prüfung ob Zieltabelle vohanden, wenn nein wird eine Fehlermeldung angezeigt, jedoch kein Abbruch.
- Prüfung ob Werte in der Zieltbelle für das neue Ziehungsdatum bereits vorhanden sind, wenn ja wird nichts geschrieben (es wird aber keine Info angezeigt).


Zu deiner Frage "Wo in dem Code wird zwischen Samstag unterschieden?":
im Codeteil der Tabelle "Treffer_Anzeige" steht doch

in der Sub CommandButton1_Click() die Zeile Daten_speichern 27, "Samstag" und
in der Sub CommandButton2_Click() die Zeile Daten_speichern 30, "Mittwoch"

d.h.:
- Daten_speichern = Prozedurname, diese ist im Modul3
- 27 bzw. 30 = 1.Parameter = Zeilennummer in der die Daten für die Ziehung eingegeben werden
- "Samstag" bzw. "Mittwoch = 2.Parameter = Teil des Tabellennamen in welche die Daten geschieben werden.

d.h. auch:
der komplette Tabellenname wird in o.g. Prozedur gebildet (Call Schreiben(3, 17, werte, "Lotto-Uhr-" & Tag), somit ist für das Datenspeichern kein doppelter Code notwendig.


Grüße,
evus
Code:

 

Hallo Evus,

super...Danke.

doppelte Eintragungen finden jetzt nicht statt.

Ich hoffe, das ich dich nicht nerve?
Wenn bei der Überprüfung, ob Datum und Zahlen schon vorhanden, jetzt noch eine Messagebox sich zeigen würde " Ziehung schon vorhanden", wäre es perfekt?! *Smilie


Gruß Mike