02.04.2019, 13:17
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:
02.04.2019, 13:17
02.04.2019, 13:46
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.
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.
03.04.2019, 12:24
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
Bis
wird der Code ausgeführt dann kommt die Fehlermeldung
MFG Sven
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 SubCode:
Cells(lz1, 3) = TextBox3.Textwird der Code ausgeführt dann kommt die Fehlermeldung
MFG Sven
03.04.2019, 12:41
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" ???
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" ???
03.04.2019, 12:45
das ist der code der UF 5
Datei anbei
MFG SVen
Datei anbei
MFG SVen
03.04.2019, 13:09
Hi
lzl ist nicht das gleiche wie lz1. Sieht halt zum verwechseln ähnlich aus.
Ich empfehle Option Explicit zu Verwenden.
Gruß Elex
lzl ist nicht das gleiche wie lz1. Sieht halt zum verwechseln ähnlich aus.
Ich empfehle Option Explicit zu Verwenden.
Gruß Elex
03.04.2019, 13:14
Top
da gibt es optisch ja gar keinen Unterschied.
Das du das gefunden hast :15:
da gibt es optisch ja gar keinen Unterschied.
Das du das gefunden hast :15:
09.04.2019, 12:15
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:
Bei den Sortenreinen Kunden oder auch bei Kunden mit nur 2 oder Sorten geht diese Formel nicht, weil bei den Spalten
steht folgende Formel
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
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)Code:
[Sorte 1 Bestand Mixkiste]];[Sorte 2 Bestand Mixkiste];[Sorte 3 Bestand Mixkiste];[Sorte 4 Bestand Mixkiste]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]]);"")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
09.04.2019, 12:30
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
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
10.04.2019, 12:10
(03.04.2019, 12:41)Käpt\n Blaubär schrieb: [ -> ]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