Auflisten von Teiletypen - Was wird wo gelagert? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Auflisten von Teiletypen - Was wird wo gelagert?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2

Autor

Nachricht

Jaqueline
Newbie
Newbie

Anmeldedatum: 24.08.2007
Beiträge: 12

Verfasst am: 26.08.2007, 18:53

Im Standardfall muss man für "Liste" Tabelle 1 und für "Übersicht" Tabelle2 schreiben,oder?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4847

Verfasst am: 26.08.2007, 18:58

Halt das, was unten auf den entsprechenden Reitern in der Tabelle steht.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Jaqueline
Newbie
Newbie

Anmeldedatum: 24.08.2007
Beiträge: 12

Verfasst am: 26.08.2007, 19:02

Genau das hab ich gemeint. Mal schaun, wie lange das jetzt dauert.........

Jaqueline
Newbie
Newbie

Anmeldedatum: 24.08.2007
Beiträge: 12

Verfasst am: 26.08.2007, 20:30

Also er ist fertig. Hin und wieder kommen aber leider Teilenummern vor, die keinem Lager zugeordnet sind. Ebenso die restlichen 7000 am Ende.
Wenn du willst, dann kann ich dir die ganze Datei mal schicken

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4847

Verfasst am: 26.08.2007, 20:34

Ich habe dir eine PN geschickt.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Jaqueline
Newbie
Newbie

Anmeldedatum: 24.08.2007
Beiträge: 12

Verfasst am: 27.08.2007, 17:31

Hallo schatzi,

wollte dir nur Bescheid geben, dass nun alles funktioniert hat.
Für alle anderen, die es vielleicht noch interessiert, hier der funktionierende Code von schatzi:

Sub Auflisten()
Dim Zelle As Range, Bereich As Range
Dim i As Integer, Zähler As Integer
With Sheets("Tabelle2")
.Cells.Clear
Set Bereich = Sheets("Tabelle1").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 = 2 To 19 If WorksheetFunction.CountIf(Sheets("Tabelle1").Columns(i), Zelle) > 0 Then
.Cells(.Range("A65536").End(xlUp).Row, Zähler) = Sheet ("Tabelle1").Cells(1, i)
Zähler = Zähler + 1
End If
Next i
End If
Next Zelle
End With
End Sub

Vielen Dank und wahrscheinlich bis bald Very Happy

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Terminänderung im Kalender wird nicht...	OfficeUser	Microsoft Outlook Hilfe	0	04.07.2008, 11:17
	Die Überprüfung der Datendatei wird a...	Medvedik	Microsoft Outlook Hilfe	10	29.06.2008, 11:31
	XP, Word 2003 Formatierung wird ständ...	Terratec242	Microsoft Word Hilfe	1	28.06.2008, 16:19
	Kalender: Jeder neue Termin wird als ...	Botox83	Microsoft Outlook Hilfe	0	15.06.2008, 12:07
	Text in Zeile wird nicht vollständig ...	jn79hn	Microsoft Excel Hilfe	8	10.06.2008, 15:41

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

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