Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler beim Komplimieren Prozedur zu groß

Fehler beim Komplimieren Prozedur zu groß
20.01.2020 00:45:13
Holger
Hallo zusammen,
in meiner Userform habe ich 403 Labels und 200 CheckBoxen.
Ich fülle sie mit Daten beim Activieren der UserForm.
Bekomme aber dann Folgenden Fehler "Fehler beim Komplimieren Prozedur zu groß"
Ich habe 8 Reihen mit jeweils 25 mal diesen Code. Also 200 mal.
Ich habe eine CheckBox und 2 Labels die ich jeweils füllen muss und auch die Zeile muss immer eine Mehr werden.
Ich hoffe das ich mein Problem relativ gut beschrieben habe.
Kann man den kürzer Schreiben oder anders damit der Fehler verschwindet.
Schon mal vielen Dank für eure Mühe
Ist der 1.
If Cells(3, 12).Value < 1 Then 'um eine Zeile erhöhen 3,13 wäre der nächste
Label1.Visible = True
Label2.Visible = True
CheckBox1.Visible = True
Else
Label1.Visible = False
Label2.Visible = False
CheckBox1.Visible = False
End If
Label1.Caption = ThisWorkbook.Sheets("Mitarbeiter").Range("C3").Text 'Name ' auch eine Zeile mehr
Label2.Caption = ThisWorkbook.Sheets("Mitarbeiter").Range("F3").Text 'Schicht ' auch eine Zeile mehr
Wäre ist der 2.
If Cells(4, 12).Value "<" 1 Then
Label3.Visible = True
Label4.Visible = True
CheckBox2.Visible = True
Else
Label3.Visible = False
Label4.Visible = False
CheckBox2.Visible = False
End If
Label3.Caption = ThisWorkbook.Sheets("Mitarbeiter").Range("C4").Text 'Name
Label4.Caption = ThisWorkbook.Sheets("Mitarbeiter").Range("F4").Text 'Schicht

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler beim Komplimieren Prozedur zu groß
20.01.2020 01:00:12
onur
"Ich habe 8 Reihen mit jeweils 25 mal diesen Code" - EXAKT der selbe Code?
Wenn ja, WARUM?
Warum postest du nicht den ganzen Code? Ich sehe nirgendwo weder 
Sub ...
noch
End Sub
.
AW: Fehler beim Komplimieren Prozedur zu groß
20.01.2020 01:22:35
Holger 

Private Sub UserForm_Activate()
Sheets("Mitarbeiter").Select
Sheets("Mitarbeiter").Activate
Application.ScreenUpdating = True
On Error Resume Next
Range("B2:I195").Select
ActiveWorkbook.Worksheets("Mitarbeiter").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mitarbeiter").Sort.SortFields.Add Key:=Range( _
"G3:G195"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Mitarbeiter").Sort.SortFields.Add Key:=Range( _
"I3:I195"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
ActiveWorkbook.Worksheets("Mitarbeiter").Sort.SortFields.Add Key:=Range( _
"C3:C195"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Mitarbeiter").Sort
.SetRange Range("B2:I195")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
TextBox1.Value = Range("A1").Value 'Datum
' Reihe 1
If Cells(3, 12).Value

Anzeige
AW: Fehler beim Komplimieren Prozedur zu groß
20.01.2020 02:15:39
onur
Alles von 
If Cells(3, 12).Value

bis 
Label403.Caption = ThisWorkbook.Sheets("Mitarbeiter").Range("F205").Text 'Schicht

kannst löschen und durch 
    Dim i
With Me
For i = 1 To 200
.Controls("Label" & i * 2 - 1).Visible = Cells(i + 2, 12).Value

Aber nur, wenn der Code von dir nicht noch mehr Fehler hat - wie hier z.B. 
Else
Label132.Visible = False
Label132.Visible = False
CheckBox66.Visible = False

ersetzen.
Wenn du so anfängst; 
If Cells(3, 12).Value

musst du eigentlich so aufhören: 
If Cells(202, 12).Value

Das tut dein Code aber nicht.
Anzeige
AW: Fehler beim Komplimieren Prozedur zu groß
20.01.2020 02:46:49
Holger
Hi Onur,
Vielen Dank für deine schnelle Hilfe.
Waren bestimmt Flüchtigkeit Fehler, habe alles händisch eingegeben.
Habe deinen Code schon getestet läuft super.
Vielen Dank nochmal
Holger

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

TextBox 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