AW: Datei in mehrere aufteilen
16.06.2004 08:01:11
Harald
Rolando,
die Datei kann ich nicht downloaden, warum auch immer.
Was meinst Du mit automatisieren ohne 10 einzugeben ?
Unter PLZ stehen doch üblicherweise jede Menge Zahlen und Excel sollte schon wissen, wonach gesucht wird.
Auf die Schnelle hab ich was zusammengebastelt. Über Anpassen kannst Du dir ja in die Leiste dieses Makro einsetzen.
Mußt halt die Bereiche anpassen.
Sub PLZsuchenundkopieren()
Dim suchbegriff As String
suchbegriff = InputBox("Geben Sie den Suchbegriff ein!")
Selection.AutoFilter Field:=2, Criteria1:=suchbegriff 'Field ist die Spalte in der gefiltert wird
Range("A1:B4").Copy 'ist das was kopiert werden soll und kann zeilenmäßig ruhig übertrieben sein
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Eigene Dateien\Noch_ein_Ordner\" & Range("b2") & ".xls"
ActiveWindow.Close
' in b2 steht der Suchbegriff (sofern gefunden, sonst Fehlermeldung)
End Sub
Das wars auf die Schnelle. Jetzt muss ich meinen Job weitermachen. Ich schau nachher nochmal rein.
Gruß
Harald