|
Hallo Leute, ich bin grade dabei ein Paar Grundlagen von VBA zu sammeln.
Da ich keine Literatur zur Verfügung habe behelf ich mir über den Makrorecorder und schaue mir die
generierten Cod´s an.
Grade versuch ich Daten aus Tabellenblatt 1 in Tabellenblatt 2 zu übernhemen, die Aktion
soll ausgelöst werden wenn Tabelle 2 geöffnet wird. Wichtig ist auch das die kompletten Spalten A B C kopiert werden, auch eventuelle Leerzeilen oder
ähnliches. Auf dem neuen Blatt sollen diese sich dann auch an der gleichen stelle befinden.
Das Makro sieht im Moment wie folgt aus:
Private Sub Worksheet_Activate()
Sheets("Tabelle1").Select
Columns("A:C").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Leider kommt dabei immer der Fehler: Laufzeitfehler 1004
habe schon mehreres versucht mit Sheet deaktivieren oder ähnliches.
Ein weiteres Problem. Vorhin bei einer anderen Variante:
Sub Makro1()
Sheets("Tabelle1").Select
Columns("A:C").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
und:
Private Sub Worksheet_Activate()
Call Makro1
End Sub
Endet es entweder in einer Endlosschleife oder wird nicht ausgeführt.
Würde mich riesig freuen wenn mir jemand weiterhelfen könnte!
Danke für eure Mühe!
|