Hallo Ihr Lieben!
Ich bräuchte etwas Hilfe. Da ich mich in VBA noch nicht so gut auskenne würde ich mich über eure Hilfe freuen. Falls ich hier fehl am Platz sein sollte, entschuldigt mich bitte, dann werde ich diesen Post selbstverständlich schleunigst wieder aus dem Forum löschen.
Kommen wir also zu meinem Problem.
Man stelle sich eine Exceldatei mit 2 Blättern vor. Auf Blatt 1 befindet sich eine Tabelle mit 2 Spalten und ca. 30 Zeilen. In Spalte 1 steht ein Name, Spalte 2 beinhaltet eine dazu eindeutig zugeordnete 3 stellige Nummer. Tabellenblatt 2 hingegen besitzt eine relativ große Tabelle mit 17 Spalten und ca. 4000 zeilen, jede Spalte enthält einen Filter. Interessant ist Spalte nr 2, die die eindeutigen Zahlenwerte von zuvor enthält. Die Idee nun ist, aus Tabellenblatt 1 neben einer Zahl eine Schaltfläche zu bauen, die auf Knopfdruck folgendes umsetzt:
1. kopiere die Nummer die neben der Schaltfläche ist
2. gehe mit dieser Nummer auf das Tabellenblatt 2 und filtere Spalte 2 nach der zuvor kopierten Nummer
3. kopiere das gesamte gefilterte Tabellenblatt (bis zur letzten beschriebenen Zeile und Spalte)
4. erstelle ein neues Tabellenblatt 3 in dem das kopierte gefilterte Tabellenblatt von eben gerade eingefügt wird
(bis hier habe ich es auf eine ziemlich unschöne Art und Weise bereits geschafft, wäre aber trotzdem an Alternativen interessiert)
5. ab Zeile 4 sollen unter jeder Zeile 2 neue leere Zeilen eingefügt werden
6. Erstelle in diesem Tabellenblatt 3 einen Schreibschutz für die Spalten 1 bis 6
Das war soweit alles. Ich hoffe ihr könnt damit etwas anfangen. Entschuldigt bitte auch, das ich keine Beispielbilder liefern kann.
Vielleicht gibt es ja einen VBAcode der diese 6 Schritte umsetzt.
LG
Nemo
|