könntet ihr mir bitte bei einer Verbindung zweier Makros helfen.
Ich habe eine Bezugstabellen mit einer kompletten Auflistung versch. Teile.
Diese Tab. hat ca 1000 Zeilen und 13 Spalten. Die Tabelle besitzt in jeder
Spalte einen Autofilter, um die Spalte nach den Bedürfnissen. Zu filtern usw.
In einer zweiten Tabelle die ich mal als Zieltabelle definiere, kann ich über eine
Makroanweisung mir Daten aus der Bezugstabelle nach einem best. Kriterium in die
Zieltabelle rüberholen. Funktioniert auch alles, soweit so gut .
Jetzt meine eigentliche Bitte.
Ich möchte zusätzlich noch nach einem Zweiten Kriterium
Daten aus der Bezugstabelle in die Zieltabelle rüber holen, ebenfalls durch eine Makro anweisung, und dabei sollten sich die Daten aus der zweiten Makroanweisung gleich anschließend unter die erste Makroanweisung unten anschließen und somit die erste
Datenübernahme nicht überschreiben.
Das Ergebnis in der Zieltabelle sollte dann eine Auflistung untereinander sein . Zuerst die erste Filterung aus der Bezugstabelle und dann die Zweite.
Ich zeig euch mal hier noch mein VBA Makro das mir die erste Filterung in die Zieltab.
Übernimmt.
Vielleicht weis ja jemand von euch wie man dieses Makro so anweisen kann, oder einen
Fehlenden CODE einfügen, damit es so funktioniert.
Wäre euch sehr sehr dankbar, lieben Gruß udo
Sub Datenübernahme_1()
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Sheets("Bezugstabelle").Select
Selection.AutoFilter Field:=5, Criteria1:=(Cells(1010, 18)) Autofilter der Spalte fünf - Filterbezug ist Zelle R1010
Rows("19:999").Select Zeilen 19 bis 999 kopieren
Selection.Copy
Sheets("Zieltabelle").Select Wechsel zur Zieltabelle
Rows("19:999").Selec t Zeilen 19 bis 999 anwählen und dort einfügen
ActiveSheet.Paste
Sheets("Bezugstabelle").Select Wechsel zur Bezugstabelle
Selection.AutoFilter Field:=5 Autofilter wieder auf Alles einstellen
Application.CutCopyMode = False Kopiermodus anhalten
Sheets("Zieltabelle").Select wieder Wechsel zur Zieltabelle
Range("A19").Select zu Zelle A19 springen
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub
XXXXXXXXXXX Hier fehlt mir die passende Verbindung ? XXXXXXXXXXXXXX
Sub Datenübernahme_2()
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Sheets("Bezugstabelle").Select
Selection.AutoFilter Field:=5, Criteria1:=(Cells(1012, 18)) Autofilter der Spalte fünf - Filterbezug ist Zelle R1012
Rows("19:999").Select Zeilen 19 bis 999 kopieren
Selection.Copy
Sheets("Zieltabelle").Select Wechsel zur Zieltabelle
Rows("19:999").Selec t Zeilen 19 bis 999 anwählen und dort einfügen
ActiveSheet.Paste
Sheets("Bezugstabelle").Select Wechsel zur Bezugstabelle
Selection.AutoFilter Field:=5 Autofilter wieder auf Alles einstellen
Application.CutCopyMode = False Kopiermodus anhalten
Sheets("Zieltabelle").Select wieder Wechsel zur Zieltabelle
Range("A19").Select zu Zelle A19 springen
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub
Vielleicht weis auch jemand wie ich das eine Makro so um stelle das beides hintereinander auf einmal gleich funktioniert
Die Bezugsdaten der beiden Autofilterfunktionen ist einmal Zelle R1010 und R1012 im Bezugstabellenblatt.
Vielen Dank für eure Hilfe im Voraus.