Liebes Forum,
ich habe schon oft hilfreiche Artikel hier gefunden, aber diesmal muss ich mein Anliegen selber formulieren, da ich in allen Foren nichts gefunden habe.
Ich habe eine große Tabelle mit vielen Lieferanten und deren Artikeln. Diese Liste muss nun nach Lieferanten aufgeteilt werden, soll heißen, für jeden Lieferanten ein neues Tabellenblatt einfügen und dann Lieferantennummer mit den dazugehörigen Artikel auf dieses Tabellenblatt kopiéren. Das klappt auch schon über eine Inputboxeingabe. Da es sich aber um über 400 Lieferanten handelt, habe ich noch eine Tabelle in der jeder Lieferant mit Lieferantennummer aufgelistet ist. Hier nun meine Frage:
Ist es möglich mit einem Makro, welches sich immerfortlaufend die Lieferantennummer aus der Tabelle, Tabelle1, Spalte D2 beginnend, ausliest und aus der aufzuteilenden Tabelle die dazugehörigen Daten in ein neues Tabellenblatt kopiert?
Hier schon einmal das Makro für das Auslesen über eine Inputbox:
Sub Nach_Lieferanten_auslesen()
’
’ Nach_Lieferanten_auslesen Makro
’
Dim Eingabe As Long
Range(„A1:K1“).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Eingabe = InputBox(„Bitte DUNS-Nr. eingeben:“, „DUNS-Nr. Abfrage“)
ActiveSheet.Range("$A$1:blush:K$50630").AutoFilter Field:=3, Criteria1:=Eingabe
Selection.Copy
Sheets.Add
ActiveSheet.Name = Eingabe
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Move after:=Sheets(„Originaltabelle“)
Sheets(„Originaltabelle“).Select
Application.CutCopyMode = False
Range(„A14648“).Select
End Sub
Die Inputbox soll jetzt quasi durch die Lieferantenummernliste ersetzt werden.
Ich hoffe, mir kann jemand helfen, da ich diese Liste einmal im Monat aufteilen muss.
Vielen Dank im voraus.
Datenhexe