Office: Spalten automatisch kopieren und einfügen

Hi zusammen,

ich habe ein kleines Anliegen:

Ich habe eine Arbeitsmappe in welche in Tabellenblatt 1 ein "Report" eingefügt/kopiert wird. Aus diesem report sollen nur ganz spezielle Spalten bzw. ab Zeile 5 deren Inhalte (siehe Beispielmappe und gelbe markierung der Spalten) in das zweite Tabellenblatt, an die entsprechende Stelle in der Tabelle kopiert werden (Spaltennamen in Tabellenblatt 1 sind analog zu den Spalten der Tabelle in Tabellenblatt 2). Basierend hierauf werden dann Diagramme erstellt - brauche jedoch lediglich hilfe bei dem kopieren der Spalten/Inhalte in Tabellenblatt 2.

Mein Problem ist, dass der Report in Tabelle 1 immer unterschiedlich lange Zeileneinträge hat (mal sind es 190, mal 230, mal 80) und die letzte Zeile auch eine verbundene Zelle ist.

Kann mir hierfür jemand mit einem entsprechenden Code weiterhelfen? (Siehe Beispielmappe)

Ich habe bereits versucht mit etwas wie Code:

in die letzte Zeile zu springen, diese dann zu löschen und einfach alles bis Zeile "999" zu kopieren. Das klappt jedoch nicht und ist auch nicht optimal. Habe den Code online gefunden...


Wäre super, wenn hier einer eine Idee hat.

Danke und Grüße
VBAtyp

:)

 

Hi,

die letzte belegte Zeile im Tabellenblatt findest du z.B. auf diesem Weg:

Code:

 

Hallo,
so könnte dann eine Komplettlösung aussehen. Schau mal ob Sie das macht was Du willst. Den Code in ein Modul kopieren.
Bitte darauf achten das die beiden Tabellen den Objektnamen "Tabelle1" + "Tabelle2" haben. Kannst Du im Codeditor ändern. Ich meine nicht den Namen den Du normal siehst.

Code:

 

Hi zusammen,


@Beverly:

danke für den Code - mir zeigt es bei:

Code:

ActiveWindow.ScrollRow = Range("A65535").End(xlUp)[COLOR=Red].Row[[/COLOR]/CODE] -> Row einen Fehler an

Im Anschluss daran, würde ich dann folgendes schreiben:
Code:
[quote]EntireRow.activate
EntireRow.delete[/quote]   -> das müsste doch dann gehen, oder?

@ASE:

Cool, vielen lieben Dank - habe es eben mal ausprobiert, zuvor habe ich die NAmen der Tabelle 1 und 2 abgeändert, passend zur meiner Arbeitsmappe...passt das? Mir zeigt es nun in der letzten Zeile (s.markierung) einen Debugger ("424"):

Code:
[quote]Sub Spalten_Kopieren()
Dim K As Long
Dim rowMax As Long
Dim Rx As Range
Dim Spalten As Variant
Spalten = Array(3, 5, 6, 10, 11, 14, 15, 16)

With Datentabelle
For K = 0 To UBound(Spalten)
rowMax = general_report.Cells(Rows.Count, Spalten(K)).End(xlUp).Row
Set Rx = general_report.Cells(5, Spalten(K)).Resize(rowMax, 1)
[COLOR=Red]    Rx.Copy Destination:=.Cells(7, K + 2)[/COLOR]
Next
End With

End Sub[/quote]   Habe ich den Code falsch abgeändert?

Danke für Eure Hilfe!

VG

 

Hi,

nix mit Code:

Mit meinem Code wird die letzte belegte Zeile ermittelt - du musst das also anpassen um deine Zellen zu löschen, also

Code:

 

Hi Beverly,

vielen Dank, so funktioniert es aufjedenfall!

Ich probiere mal noch ein wenig rum, um idealerweise nicht alle "999" Zeilen je Spalte kopieren zu müssen, sondern lediglich die relevanten - ggfs. melde ich mich nochmal ;-)

Danke!

 

Hallo,
ja das ist Falsch!!!!

mit F11 in die Codeseite gehen und falls der Pojektexplorer + Eigenschaftsfenster auf der linken Seite nicht zu sehen ist dann HelpPuE anschauen.
Dann den Rest nach Bild Help ausführen.

 

VIELEN DANK!

Funktioniert super!

Beste Grüße