Einen Schönen Guten Abend an das Forum,

ich habe ein für mich Rissiges Problem, da ich noch in den Kinderschuhen stecke jedenfalls was Excel VBA angeht.

Ich Arbeite mit Excel 2013

Mein Problem:

Ich habe in einer Arbeitsmappe zwei Tabellenblätter,

in der Tabelle 1 befindet sich eine auch als Tabelle Formatierter Bereich die Spaltenanzahl von 42 Spalten bleibt immer gleich die Zeilenanzahl Variiert.

In der Tabelle2 habe ich ebenfalls einen Bereich der als Tabelle Formatiert ist, dort sind es 28 Spalten die Anzahl bleibt auch immer gleich, die Zeilenanzahl variiert.

Mein Ziel ist es nun aus der Tabelle1 die Daten aus Bestimmten Spalten (z.B. A=A  C=D  J=E und so weiter) in die Tabelle2 zu schreiben, die Daten sollen in der gleichen Zeile aber in einer anderen Spalte stehen.

Also Tabelle2 soll mit der Tabelle1 mitwachsen!

Mein erster Versuch war Über Formeln= Sverweis, dadurch habe ich aber den Nachteil das die Werte in Spalte A erstmal in die Tabelle Kopiert werden müssen damit ich überhaupt etwas zum Verweisen habe, und in den andern Spalten kann ich dann die nummern nicht finden weil dort eine Formel steht.

Der Zweite Versuch über VBA

Ich habe also einen Butten Click Programmiert funktioniert aber das untenstehende muss ich für jede Spalte neu eingeben, aber der Größte Nachteil ist das der User halt jedes Mal den Butten Klicken muss.

Sub Übergabe_Kalku()

Application.ScreenUpdating = False   'Schaltet den Bildschirm an

Range("Ausarbeitung[Pos.]").Copy

    Range("Kalkulation[Pos.]").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

Application.ScreenUpdating = True   'Schaltet den Bildschirm wieder aus

End Sub

Im Versuch 3

Da Verzweifle ich grade, meine Idee über Sub Worksheet_Change(ByVal Target As Range)

Das Ganze zu machen.

Hiermit :

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Tabelle2").Range(Target.Address).Value = Target.Value

End Sub

Wird jede Änderung vom Tabellenblatt 1 in Tabellenblatt2 geschrieben. Super

Aber was muss ich tun damit ich die Daten von Tabelle1 Spalte C in Tabelle2 Spalte D bekomme und zwar in die gleiche Zeile?

Oder ist das gar nicht möglich?

Ich habe es mit

if Range.Column =3 Then Sheets(Tabell2)Column=4

Auch mit Opjekt und Spaltenüberschriften

ICH WÄRE WIRKLICH DANKBAR WENN MIR HIER JEMAD HELFEN KÖNNTE.

Vielen Dank das Ihr bis Hier her gelesen habt.

Mit Grüßen Björn