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
|