Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klassenmodul - Prozedur zu groß

Klassenmodul - Prozedur zu groß
09.02.2018 14:01:44
Ludmila
Hallo,
in einem Klassenmodul habe ich 30 Case Anweisungen welche 70 CommandButton
steuern.
Bis gestern funktionierte alles einwandfrei.
Heute jedoch kam die Meldung "Prozedur zu groß"
Gibt es eine Einschränkung für Case- Anweisungen?
Danke!
Gruß, Ludmila

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nee, aber für Prozedurgrößen! Teilen! orT
09.02.2018 18:01:19
Ludmila
Hallo Luc,
wie kann ich die Prozedurgröße feststellen?
Wie kann ich den ein Klassen-Modul teilen?
Die Anweisungen erfolgen über die Tag Eigenschaften der CommandButton.
Alle Button befinden sich in einer Userform.
Danke!
Gruß,Ludmila 
Private Sub UserForm_Initialize()
lc = -1
For Each cnt In Me.Controls
If TypeOf cnt Is MSForms.CommandButton Then
lc = lc + 1
ReDim Preserve arrCmd(lc)
Set arrCmd(lc) = New clsCommandButton
arrCmd(lc).initCommand cnt
End If
Next
End Sub

Anzeige
Teilen? Indem du aus der Prozedur eine andere ...
09.02.2018 19:58:25
Luc:-?
…aufrufst, Ludmila,
die die Fortsetzung enthält. Dabei musst du natürlich alle benötigten Variablen mit übergeben, falls sie nicht bereits für die ganze Klasse definiert wurden.
Luc :-?
AW: The whole story!
09.02.2018 20:43:41
Gerd
Hallo Ludmilla,
wenn du nur 'nen Schnipsel zeigst, musst du dir wohl selbst helfen.
Neben Teilen könnte auch Eindampfen angesagt sein.
Gruß Gerd
AW: The whole story!
09.02.2018 23:15:00
Ludmila
Hallo Luc,
hallo Gerd,
wie Ihr ja seht bin ich eine Anfängerin.
So wie ich es verstehe müßte ich z.B. Case "cmdS3" dann mit Run "Makro1" versehen?
Klassenmodul clsCommandButton
Option Explicit
Option Compare Text
Public WithEvents myCom As MSForms.CommandButton 
Public Function initCommand(btn As MSForms.CommandButton) As Object
Set initCommand = Nothing
Set myCom = btn
Set initCommand = Me
End Function


Private Sub myCom_Click()
Dim A As Variant, dZeit As Date, vA As Variant, dH As Double
Set wkb = Workbooks(sD): Set wksD = wkb.Worksheets("Data"): Set wksB = wkb.Worksheets("BT") _
: Set wksH = wkb.Worksheets("Help")
With uf
Select Case myCom.Tag
Case "cmdS3"
Hier kommen die verschiedenen Codes gesamt ca. 2000 Zeilen
case ....... bis cmdS30
end select
end with
Set wkb = Nothing: Set wksD = Nothing: Set wksB = Nothing
End Sub

Weiss nicht wie ich es besser aufzeigen soll, ohne den ganzen Code zu schreiben.
Danke!
Gruß, Ludmila
Anzeige
Normalerweise gehe ich nicht von 'Eindampfen' ...
10.02.2018 00:02:50
'Eindampfen'
…aus, Ludmila (& Gerd),
da meine Pgmm schon knapp genug sind, aber mitunter trotzdem die Limits überschreiten. Bei VBA-Anfängern ist das aber der Regelfall! Da es sich hier aber um ein Select Case-Konstrukt handelt, müsste man für einen derartigen Vorschlag wenigstens eine Case-Anweisung kennen (nicht gerade die kürzeste!). Ein Auslagern des gesamten Konstrukts scheint mir bei 2Tsd Zeilen auch wenig sinnvoll zu sein, so dass nur noch Teilen des Konstrukts infrage käme, bspw so: 
Select Case myCom.Tag
Case "cmdS3"
'… bis Case "cmdS15"
Case Else: Call myCom_Part2(uf, myCom.Tag)
End Select
Private Sub myCom_Part2(uf As Object, myComTag$, …was_sonst_noch_benötigt_wird)
With uf
Select Case myComTag
Case "cmdS16"
'… bis Case "cmdS30"
End Select
End With 'usw
Morrn, Luc :-?
Anzeige
AW: Normalerweise gehe ich nicht von 'Eindampfen' ...
10.02.2018 00:24:46
'Eindampfen'
Hallo Luc,
vielen Dank für Deinen Vorschlag.
Es funktioniert.
Hoffe ich bringe Dich nicht um Deinen wohlverdienten Schlaf.
Gute Ncht!
Gruß, Ludmila
Nee, nee, hab' noch zu tun. Na dann... ;-) owT
10.02.2018 00:40:03
Luc:-?
:-?

122 Forumthreads zu ähnlichen Themen

Fehler "Prozedur zu gross"
Florian

Hallo liebes Forum,
eine Frage:
ich habe bei einer zugegebenermassen etwas längeren Prozedur die Fehlermeldung "Prozedur zu gross" erhalten. Was ist denn genau nicht OK? Gibt es da Beschränkungen? Und: liegt es dann an dem reinen Code, der evt. zu lang ist oder etwa an der Anzahl der ge...
18.11.2008 19:06:37
Thread-ID: 1025750
4 Beiträge
Anzeige
Fehler beim Kompilieren bei Befehl ( Environ )
chris

Hallo guten morgen VBA experten,
bitte um Hilfe.Ich habe eine Exceldatei, diese funktioniert auch an meinem PC.
Jetzt ollte ich die Datei an einem anderen PC ausführen und es kommt immer in der
Private Sub Workbook_Open()
bei diesem Code " if Environ("Username") = "chris" The...
02.12.2008 08:27:30
Thread-ID: 1029388
7 Beiträge
Fehler beim Kompilieren
judi80p

Hallo,
ich habe zuhause ein VBA-Projekt gebaut und wollte es nun in der Arbeit (auch Office XP) verwenden (Arbeitszeitererfassung, die Daten werden über ein Userform eingegeben).
Das Problem ist nur, es startet mit der Fehlermeldung
"Fehler beim Kompilieren. Projekt oder Bibliothek...
19.03.2009 12:09:36
Thread-ID: 1061783
5 Beiträge
Anzeige
Fehler beim kompilieren
lisa

Hallo
Ich habe in meiner Userform die Stellenanzahl der TextBox4 auf 6 begrenzt.
leider bekomme ich nun einen kompilierungsfehler ( Variable nicht definiert! den ich mir nicht erklären kann und mich deshalb wieder an EUCH wende!
Hier mein TextBox4_Change Ereignis Private Sub TextBo...
04.11.2009 14:20:01
Thread-ID: 1114500
4 Beiträge
Makro "Fehler beim komplieren: Prozedur zu groß"
GHK

Hallo!
Habe das erste Mal ein Makro aufgenommen... Habe eigentlich nur banale Dinge vollzogen, aber wohl auf eine zu große Feldermenge, denn es kommt folgene Fehlermeldung, wenn ich das Makro ausführe:
"Fehler beim komplieren: Prozedur zu groß"
Kann man da noch was retten?!? Wahrsch...
09.02.2010 17:57:08
Thread-ID: 1137124
9 Beiträge
Fehler beim Kompilieren - Benutzerdefinierter Typ
Himmelsbach

Hallo zusammen,
Leider habe ich keine Ahnung von VBA und soll nichts desto trotz eine aus meiner Sicht anspruchsvolle Logik programmieren.
Da eine reine textuelle Beschreibung nicht sonderlich hilfreich wäre, habe ich die Excelmappe beigelegt.
Jetzt aber zu meinem Problem:
Im Ta...
11.03.2010 19:06:04
Thread-ID: 1145179
3 Beiträge
Fehler Beim Kompilieren in ComboBox
Fredy

Hallo! ich komme nicht weiter...
habe 1 Probleme:
immer wen ich in meim Userform in der ComboBox ein Datum auswelen wel kommt ein Fehler Meldung
Fehler Beim Kompilieren:
Methode oder Datenbyekt nicht gefunden
Private Sub ComboBox1_Change() Dim Zeile As Long Zeile = Zeile1 +...
07.05.2010 16:42:08
Thread-ID: 1156131
13 Beiträge
Fehler beim Kompilieren
Leitz

Hallo!
Habe eine Excel Datei mit VBA Codes, die auf meinem Laptop einwandfrei funktioniert.
Wenn ich die Datei aber auf meinem Stand PC öffnen möchte erscheint folgende Fehlermeldung:
Fehler beim Kompilieren
Projekt oder Bibiliothek nicht gefunden
Bei folgendem Code ist dann...
15.10.2010 11:09:30
Thread-ID: 1182581
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
6
4
11
3
8
2
12
3
2
7
2
2
2
10
5
8
3
7
2
7
12
16
9