Automatisch Dateien anlegen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2000] Automatisch Dateien anlegen

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

Autor

Nachricht

derhornist
Besserwisser

Anmeldedatum: 14.03.2006
Beiträge: 70

Verfasst am: 05.03.2008, 09:52

Hallo,
ich benötige mal wieder Eure Hilfe. Ich habe eine EXCEL- Datei. Dort steht in Spalte B immer eine Auftragsnummer. Ich möchte nun automatisch alle Zeilen mit der gleichen Auftragsnummer suchen, diese Zeilen jeweils zusammengefasst in eine neue Tabelle eintragen lassen und diese Tabelle dann automatisch abspeichern lassen. Der Name soll einfach die Auftragsnummer sein.
Das sollte sich doch bewerkstelligen lassen. Kann mir jemand helfen?

Danke

Uwe

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 10:30

Hallo!

Teste doch mal etwas in dieser Art:

Code:

Sub test()
Dim Blatt As Worksheet, Such$
Set Blatt = ActiveSheet
Such = InputBox("Welche Auftragsnummer?")
With Blatt
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=2, Criteria1:=Such
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = False
End With
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs Filename:="E:\Test\" & Such, FileFormat:=xlNormal
Application.CutCopyMode = False
End Sub

_________________

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!

derhornist
Besserwisser

Anmeldedatum: 14.03.2006
Beiträge: 70

Verfasst am: 05.03.2008, 10:50

Danke,

das hat schon mal geklappt. Allerdings hat das Makro jetzt nur EINE Zeile kopiert. Wie schaffe ich es, dass alle Zeilen mit diesem Inhalt gesucht und kopiert werden?

Danke

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 11:00

Hallo!

Bei mir funktioniert's.
Ich habe die Datei zur Veranschaulichung mal angehängt.

test.xls

Beschreibung:

Download

Dateiname:

test.xls

Dateigröße:

32.5 KB

Heruntergeladen:

26 mal

derhornist
Besserwisser

Anmeldedatum: 14.03.2006
Beiträge: 70

Verfasst am: 05.03.2008, 11:16

Hallo,

also bei mir geht es nicht. Ich habe mal die Datei drangehängt. In Spalte A steht die Auftragsnummer.

Danke

RBU gesamt.xls

Beschreibung:

Download

Dateiname:

RBU gesamt.xls

Dateigröße:

94.5 KB

Heruntergeladen:

16 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 11:20

Hallo!

Der Autofilter verlangt eindeutige Spalten-Überschriften.
Außerdem sprachst du im ersten Posting von Spalte B, jetzt aber von Spalte A.
Also:
1. Überschriften hinzufügen
2. .Range("A1").AutoFilter Field:=1, Criteria1:=Such

derhornist
Besserwisser

Anmeldedatum: 14.03.2006
Beiträge: 70

Verfasst am: 05.03.2008, 11:34

Supi,

hat geklappt. Sorry wegen A und B. Habe das Prinzip aber verstanden. Kann ich die Eingabe der Auftragsnummer auch noch automatisieren. Ich habe die Auftragsnummern alle in einer anderen Tabelle. Nennen wir sie mal "Auftragsnummern.xls" und stehen dort tatsächlich ab A1. Ich meine also, das Makro soll sich zuerst die erste dann die zweite usw. Auftragsnummer nehmen und einsetzen.

Nochmals Danke
Uwe

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.03.2008, 12:12

Hallo!

Dann vielleicht so:

Code:

Sub test()
Dim Blatt As Worksheet, Such$
Dim Nummer As Range
Const Pfad As String = "E:\Test\" 'hier liegt "Auftragsnummern.xls"
Const x As String = "Auftragsnummern.xls"
Set Blatt = ActiveSheet
Workbooks.Open Pfad & x
For Each Nummer In Workbooks(x).Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants)
Such = Nummer
With Blatt
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=1, Criteria1:=Such
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = False
End With
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs Filename:="E:\Test\" & Such, FileFormat:=xlNormal
Next Nummer
Application.CutCopyMode = False
End Sub

Öffnet die Datei "Auftragsnummern.xls" und klappert alle Einträge in Spalte A des ersten Tabellenblatts ab.

derhornist
Besserwisser

Anmeldedatum: 14.03.2006
Beiträge: 70

Verfasst am: 05.03.2008, 12:31

Super

,

vielen Dank. Klappt genauso wie ich es wollte.

DANKE

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

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	1	19.11.2008, 17:26
	Trennlinie automatisch	zubergoos	Microsoft Word Hilfe	3	19.11.2008, 14:51
	Fotoalbum automatisch einfügen - Über...	Snazooh	Microsoft PowerPoint Hilfe	0	15.11.2008, 11:45
	Daten aus Spalten von Tabellenblatt 1...	leenie	Microsoft Excel Hilfe	2	14.11.2008, 10:52
	Daten (Zahlen) ersetzen in zwei versc...	Bratwurst	Microsoft Excel Hilfe	4	11.11.2008, 11: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