langsame Datei

[Coprat]

Ja die kenn ich zum Teil. Will ich auch einhalten. Aber mein Führungsriege aus dem Krawattensilo will das so und so und so. :16: :60:

[Der Steuerfuzzi]

Hallo Sven

wenn Du so über Deine Chefs sprichst, wäre es vielleicht sinnvoll Deine EIgenschaften im Dokument vor dem Hochladen zu entfernen.

Mal so ein Tip am Rande.

[Coprat]

Hallo,

ich habe jetzt neu angefangen und stehe gleich vor dem Problem meiner UF.

Sie trägt nur bis Spalte 3 ein dann kommt Fehlermeldung. Warum. Was hab ich übersehen?

Code lautet folgendermaßen

Code:

'Button:  Übernehmen
Private Sub CommandButton1_Click()
Dim lz1 As Long   'LastZell in Tabelle1
 On Error GoTo Fehler
 lz1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
 'Mixkiste
 Cells(lz1, 1) = TextBox1.Text
 Cells(lz1, 2) = TextBox2.Text
 Cells(lz1, 3) = TextBox3.Text
 'Sorte 1
 Cells(lzl, 8) = TextBox4.Text
 Cells(lzl, 9) = TextBox5.Text
 Cells(lzl, 10) = TextBox6.Text
 'Sorte 2
 Cells(lzl, 15) = TextBox7.Text
 Cells(lzl, 16) = TextBox8.Text
 Cells(lzl, 17) = TextBox9.Text
 'Sorte 3
 Cells(lzl, 22) = TextBox10.Text
 Cells(lzl, 23) = TextBox11.Text
 Cells(lzl, 24) = TextBox12.Text
 'Sorte 4
 Cells(lzl, 29) = TextBox13.Text
 Cells(lzl, 30) = TextBox14.Text
 Cells(lzl, 31) = TextBox15.Text
'Leeren
  TextBox1.Text = Empty
  TextBox2.Text = Empty
  TextBox3.Text = Empty
  TextBox4.Text = Empty
  TextBox5.Text = Empty
  TextBox6.Text = Empty
  TextBox7.Text = Empty
  TextBox8.Text = Empty
  TextBox9.Text = Empty
  TextBox10.Text = Empty
  TextBox11.Text = Empty
  TextBox12.Text = Empty
  TextBox13.Text = Empty
  TextBox14.Text = Empty
  TextBox15.Text = Empty
 

Exit Sub

Fehler:  MsgBox "Eingabe Fehler aufgetreten"
End Sub

'Button:  Abbrechen
Private Sub CommandButton2_Click()
 Unload Me
End Sub

Bis

Code:

Cells(lz1, 3) = TextBox3.Text

wird der Code ausgeführt dann kommt die Fehlermeldung

MFG Sven

[Käpt'n Blaubär]

Hallo,

1. sehe ich weit und breit im gesamten Code nichts von einen Userform, obwohl ich schon eine Brille auf der Nase habe.
2. würde eine Beispieldatei durchaus Sinn machen  :19:
3. warum heißt dieser Thread "langsame Datei" ???

[Coprat]

das ist der code der UF 5
Datei anbei


MFG SVen

[Elex]

Hi

lzl ist nicht das gleiche wie lz1.  Sieht halt zum verwechseln ähnlich aus.

Ich empfehle    Option Explicit    zu Verwenden.

Gruß Elex

[Coprat]

Top

da gibt es optisch ja gar keinen Unterschied.
Das du das gefunden hast :15:

[Coprat]

Hallo,

noch einmal ne Frage zu einer Formel. Ich hoffe ich kann es verständlich Formulieren. Datei im Anhang.

es geht um folgendes:

Wir produzieren einzelne Sorten die zu einer Kiste zusammengeführt werden. In einer Kiste sind bis zu 4 Sorten (manchmal aber auch sorten rein) Die Menge pro Sorte pro Kiste ist unterschiedlich.
Ist aber bei jeder Sorte hinterlegt.
Ich brauche jetzt aber eine Formel die mir sagt wieviel Paletten ich mit den produzierten einzelnen Sorten hinbekomme.
In der Datei ist folgendes Beispiel

Kunde 1
Sortenrein
24 Pakete pro Karton
48 Karton auf einer Palette
bestellt sind 500 Karton also 10,41 Paletten
Produziert habe ich 15000 Pakete
habe somit 3000 Pakete zuviel Produziert
hätte somit einen Überhang von 6,944 Paletten

Für Kunden mit 4 Sorten habe ich folgende Formel:

Code:

=WENNFEHLER(MIN([@[Sorte 1 Bestand Mixkiste]];[Sorte 2 Bestand Mixkiste];[Sorte 3 Bestand Mixkiste];[Sorte 4 Bestand Mixkiste])/[@[Paletten-belegung]];0)

Bei den Sortenreinen Kunden oder auch bei Kunden mit nur 2 oder Sorten geht diese Formel nicht, weil bei den Spalten

Code:

[Sorte 1 Bestand Mixkiste]];[Sorte 2 Bestand Mixkiste];[Sorte 3 Bestand Mixkiste];[Sorte 4 Bestand Mixkiste]

steht folgende Formel

Code:

=WENNFEHLER(WENN(ISTZAHL([Sorte 1 Pakete offene Bestellung]);0;([Sorte 1 Produzierte Pakete]-[Sorte 1 bestellte Pakete])/[@[Sorte 1 Sortierung]]);"")
=WENNFEHLER(WENN(ISTZAHL([Sorte 2 Pakete offene Bestellung]);0;([Sorte 2 Produzierte Pakete]-[Sorte 2 bestellte Pakete])/[@[Sorte 2 Sortierung]]);"")
=WENNFEHLER(WENN(ISTZAHL([Sorte 3 Pakete offene Bestellung]);0;([Sorte 3 Produzierte Pakete]-[Sorte 3 bestellte Pakete])/[@[Sorte 3 Sortierung]]);"")
=WENNFEHLER(WENN(ISTZAHL([Sorte 4 Pakete offene Bestellung]);0;([Sorte 4 Produzierte Pakete]-[Sorte 4 bestellte Pakete])/[@[Sorte 4 Sortierung]]);"")

Da ich dann immer 0 als Ergebnis bekomme ist MIN ja auch 0

Wie bekomme ich die Formeln so umgeschrieben, dass ich wenn es Sortenrein bzw. nicht 4 Sorten sind, den Richtigen Bestand angezeigt.


Ich hoffe es ist mit Hilfe der Datei zu verstehen.


MFG

Sven

[Coprat]

Hi,

ich habe jetzt einige 0 in "" geändert und dann ist mir aufgefallen, dass ich das [@[...] teilweise vegessen habe und excel die ganze spalte durchsucht hat.


Anbei die Datei mit den Änderungen

BEi Anregungen wie an was besser lösen kann habe ich ein offenes Ohr

[Coprat]

3.  warum heißt dieser Thread "langsame Datei" ???

Sorry diese Frage habe ich doch glatt übersehen.

Der Thread Heißt so, weil die Datei zu lange rechnet für den Endbenutzer. Die Fehler haeb ich ja schon gefunden (aufgezeigt bekommen)
Bin gerade dabei dies zu verbessern


MFG Sven