Helfer Gesucht für struktierten VBA Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Der Rest dann in das Blatt, in welchem die Combos sind. Extra Klassen brauchst du m.E. bei deinem Code nicht anlegen. Ggf. müsstest du da am Code noch was ändern. Das müsste man sich aber mal im Excel anschauen. VG

Moin!
Hallo ihr zwei. Hier mal die Datei zurück:
https://www.herber.de/bbs/user/133977.xlsm
Ich habe da jetzt aber nur die Makros umgestaltet und die Zuordnung der Elemente verändert. Ein Hinweis dabei noch. Deine CBs zeigen im Code zwar CB2 bzw. CB3 an, heißen dabei aber anders. Die CB2 zeigt den TExt CB3 an und umgekehrt. Nur für deinen weiteren Code, falls du da was änderst. Ansonsten habe ich den CB jeweils ein ListfillRange spendiert. Das fehlte bei zweien. Zur Formel. Da war das Problem, dass die Fomel 3 Parameter braucht. Du hattest aber nur die Matrix und die Zeile drin. Die Spalte fehlte noch. Zudem hatte deine CB3 (also die die CB2 anzeigt) auf B8 verwiesen. In F8 stand ein anderer Wert (glaube ich zumindest), welcher nicht in der Liste vorkam. Habe ich geändert. Am Anfang zeigen die Formeln aber noch einen Fehler an, da ja nix ausgewertet wurde. Das könnte man mit eine Wennschleife oder IStFehler umgehen.
Nun zu den Änderungen im Makro. Das mit dem CB_füllen bzw. deren Events habe ich rausgenommen. HAt so keinen Sinn gemacht. Außer den WB_Events ist alles in einem Modul. Klassen sind wie gesagt nicht notwendig. Das mit den Blätter (bei denen die Prüfung anspringen soll) habe ich mal leicht angepasst.
Schaue mal, ob das als Erklärung reicht und der Code verständlich ist.
HIer mal noch allgemein:
Alle deine Makros kannst du nicht aus DieseArbeitsmappe (DA) herausnehmen. Das liegt zT auch daran, dass dort Events / Ereignisse abgefangen werden, welche speziell für das Objekt (hier Workbook) sind. In DA werden zB die wborkbbok_befor print etc. abgehandelt. Deshalb steht das das workbook davor. In den Tabellenblätter hingegen werden Ereignisse auf dem Blatt abgehandelt. Deshalb steht da worksheets davor. Allen anderen Code kannst du ein Modul packen. Dabei muss tdu nur aufpassen, dass du richtig auf die Objekte (blätter, Dateien etc.) referenzierst.
Du kannst übrigens im VBE im Codeteil oben wo Allgemein steht, das Objekt und rechts davon dann die zugehörign Ereignisse aussuchen. Wenn du da eins in diesen Code gepackt hast, muss es dort auch bleiben.
Weiß nicht, ob das so hilfreich war. Jetzt nach der Arbeit ist die Konzentration ein wenig hin.
Wenn Fragen sind, einfach stellen.
VG und einen Guten Rutsch an Alle.

Moin!
Also jetzt mal ein bissl mehr Text.
1. Events / Ereignisse - für Mappe oder Blatt:
Wie letztens schon geschrieben. Die Events kannst du nur in den Blätter nutzen, wo auch das zugehörige Object (Workbook, worksheet) existiert. Deine workbook_beforeprint und befor close müssen in DieseArbeitsmappe. Du
beziehst dich dabei ja auch vorgegebene Objekte / Klassen. Die werden von Excel aber nur dort abgefangen, wo die Objekte auch überprüft werden. Im Blatt CMR_Frachtbrief gibt es aber kein workbook und auch kein
cmrworkbook.
Userbild

