Autor
|
Thema: Kopieranweisung mit VBA (1163 mal gelesen)
|
tomkinz Mitglied Lehrer
Beiträge: 4 Registriert: 17.07.2008
|
erstellt am: 17. Jul. 2008 06:41 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich hab eine große Bitte. Ich bin VBA Neuling, gerade aber dabei mich in das Fass ohne Boden etwas einzuarbeiten. Mein Problem: Ich habe einen Stundenplan für unsere Schule (s. Anhang) erstellt. Auf dem Tabellenblatt 1 können die Stunden ausgewählt werden. Jetzt brauch ich aber für jeden Lehrer eine separate Zusammenstellung. Auf dem Tabellenblatt2 sollen also jetzt mit einer Anweisung für den Lehrer Hoffart alle belegten Stunden automatisch eingetragen werden. Mit einer Klasse geht`s noch mit Wenn Funktionen - bei mehreren Klassen steigt Excel aber dann aus. Jetzt würde ich das Ganze gern mit einer VBA Anweisung lösen - wobei wir wieder bei Problem 1 sind - ich bin immer noch Laie!! Wäre super nett, wenn mir jemand von den Profis hier einen Tipp geben könnte. Die Beispieldatei hab e ich mit hochgeladen... Vielen Dank für eure Unterstützung! Viele Grüße aus München.... Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralf_A Mitglied
Beiträge: 269 Registriert: 14.10.2002
|
erstellt am: 17. Jul. 2008 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für tomkinz
|
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 17. Jul. 2008 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für tomkinz
Hallo Thomas, Willkommen auf CAD.de! Gleich mit Beispielmappe - sehr lobenswert. In Zelle A2 steht immer der Name des Lehrers? Dann hilft u. U. dieser Ansatz. - Gehe in das Register Hoffart
- Gehe in Zelle B3, Formel:
- =WENN(LINKS('GK10 - SK 33'!B3;LÄNGE($A$2))=$A$2;'GK10 - SK 33'!B3;"")
- Markiere die Zellen A1...F20 im Register Hoffart
- Zelle B3 ist aktiv (sie erscheint weiß, alle anderen leicht blau)
- Drücke die Taste F2 (überarbeiten) und schließe mit Strg + Return ab
Ralf mit seinem TEIL ist die Grundlage; verfeinert wird die Formel, indem der Inhalt von Zelle A2 (Name des Lehrers) geprüft wird. So kannst Du die gleiche Formel für alle Lehrer verwenden, die Länge der Namen und die Namen selbst sind flexibel. [Edit: Das Register Hoffart kopierst Du anschließend und änderst nur den Namen des Registers sowie den Inhalt von Zelle A2. /Edit] Bei Fragen - fragen. Frederik ------------------ DIN1055.de | Lastannahmen für Anwender [Diese Nachricht wurde von Paulchen am 17. Jul. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 17. Jul. 2008 13:27 <-- editieren / zitieren --> Unities abgeben: Nur für tomkinz
Tag zusammen, Weil VBA gefragt war und ich grade Spaß dran hatte, mal mein Senf anbei. Grundvoraussetzungen: - Auf dem Blatt "Grundlagen" werden die Listen der Lehrer und Klassen gepflegt. - Für jede Klasse und für jeden Lehrer existiert ein eigenes Tabellenblatt - Sollten zusätzliche Klassen oder Lehrer benötigt werden, so ist ein passendes Tabellenblatt zu kopieren, richtig zu benennen und dann zu ändern, die Listen sind händisch zu ergänzen Gesucht wird u.a. nach "/" so dass alle Stundenbezeichnungen, die so einen Schrägstrich nicht enthalten, gesondert aus der Suche ausgeklammert werden müssen (siehe auch Kommentar im code) Ich habe den code in Ansätzen kommentiert, für Anfänger vielleicht nicht unbedingt auf den ersten Blick nachvollziehbar, aber mit der F8 und ein bißchen Zeit möglich. Es sind ja schließlich Sommerferien und die sind imho eh viel zu lang Über Anregungen und konstruktive Kritik würde ich mich freuen. HTH ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info Excel -Suche RuA-Suche FAQ-ACAD Hilfe zu CAD.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tomkinz Mitglied Lehrer
Beiträge: 4 Registriert: 17.07.2008
|
erstellt am: 17. Jul. 2008 19:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Ralf, hallo Frederik, hallo runkelrübe, vielen Dank für eure promte Unterstützung! Ihr seid echt klasse! Ich probier jetzt mal eure Lösungen durch. Ich denke ich hab eine Menge dazugelernt... Sollte ich den Stundenplan bis zum Ende der Ferien hinbekommen, werden eure Namen mit Sicherheit an das Bayerische Kultusministerium weitergegeben... Also danke nochmal und viele Grüße aus München... Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 18. Jul. 2008 19:37 <-- editieren / zitieren --> Unities abgeben: Nur für tomkinz
hmmm, gehe ich richtig in der Annahme, dass man das Fach Excel unterrichtet? Dann wäre Runkelrübes Lösung IMHO auch per Formel lösbar. Das wäre doch mal eine Hausaufgabe für die Sommerferien ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tomkinz Mitglied Lehrer
Beiträge: 4 Registriert: 17.07.2008
|
erstellt am: 18. Jul. 2008 20:16 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, stimmt Excel wird unterrichtet bei uns, was allerdings im Zeitalter von Ballerspielen gar nicht so einfach ist. Es muss gelingen den Kids, Excel als Adventure Game zu verkaufen... dann wird eben die F4 als "Dauerfeuer" zum Absolutsetzen verwendet und die Spalte B ist ein Kriegspfad - schon wird`s einen Tick interessanter für unseren Nachwuchs... also die Ferien sind auch ein wenig verdient... Danke für den Hinweis mit dem Formular... Grüße aus München Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 18. Jul. 2008 21:00 <-- editieren / zitieren --> Unities abgeben: Nur für tomkinz
Zitat: Original erstellt von tomkinz: Es muss gelingen den Kids, Excel als Adventure Game zu verkaufen...
Hallo Thomas, IMHO ist das der falsche Ansatz, und das Lernen verkommt zur totalen Verarschung... Wenn ich nicht die Sinnhaftigkeit des Lernens, des Lernstoff, eines Produktes erkenne - quält mich jede einzelne Secunde, die ich mich damit beschäftigen muss;-) - Vor allem wenn man irgenwann eingbleut bekommen hat, nicht für die Schule lernt Ihr, sondern für das Leben^^ Die Neugier, das Interesse (und bei C-spielen' auch das Erreichen eines bestimmten Skills) und Spass ist das, was einen fesselt. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tomkinz Mitglied Lehrer
Beiträge: 4 Registriert: 17.07.2008
|
erstellt am: 18. Jul. 2008 21:14 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, war ja auch ein wenig überzogen... keine Bange wir nehmen unseren Job schon ernst und die Ernsthaftigkeit bleibt gewahrt. Und zweifelsohne tragen auch Spiele in vielerlei Hinsicht zum besseren Verständnis bei... aber :-) ...jetzt könnte ich noch 10 Seiten schreiben... Freuen wir uns lieber auf`s Wochenende... Gruß aus München Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |