25.07.2018, 11:48
25.07.2018, 11:49
Schau mal bitte hier im CODE:
Gruß
Code:
Sub Übertragen_Klicken()
letzteA = Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Abzug").Range("A2:A" & letzteA).Value = Sheets("Tabelle2").Range("B2:B" & letzteA).Value
letzteC = Sheets("Tabelle2").Cells(Rows.Count, "C").End(xlUp).Row
Sheets("Abzug").Range("B2:B" & letzteC).Value = Sheets("Tabelle2").Range("C2:C" & letzteC).Value
letzteH = Sheets("Tabelle2").Cells(Rows.Count, "H").End(xlUp).Row
Sheets("Abzug").Range("C2:C" & letzteH).Value = Sheets("Tabelle2").Range("H2:H" & letzteH).Value
End SubGruß
25.07.2018, 13:54
Hi,
kann man das Ganze noch erweitern, weil ich die Rohdaten in einer Spalte gefiltert habe. Kann man nur das gefilterte aus diesen vorher festgelegten Spalten herausziehen?
Vielen Dank im Voraus.
kann man das Ganze noch erweitern, weil ich die Rohdaten in einer Spalte gefiltert habe. Kann man nur das gefilterte aus diesen vorher festgelegten Spalten herausziehen?
Vielen Dank im Voraus.
26.07.2018, 08:38
Kann jemand hier weiterhelfen?
Bitte um Hilfe :)
Bitte um Hilfe :)
26.07.2018, 09:46
Hi
Versuch es mit dem Code.
Gruß Elex
Versuch es mit dem Code.
Code:
Sub Filt()
Sheets("Abzug").Cells(1).CurrentRegion.Offset(1).Clear
With Sheets("Tabelle2").UsedRange.Offset(1)
.Columns(2).SpecialCells(12).Copy Sheets("Abzug").Cells(2, 1)
.Columns(3).SpecialCells(12).Copy Sheets("Abzug").Cells(2, 2)
.Columns(8).SpecialCells(12).Copy Sheets("Abzug").Cells(2, 3)
End With
End SubGruß Elex
29.07.2018, 20:36
Hi,
danke für die Hilfe. Leider löscht es in den Rohdaten das gefilterte. Er soll das gefilterte aber genau wie im ersten Fall nach drüben in die Tabelle kopieren. Sprich wie vorher das Makro, nur das in den Rohdaten eine Filterung vorgenommen wird und nur diese Daten rübergenommen werden sollen.
danke für die Hilfe. Leider löscht es in den Rohdaten das gefilterte. Er soll das gefilterte aber genau wie im ersten Fall nach drüben in die Tabelle kopieren. Sprich wie vorher das Makro, nur das in den Rohdaten eine Filterung vorgenommen wird und nur diese Daten rübergenommen werden sollen.
29.07.2018, 21:30
Mein neues Makro sieht wie folgt aus nur...
Sub Schaltfläche3_Klicken()
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("A2:A" & letzteA).Value = Sheets("Rohdaten1").Range("B2:B" & letzteA).Value
Sheets("Übersicht").Range("B2:B" & letzteA).Value = Sheets("Rohdaten1").Range("C2:C" & letzteA).Value
Sheets("Übersicht").Range("C2:C" & letzteA).Value = Sheets("Rohdaten1").Range("H2:H" & letzteA).Value
____ das tabellenblatt rohdaten2 unterliegt einigen Filterungen. Deswegen sollen nur die gesamten gefilteren Spalten ab zeile D2 etc. kopiert in die Übersicht werden.
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("D2:D" & letzteA).Value = Sheets("Rodaten2").Range("A2:A" & letzteA).Value
Sheets("Übersicht").Range("E2:E" & letzteA).Value = Sheets("Rohdaten2").Range("F2:F" & letzteA).Value
Sheets("Übersicht").Range("F2:F" & letzteA).Value = Sheets("Rohdaten2").Range("I2:I" & letzteA).Value
Sheets("Übersicht").Range("G2:G" & letzteA).Value = Sheets("Rohdaten2").Range("L2:L" & letzteA).Value
Sheets("Übersicht").Range("H2:H" & letzteA).Value = Sheets("Rohdaten2").Range("M2:M" & letzteA).Value
Sheets("Übersicht").Range("I2:I" & letzteA).Value = Sheets("Rohdaten2").Range("P2:P" & letzteA).Value
End Sub
Sub Schaltfläche3_Klicken()
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("A2:A" & letzteA).Value = Sheets("Rohdaten1").Range("B2:B" & letzteA).Value
Sheets("Übersicht").Range("B2:B" & letzteA).Value = Sheets("Rohdaten1").Range("C2:C" & letzteA).Value
Sheets("Übersicht").Range("C2:C" & letzteA).Value = Sheets("Rohdaten1").Range("H2:H" & letzteA).Value
____ das tabellenblatt rohdaten2 unterliegt einigen Filterungen. Deswegen sollen nur die gesamten gefilteren Spalten ab zeile D2 etc. kopiert in die Übersicht werden.
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("D2:D" & letzteA).Value = Sheets("Rodaten2").Range("A2:A" & letzteA).Value
Sheets("Übersicht").Range("E2:E" & letzteA).Value = Sheets("Rohdaten2").Range("F2:F" & letzteA).Value
Sheets("Übersicht").Range("F2:F" & letzteA).Value = Sheets("Rohdaten2").Range("I2:I" & letzteA).Value
Sheets("Übersicht").Range("G2:G" & letzteA).Value = Sheets("Rohdaten2").Range("L2:L" & letzteA).Value
Sheets("Übersicht").Range("H2:H" & letzteA).Value = Sheets("Rohdaten2").Range("M2:M" & letzteA).Value
Sheets("Übersicht").Range("I2:I" & letzteA).Value = Sheets("Rohdaten2").Range("P2:P" & letzteA).Value
End Sub
29.07.2018, 22:05
Ich würde mich über jeden Tipp freuen. Vielen Dank im Voraus.
29.07.2018, 23:01
Hi @snoopy
ich glaub so wird das nichts.
Du hast eine Bsp. Datei in #6 bereitgestellt. Die Codes in #12 und #15 kopieren die gleichen 3 Spalten (B,C,H) von Blatt2 in die gleichen Spalten (A,B,C) von Blatt1. Einziger Unterschied ist der Code aus #12 den gesamten Inhalt und der aus #15 nur das Filterergebnis wie in #13 gewünscht. Kannst du an deiner Bsp. Datei testen.
In #16 schreibst du das etwas nicht deinen Vorstellungen entspricht und in #17 folgt ein Code in dem auf einmal Spalten (F, I, L, M und P) auftauchen. In #18 möchtest du dann einen Tipp.
Tipp:
Versuche noch mal zu beschreiben was du möchtest.
Wenn du Codes momentan noch nicht selbst an deine originale Datei anpassen kannst, dann stelle bitte eine Bsp.Datei zur Verfügung in der Blattnamen und Zellbereiche der originalen Datei entsprechen.
Wird schon werden, wirst sehen.
Gruß Elex
ich glaub so wird das nichts.
Du hast eine Bsp. Datei in #6 bereitgestellt. Die Codes in #12 und #15 kopieren die gleichen 3 Spalten (B,C,H) von Blatt2 in die gleichen Spalten (A,B,C) von Blatt1. Einziger Unterschied ist der Code aus #12 den gesamten Inhalt und der aus #15 nur das Filterergebnis wie in #13 gewünscht. Kannst du an deiner Bsp. Datei testen.
In #16 schreibst du das etwas nicht deinen Vorstellungen entspricht und in #17 folgt ein Code in dem auf einmal Spalten (F, I, L, M und P) auftauchen. In #18 möchtest du dann einen Tipp.
Tipp:
Versuche noch mal zu beschreiben was du möchtest.
Wenn du Codes momentan noch nicht selbst an deine originale Datei anpassen kannst, dann stelle bitte eine Bsp.Datei zur Verfügung in der Blattnamen und Zellbereiche der originalen Datei entsprechen.
Wird schon werden, wirst sehen.
Gruß Elex
30.07.2018, 07:12
Guten morgen eine Testdatei wurde beigefügt:
Also alles auf neu...
Folgendes soll realisiert werden:
Wir haben eine Exceldatei mit drei Tabellenblättern > Übersicht, Rohdaten 1 und Rohdaten 2
Das Tabellenblatt Rohdaten 1 > Spalten B, C und H sollen in das Tabellenblatt Übersicht in die Spalten A,B,C kopiert werden, hierbei muss der komplette Inhalt aus den Rohdaten B,C und H kopiert werden. Die Überschriften sollen nicht kopiert werden.
Das Tabellenblatt Rohdaten 2> Spalten F, I, L, M, P in die Übersicht in die Spalten D, E, F, G, H. Hier ist der Unterschied, dass die Rohdaten 2 einer Filterung unterliegen. An dieser Stelle soll nur der gefilterte Inhalt aus den Spalten F, I, L, M, P in die Übersicht D, E, F, G, H kopiert werden.
Ich hoffe es ist nun leichter verständlich.
anbei die testdatei.
Liebe grüße und vielen Dank
Also alles auf neu...
Folgendes soll realisiert werden:
Wir haben eine Exceldatei mit drei Tabellenblättern > Übersicht, Rohdaten 1 und Rohdaten 2
Das Tabellenblatt Rohdaten 1 > Spalten B, C und H sollen in das Tabellenblatt Übersicht in die Spalten A,B,C kopiert werden, hierbei muss der komplette Inhalt aus den Rohdaten B,C und H kopiert werden. Die Überschriften sollen nicht kopiert werden.
Das Tabellenblatt Rohdaten 2> Spalten F, I, L, M, P in die Übersicht in die Spalten D, E, F, G, H. Hier ist der Unterschied, dass die Rohdaten 2 einer Filterung unterliegen. An dieser Stelle soll nur der gefilterte Inhalt aus den Spalten F, I, L, M, P in die Übersicht D, E, F, G, H kopiert werden.
Ich hoffe es ist nun leichter verständlich.
anbei die testdatei.
Liebe grüße und vielen Dank