Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Auflisten von Teiletypen - Was wird wo gelagert?
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 24.08.2007, 15:54 Nach oben

Hallo, bin Newbie hier und hab mal gleich eine Frage an euch.

Habe mit Excel 2007 eine Übersicht erstellt, welche Teile sich in welchen Warenläger befinden. Zum Beispiel: Teil A und Teil B befinden sich in Lager 1, Teil A und Teil C befinden sich in Lager 2 usw.....

Das Problem ist, dass sich bis zu 30000 verschiedene Teile in den einzelnen Warenläger befinden und man sehr leicht den Überblick verliert, was wo gelagert wird. Es kommt auch des öfteren vor, dass ein Teiletyp in mehreren Läger gleichzeitig auftaucht. Damit ich einen besseren Überblick habe und um die Lagerung eines Teiletyps im mehreren Warenläger zu vermeiden, möchte ich folgende Struktur erzeugen:

Lager 1 2 3

Teil A: X X -
Teil B: X - -
Teil C: - X -
Teil D: - - X
.
.
.

Bedeutung:
X = wird gelagert
- = wird nicht gelagert

Leider habe ich keine Ahnung, wie man das mit Hilfe von Excel machen könnte.Vielleicht ist es ja mit Excel gar nicht möglich und man muss was programmieren. Ich hoffe ihr könnt mir trotzdem weiter helfen
Vielen Dank
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 24.08.2007, 16:05 Nach oben

Hallo!

Leider schreibst du nicht, wie deine bisherige Übersicht aussieht.
Das wäre natürlich eine Information, die du schon rausrücken müsstest.
Am anschaulichsten ist es erfahrungsgemäß, wenn du hier eine Beispielmappe hochladen könntest, an der man sich austoben kann.
Aber auch eine detaillierte Beschreibung (was steht wo?) kann hilfreich sein.

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 24.08.2007, 16:28 Nach oben

Hallo schatzi,

die Übersicht ist ganz simpel gehalten.
In den Spalten werden die Läger aufgelistet, in den Zeilen die einzelnen Teilenummern bzw Teile, die sich darin befinden.

Hab mal einen Auszug daraus hochgeladen

Ich will nur auf Anhieb sehen können, welche Teilenummern in mehreren Läger vorkommen, d.h. in Zukunft sollte ein Teil nur noch in einem Lager gelagert werden und nicht mehr in mehreren
z.B Teil A/B/C in Lager 1, Teil D/E/F in Lager 2 usw


Läger.xls
 Beschreibung:

Download
 Dateiname:  Läger.xls
 Dateigröße:  83.5 KB
 Heruntergeladen:  45 mal

Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 24.08.2007, 16:53 Nach oben

Hallo!

Wäre die Lösung im Anhang etwas für dich?

Die Eingabe der Formel in B2 muss mit Strg+Shift+Enter abgeschlossen werden.
Danach ist die Formel beliebig nach rechts und/oder unten ausfüllbar.


Läger1.xls
 Beschreibung:

Download
 Dateiname:  Läger1.xls
 Dateigröße:  92.5 KB
 Heruntergeladen:  42 mal


_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 24.08.2007, 17:42 Nach oben

Also die Lösung finde ich super. Vielen Dank
Jetzt weiß ich nur noch nicht, wie ich die Teilenummern aller Läger geordnet in die Spalte A bekomme. Sie sollten nicht doppelt auftreten, somit kann ich sie nicht einfach kopieren
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 24.08.2007, 18:00 Nach oben

Hallo!

Doch, du kannst nach dem Kopieren die Duplikate entfernen:
Ribbon "Daten" > "Datentools" > "Duplikate entfernen"

Wenn du aber tatsächlich alle deine 30000 Teile auf einmal aufführen und jedes davon mit meinen Formeln auswerten möchtest, dann sprengst du höchstwahrscheinlich die Rechenkapazität deines Rechners:

30000 Formeln, die je 60000 Zellen durchsuchen und in insgesamt 6 Spalten stehen, ergeben etwas über 10 Mrd. Rechenoperationen pro Neuberechnung...
Daher würde ich an deiner Stelle hier in Etappen vorgehen.

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 24.08.2007, 18:30 Nach oben

Ok, alles klar. Nochmals vielen Dank für deine schnelle Hilfe
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 26.08.2007, 11:06 Nach oben

Hallo schatzi,

mir ist aufgefallen, dass bei deiner Formel ab Zeile 178 die Meldung #Zahl! kommt und ab Zeile 179 gar nichts mehr.
Woran könnte es liegen?
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 26.08.2007, 13:12 Nach oben

