Makro zum Kopieren und üerbtragen von Daten in ein zweites Tabellenblatt

[snoopy4000_0]

Ja die Tabellennamen sind anderes...Die Tabellenblätter heissen zum Beispiel Tabelle 1 (Abzug)

[silcono]

Schau mal bitte hier im CODE:

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 Sub

Gruß

[snoopy4000_0]

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.

[snoopy4000_0]

Kann jemand hier weiterhelfen?

Bitte um Hilfe :)

[Elex]

Hi

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 Sub

Gruß Elex

[snoopy4000_0]

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.

[snoopy4000_0]

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

[snoopy4000_0]

Ich würde mich über jeden Tipp freuen. Vielen Dank im Voraus.

[Elex]

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

[snoopy4000_0]

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