Hallo zusammen,
ich versuche zurzeit ein Makro in Excel zu schreiben, das mir aus einen Tabellenblatt bestimmte Daten rausfiltert und in einen neuen einfügt.
Die Tabelle zieht ca wie folgt aus:
Lieferant | Artikel | Beschreibung | Preis | Menge
AY DS0055 shdjahd 3,56 2
AY FG0096 sjkdjksd 5,00 1
WE DX3434 dsdsakdlök 7,35 5
WE FG934 sadsad 15,20 6
WE Op3439 sdjskjdk 5,36 2
und so weiter.
Ich bin inzwischen soweit, das er mir mit einer Hilfstabelle (Diese ist aber eigentlich nicht unbedingt notwendig wenn ich noch etwas abänder) wo nur Lieferanten und Artikel enthalten sind, durch ein eintragen von einen „X“ ein neues Tabellenblatt erstellt, dieses umbenennt nach den Lieferanten, die Überschriften einfügt und nochmal den Lieferant und den 1. Artikel.
Makro:
Sub Tabellenblatt_erstellen()
Sheets(„Ark2“).Select
For i = 2 To 500
If Cells(i, 1) = „X“ Then
a1 = Cells(i, 2)
a2 = Cells(i, 3)
Exit For
End If
Next i
Range(„B1:C1“).Select
Selection.Copy
Sheets.Add
Selection.Columns.AutoFit
Cells(2, 1) = a1
Cells(2, 2) = a2
ActiveSheet.Paste
Merker = ActiveSheet.Range(„A2“)
ActiveSheet.Name = Merker
Sheets(„Ark2“).Select
End Sub
Problem:
Er schreibt mir leider nur den ersten Artikel so rein, da ich nicht weiß wie man es programmieren muss, das er automatisch sucht welcher Artikel bei welchen Lieferanten steht und mir diesen dann entsprechend einfügt. Am besten auch noch so das doppelte direkt gelöscht werden in der neuen Tabelle.
Ich möchte nicht jedes mal den Lieferanten selber suchen müssen… es soll quasi so sein:
Spalte A eintrag „X“ klick auf Button „Tabellenblatt erstellen“ (Den Button hab ich auch schon, ist ja nicht schwer"
Makro führt aus:
- sucht X
- Kopiert Titel, Lieferanten und alle Artikel zum Lieferanten
- Fügt neues Tabellenblatt ein
- Benennt Tabellenblatt um mit Namen vom Lieferanten
- Fügt alles sinnvoll ein
- Löscht Doppelte Artikel
- Geht auf Ausgangstabelle zurück
Ich wollte keine Screens hier einsetzen wegen Datenschutz etc. Sollte das aber nötig sein füge ich sie gerne (entsprechend abgeändert) nach.
Hoffe jemand kann mir helfen,
gruß Nec.