Hallo!

Dieser Fehler tritt bei mir nicht auf...
Hast du etwa an meiner Formel rumgepfuscht? Very Happy

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 26.08.2007, 14:39 Nach oben

Und nochmal Hallo!

Da bei deinem Datenaufkommen die Formellösung doch sehr zeitaufwändig ist, habe ich mich mal an einer VBA-Lösung versucht.
Auf meinem Rechner dauert der Code anhand deiner Beispieldatei unter 20 Sekunden und ist damit natürlich deutlich schneller als die Matrixformeln.

Probier's mal aus und klicke "Klick mich!"

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 26.08.2007, 16:42 Nach oben

Hallo,

Nein, denke nicht, dass ich an deiner Formel was geändert habe. Gibt ja nichts zu verbessern Very Happy
Also die Beispieldatei funktiniert bei mir auch wunderbar, nur sobal Teilenummern vorkommen, die ich dir nicht mehr geschickt habe (also ab Zeile 179 eines Lagers), bleiben die Felder einfach leer.
Deine zweite Lösung finde ich aber noch besser, da die erste Variante auf meinem alten Pentium 4 wirklich sehr lange dauert.
Wie machen wir es jetzt, dass die restlichen 26000 Teilenummern auch noch richtig zugeordnet werden Mr. Green ?
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 26.08.2007, 17:01 Nach oben

Hallo!

Öffne aus deiner Originaldatei heraus den VBA-Editor mit Alt+F11.
Wähle Menü Einfügen > Modul und füge diesen Code ins Codefenster rechts ein:
Code:
Sub Auflisten()
Dim Zelle As Range, Bereich As Range
Dim i As Integer, Zähler As Integer
With Sheets("Übersicht")
.Cells.Clear
Set Bereich = Sheets("Liste").UsedRange.Offset(1, 0)
For Each Zelle In Bereich.SpecialCells(xlCellTypeConstants)
Zähler = 2
If WorksheetFunction.CountIf(.Columns(1), Zelle) = 0 Then
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = Zelle
For i = 1 To Bereich.Columns.Count
If WorksheetFunction.CountIf(Bereich.Columns(i), Zelle) > 0 Then
.Cells(.Range("A65536").End(xlUp).Row, Zähler) = Sheets("Liste").Cells(1, i)
Zähler = Zähler + 1
End If
Next i
End If
Next Zelle
End With
End Sub

Die Blattnamen "Liste" (Quellblatt) und "Übersicht" (Ausgabeblatt) musst du auf deine Datei anpassen.
Zurück in der Datei rufst du das Makro mit Alt+F8 auf.

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 26.08.2007, 17:38 Nach oben

Keine Ahnung, was ich falsch mache, aber bei mir kommt immer die Fehlermeldung: Laufzeitfehler 1004 (keine Zellen gefunden)

Es wird folgende Zeile im Debug Modus hervorgehoben:
For Each Zelle In Bereich.SpecialCells(xlCellTypeConstants)
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5725

BeitragVerfasst am: 26.08.2007, 17:47 Nach oben

Hmm...

Hast du die Blattnamen korrekt angepasst?

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!
Benutzer-Profile anzeigenPrivate Nachricht senden
Jaqueline
Newbie
Newbie


Anmeldedatum: 24.08.2007
Beiträge: 12

BeitragVerfasst am: 26.08.2007, 17:48 Nach oben

Ich glaube jetzt hat es funktioniert. Im Moment rechnet er, werde mich später melden, obs geklappt hat
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Design wird falsch gedruckt RiRoSl Microsoft Word Hilfe 0 18.11.2008, 18:02 Letzten Beitrag anzeigen
Keine neuen Beiträge Hilfe:Word-Dokument wird stark vergrö... prinzessinlinea Microsoft Word Hilfe 0 12.11.2008, 13:29 Letzten Beitrag anzeigen
Keine neuen Beiträge Datumsdifferenz Auflisten Appy Microsoft Access Hilfe 11 05.11.2008, 10:19 Letzten Beitrag anzeigen
Keine neuen Beiträge lückenlos ohne Doppelgänger auflisten Krino Microsoft Excel Hilfe 3 27.10.2008, 00:17 Letzten Beitrag anzeigen
Keine neuen Beiträge Tastaturen sind plötzlich falsch bele... Alfff Microsoft Word Hilfe 2 16.09.2008, 08:43 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de