Da gibt es nur ein Worksheet. Wenn du die Ansicht aus dem Bild in DieseArbeitsmappe prüfst, gibt es da ein workbook . Diese Name der Objekte kannst du auch nicht ändern. Die sind vorgegeben. Wenn du mit
cmrworkbook arbeiten willst brauchst du eigene Klasse, bei der du das Event anlegst. Macht aber keinen Sinn, da du ja das Event der gerade offene Mappe abfangen willst und das ist Thisworkbook. Denke da nicht zu
kompliziert und nutze das, was du schon hast.
Deinen Code in diese Arbeitsmappe kannst du dagegen in das Modul auslagern. Da ist ja nix spezifisches aus der aktuellen Mappe drin.
2. Objekte
In einer Mappe sind immer schon einige Objekte vorgegeben. Dies ist die Mappe selber (Thisworkbook), andere Mappen (workbook mit Namen) und die Blätter (worksheets entweder mit index oder Namen) - sind nicht alle, nur
ein paar. Du kannst aber auch eigene Variablen anlegen und die als eines der Objekte deklarieren.
Dafür bei der Deklaration das entsprechende Objekt auswählen.
bei Worksheet dann as worksheet; bei workbook gitl as workbook usw..
Dieser so "definierten" Variable kannst du dann einen Objekt zuweisen. Das geht dann mit set. Dort gibst du dann den Blattnamen etc an. bspw..
dim myblatt as worksheet
set myblatt = worksheets("Tabelle1")
Um einfacher auf das Objekt der aktuellen Klassen zuzugreifen, kannst du auch das Me nutzen. S.h. https://www.online-excel.de/excel/singsel_vba.php?f=130 Das aber nur der Vollständigkeit halber.
Zusätzliche entstehen auch noch weitere Objekte, wenn du bspw. combos und dergleich auf das Blatt legst. S. nochmal das Bild. Da sind worksheet und deine 3 Combos. Einer Variablen kannst du alle bekannten Objekte zuweisen. Das sind die, welche du im Bild siehst oder die du ansprechen kannst. Bspw. workbooks("derName") - sollte dabei aber auf sein. In deinem Code kannst du zB nicht das cmrWorkbook ansprechen, da es das als Objekt nicht gibt. Sollte das der Dateiname der aktuellen Datei sein, dann nimm da wie o.e. ThisWorkook. Alternativ musst du dann mit Klassen arbeiten - aber warum so kompliziert.
3. Ereignisse der Objekte (ist jetzt vom Aufbau Mist, da oben schonmal Events kamen, habe aber grad keine Lust das umzustricken :-) )
Jetzt wo du weißt (bzw. am Bild siehst) welche Objekte du hast, kannst du denen auch Events geben bzw. die Abfragen. Da gibt es aber nicht immer zu jedem Objekt alle Events. WEnn du eins der Objekte aus dem Bild anklickst, ändert sich rechts davon die Auflistung. Das sind alle Events, die du dazu nutzen kannst.
Auf deine Mappe angewendet sehen wir also, dass im Blatt CMR_Frachtbrief alle genutzten Objekte da gar nicht vorkommen. Und wenn du bei einer der Combos schaust, gibt es da kein Initialize. Deswegen kannst du das nicht aus dem Blatt herausstarten.
Nochmal zu deinem chkCombo. Das ist nur der Name vom Modul. Für ein Modul gibt es kein Initialize. Das gibt es nur für Klassen / Objekte. Wenn ich das so sehe, willst du aus dem Blatt die Prüfung vor Speichern oder Drucken aufrufen. Das geht aber nicht, da die zugehörigen Events dem Workbook und nicht dem worksheet gehören. Das Einzige, was du aus dem Blatt starten könntest, ist nochmal ein Reset der CB oder ein neues Befüllen. Dafür kannst du bspw. das worksheet_activate nutzen.
Falls du die Validation noch für was anderes nutzen willst (Code der aus dem Blätter kommt), nutze Parameter. Habe dir mal noch einen Button reingebaut, um zwischendurch die Prüfung zu starten. Da sind jetzt keine Parameter drin, weil du in der Prüfung ja gleich beide Blätter prüfen willst. Ansonsten könntest du da auch nur dein Blatt übergeben und der würde das prüfen - dsa würde ggf. eher dem Start direkt aus dem Blatt entsprechen. Habe dir dort auch mal ein paar Zuweisungen auf das Blatt, die Mappe bzw. die Verknüpfung Mappe.blatt angelegt. Mit den Parameter wärst du übrigens flexibler. Jetzt müssen im Code alle Namen fest codiert sein. Wenn du mit den Parametern arbeitest, könnten die Namen sich auch ändern oder du ggf. auch andere Controls (Mehr, andere Namen) prüfen. Habe deshalb mal noch einen zweiten Button reingemacht, der nur das aktuelle Blatt prüft.
Soweit erstmal. Habe in der Datei deine Kommentare gelassen und meine jeweils mit ## beginnend darunter gesetzt.
https://www.herber.de/bbs/user/134008.xlsm
Ich bin mir nicht sicher, ob das hilfreich ist. Wenn nicht, einfach nochmal fragen.
VG

Beliebteste Forumthreads (12 Monate)

Helfer Gesucht für struktierten VBA Code

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Helfer Gesucht für struktierten VBA Code

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread