Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.06.2025 09:18:27
Excelprogramm mit makro zurücksetzen
19.06.2025 00:23:42
bedingte Formatierung einer Zeilengruppe
18.06.2025 20:36:16
Datum wird bei erneuter Suche nicht gefunden
18.06.2025 19:40:30
Per Spill-Formel sortieren und hochzählen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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
Anzeige

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

Kategorie
Programmierung
Tags
#datenverarbeitung #makros #vba
Relevante Fragen
Anzeige
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

Forumthreads zu verwandten 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
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
Fehler beim kompilieren
lisa

Hallo
In meiner Recherche komme ich nicht weiter und bitte Euch um Hilfe
Hier erst mein Projekt welches funktioniert.
Was nicht funktioniert folgt etwas tiefer.
Ich habe eine Userform mit 5 Textboxen und einer Summenbox!
Die Berechnung erfolgt super per Eingabe der Werte in...
27.10.2009 14:11:12
Thread-ID: 1112495
12 Beiträge
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
Anzeige
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
Anzeige
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 Excel 2010
Hans

Hallo Leute, ich habe ein Problem mit einer Datei ( mit vielen VBA Skripten).
Sie wurde auf Excel 2003 geschrieben.
Jetzt habe ich auf meinem Rechner Office 2010 installiert .. dann Excel deinstalliert ( da die Datei so nicht mehr lief ) und wieder Excel 2003 installiert.
Wenn ich...
07.01.2011 09:19:45
Thread-ID: 1194354
3 Beiträge
Fehler beim Kompilieren
Leitz

Hallo!
Habe seit heute eine Fehermeldung! Bis jetzt funktionierte das einwandfrei!
Fehler beim Kompilieren: Projekt oder Bibliothek nicht gefunden.
Bezieht sich auf Format im Code
Target.Value = strBuBe & " " & Format(Target, "000")
Arbeite normal mit Office 2003, h...
18.01.2011 11:00:47
Thread-ID: 1196118
8 Beiträge
Fehler beim kompilieren!
Leitz

Hallo!
Habe ein ganz blödes Problem.
Verwende eine Excel Datei auf mehreren Computern. Auf allen funktioniert es, bis auf einem.
Fehlermeldung: "FEHLER BEIM KOMPILIEREN. PROJEKT IN DER BIBLIOTHEK NICHT GEFUNDEN."
Nun weiß ich, dass ich bei z.B. Format das ändern kann auf VBA.For...
10.05.2011 11:31:29
Thread-ID: 1213753
3 Beiträge
Fehler beim Kompilieren
Benedikt

Guten Morgen miteinander
Eine Datei soll bei inaktivität nach 3 Min. geschlossen werden.
Im Web habe ich eine Lösung gefunden. Die Downloaddatei funktionierte auf meinem Rechner.
Nach dem Einbau in meine Datei habe ich aber Probleme
Nachfolgender Codeschnippsel bleibt bei Time...
23.10.2011 08:30:01
Thread-ID: 1235017
3 Beiträge
Solver unter VBA - Fehler beim Kompiliieren
claudia

Hallo,
ich habe ein Problem, mit dem ich nicht weiterkomme.
Ich habe ein Workbook mit diversen Seiten, auf dem sich jeweils ein Solver befindet. Mit einem _ Macro möchte ich die Seiten einzelnd durchlaufen lassen. Sub test() Dim i As Integer ' unter VB-Editor: Extras-> Verweise -&g...
23.12.2011 16:17:43
Thread-ID: 1243389
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige