Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prozedur zu groß -> Wie meine Formel verkürzen?

Prozedur zu groß -> Wie meine Formel verkürzen?
01.10.2018 13:00:40
Florian
Guten Tag zusammen!
Ich habe in einem Tabellenblatt eine Eingabemaske zum Anlegen für neue Aufträge und deren Inhalt erstellt.
Die Daten dieser Maske sollen dann beim Klicken auf einen Button in einer anderen Anordnung in einem Anderen Tabellenblatt eingetragen werden, damit man sie später jederzeit wieder aufrufen kann (wie in einer Datenbank).
Das ganze funktionierte auch sehr gut, bis meine Formel zu lang wurde und dann jetzt immer folgende Fehlermeldung kommt: "Fehler beim Kompilieren: Prozedur zu groß."
Vielleicht kann mir jemand helfen, die Formel so zu "kürzen", dass ich trotzdem die Daten von ca. 1300 Feldern verarbeiten kann?!
Hier meine Formel: 
Private Sub Button_Auftrag_Speichern_Click()
'Anzahl an bereits angelegten Aufträgen feststellen
Dim add As Integer
add = Sheets("Verweise").Range("A2").Value
Sheets("Aufträge").Cells(add, 1).Value = Sheets("Auftragsanlage").Range("G2")
'Auftragspositionen übertragen
'Pos 1
'Referenz
Sheets("Aufträge").Cells(add, 13).Value = Sheets("Auftragsanlage").Range("C13")
'Menge
Sheets("Aufträge").Cells(add, 14).Value = Sheets("Auftragsanlage").Range("H13")
'Material
Sheets("Aufträge").Cells(add, 15).Value = Sheets("Auftragsanlage").Range("J13")
'Konfektionierung
Sheets("Aufträge").Cells(add, 16).Value = Sheets("Auftragsanlage").Range("M13")
'Haube
'Länge
Sheets("Aufträge").Cells(add, 17).Value = Sheets("Auftragsanlage").Range("Q13")
'Breite
Sheets("Aufträge").Cells(add, 18).Value = Sheets("Auftragsanlage").Range("R13")
'Höhe
Sheets("Aufträge").Cells(add, 19).Value = Sheets("Auftragsanlage").Range("S13")
'Boden
'Länge
Sheets("Aufträge").Cells(add, 20).Value = Sheets("Auftragsanlage").Range("T13")
'Breite
Sheets("Aufträge").Cells(add, 21).Value = Sheets("Auftragsanlage").Range("U13")
'QM
Sheets("Aufträge").Cells(add, 22).Value = Sheets("Auftragsanlage").Range("V13")
'Preis
Sheets("Aufträge").Cells(add, 23).Value = Sheets("Auftragsanlage").Range("Y13")
'Summe
Sheets("Aufträge").Cells(add, 24).Value = Sheets("Auftragsanlage").Range("AB13")
'Haubenmitarbeiter
Sheets("Aufträge").Cells(add, 25).Value = Sheets("Auftragsanlage").Range("AE13")
'Pos 2
'Referenz
Sheets("Aufträge").Cells(add, 26).Value = Sheets("Auftragsanlage").Range("C14")
'Menge
Sheets("Aufträge").Cells(add, 27).Value = Sheets("Auftragsanlage").Range("H14")
'Material
Sheets("Aufträge").Cells(add, 28).Value = Sheets("Auftragsanlage").Range("J14")
'Konfektionierung
Sheets("Aufträge").Cells(add, 29).Value = Sheets("Auftragsanlage").Range("M14")
'Haube
'Länge
Sheets("Aufträge").Cells(add, 30).Value = Sheets("Auftragsanlage").Range("Q14")
'Breite
Sheets("Aufträge").Cells(add, 31).Value = Sheets("Auftragsanlage").Range("R14")
'Höhe
Sheets("Aufträge").Cells(add, 32).Value = Sheets("Auftragsanlage").Range("S14")
'Boden
'Länge
Sheets("Aufträge").Cells(add, 33).Value = Sheets("Auftragsanlage").Range("T14")
'Breite
Sheets("Aufträge").Cells(add, 34).Value = Sheets("Auftragsanlage").Range("U14")
'QM
Sheets("Aufträge").Cells(add, 35).Value = Sheets("Auftragsanlage").Range("V14")
'Preis
Sheets("Aufträge").Cells(add, 36).Value = Sheets("Auftragsanlage").Range("Y14")
'Summe
Sheets("Aufträge").Cells(add, 37).Value = Sheets("Auftragsanlage").Range("AB14")
'Haubenmitarbeiter
Sheets("Aufträge").Cells(add, 38).Value = Sheets("Auftragsanlage").Range("AE14")
'Pos 3
'Referenz
Sheets("Aufträge").Cells(add, 39).Value = Sheets("Auftragsanlage").Range("C15")
'Menge
Sheets("Aufträge").Cells(add, 40).Value = Sheets("Auftragsanlage").Range("H15")
'Material
Sheets("Aufträge").Cells(add, 41).Value = Sheets("Auftragsanlage").Range("J15")
'Konfektionierung
Sheets("Aufträge").Cells(add, 42).Value = Sheets("Auftragsanlage").Range("M15")
'Haube
'Länge
Sheets("Aufträge").Cells(add, 43).Value = Sheets("Auftragsanlage").Range("Q15")
'Breite
Sheets("Aufträge").Cells(add, 44).Value = Sheets("Auftragsanlage").Range("R15")
'Höhe
Sheets("Aufträge").Cells(add, 45).Value = Sheets("Auftragsanlage").Range("S15")
'Boden
'Länge
Sheets("Aufträge").Cells(add, 46).Value = Sheets("Auftragsanlage").Range("T15")
'Breite
Sheets("Aufträge").Cells(add, 47).Value = Sheets("Auftragsanlage").Range("U15")
'QM
Sheets("Aufträge").Cells(add, 48).Value = Sheets("Auftragsanlage").Range("V15")
'Preis
Sheets("Aufträge").Cells(add, 49).Value = Sheets("Auftragsanlage").Range("Y15")
'Summe
Sheets("Aufträge").Cells(add, 50).Value = Sheets("Auftragsanlage").Range("AB15")
'Haubenmitarbeiter
Sheets("Aufträge").Cells(add, 51).Value = Sheets("Auftragsanlage").Range("AE15")
'Pos 4
'Referenz
Sheets("Aufträge").Cells(add, 52).Value = Sheets("Auftragsanlage").Range("C16")
'Menge
Sheets("Aufträge").Cells(add, 53).Value = Sheets("Auftragsanlage").Range("H16")
'Material
Sheets("Aufträge").Cells(add, 54).Value = Sheets("Auftragsanlage").Range("J16")
'Konfektionierung
Sheets("Aufträge").Cells(add, 55).Value = Sheets("Auftragsanlage").Range("M16")
'Haube
'Länge
Sheets("Aufträge").Cells(add, 56).Value = Sheets("Auftragsanlage").Range("Q16")
'Breite
Sheets("Aufträge").Cells(add, 57).Value = Sheets("Auftragsanlage").Range("R16")
'Höhe
Sheets("Aufträge").Cells(add, 58).Value = Sheets("Auftragsanlage").Range("S16")
'Boden
'Länge
Sheets("Aufträge").Cells(add, 59).Value = Sheets("Auftragsanlage").Range("T16")
'Breite
Sheets("Aufträge").Cells(add, 60).Value = Sheets("Auftragsanlage").Range("U16")
'QM
Sheets("Aufträge").Cells(add, 61).Value = Sheets("Auftragsanlage").Range("V16")
'Preis
Sheets("Aufträge").Cells(add, 62).Value = Sheets("Auftragsanlage").Range("Y16")
'Summe
Sheets("Aufträge").Cells(add, 63).Value = Sheets("Auftragsanlage").Range("AB16")
'Haubenmitarbeiter
Sheets("Aufträge").Cells(add, 64).Value = Sheets("Auftragsanlage").Range("AE16")
 ... und so weiter bis Position 100!
Vielen Dank vorab für jede Hilfe!
VG, Florian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prozedur zu groß -> Wie meine Formel verkürz?
01.10.2018 13:16:21
Daniel
Hi
ohne da jetzt den Sinn zu hinterfragen, könntest du die Programmzeilen mit einer Schleife über Sheets
For P = 1 to 100 'Anzahl Positionen
'Referenz
Sheets("Aufträge").Cells(add, P * 13 + 0).Value = Sheets("Auftragsanlage").Cells(12 + P, "C")   _
'Menge
Sheets("Aufträge").Cells(add, P * 13 + 1).Value = Sheets("Auftragsanlage").Cells(12 + P, "H")
'Material
Sheets("Aufträge").Cells(add, P * 13 + 2).Value = Sheets("Auftragsanlage").Cells(12 + P, "J")
'Haubenmitarbeiter
Sheets("Aufträge").Cells(add, P * 13 + 12).Value = Sheets("Auftragsanlage").Cells(12 + P, "AE") _
Next P

Gruß Daniel
Anzeige
AW: Prozedur zu groß -> Wie meine Formel verkürz?
01.10.2018 14:31:30
Florian
1000 Dank Daniel!
Mit der Schleife klappt es super!
AW: Prozedur zu groß -> Wie meine Formel ..
01.10.2018 14:55:18
Karl-heinz
Hallo Florian,
hier ein kurzer möglicher Ansatz. (ungetestet) Lediglich die Beschriftung im Makro leidet etwas.
Im Array kann man alles vorgeben....
Sub SetzeWerte()
Dim add As Integer, Arr() As String
add = Sheets("Verweise").Range("A2").Value
'                           Pos1                Pos2
Arr = Split(",G2,,,,,,,,,,,,C13,H13,J13,M13,.......", ",")
For Spalte = 13 To UBound(Arr)
If Arr(Spalte)  "" Then
Sheets("Aufträge").Cells(Add, Spalte).Value = Sheets("Auftragsanlage").Range(Arr(Spalte)). _
Value
End If
Next Spalte
End Sub
viele Grüße
Karl-Heinz
Anzeige

300 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

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