Spalten Tabelle2 in Tabelle1, Zeilen einfügen

Question

Hallo Excel-Fans,

ich habe folgendes Problem:

- In Tabelle 2 habe ich meine Kalkulation von Spalte A bis Spalte J.
- in Tabelle 1 möchte ich mir davon nur Spalte A bis C und Spalte J als Wert bzw. Text lassen, (ohne Spalten auszublenden).

Ich habe es bisher mit einer Formel in jeder Zelle gelöst (a1 aus Tabelle 1=A1 aus Tabelle 2). Ein Problem habe ich, wenn ich in Tabelle 2 eine neue Zeile dazwischen einfügen muss, die erscheint ja dann nicht in Tabelle 1.

Was kann ich tun?

MfG Eula

Answer 1

hi Eula ^^

da das selections Ereignis zu rechenintensiv ist
wuerde ich ein weiteres contexmenue nutzen

gruss nighty

einzufuegen alt+f11/projektexplorer/DeineArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("cell").Reset
End Sub

Private Sub Workbook_Open()
Call MeineMenues
End Sub

einzufuegen alt+f11/AllgemeinesModul

Sub MeineMenues()
Application.CommandBars("cell").Reset
Set cBar = Application.CommandBars("cell")
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Zeile einfügen Tabelle1 + Tabelle2"
.FaceId = 52
.BeginGroup = True
.OnAction = "Einfügen"
End With
End Sub

Sub Einfügen()
Worksheets(1).Rows(ActiveCell.Row).Insert Shift:=xlDown
Worksheets(2).Rows(ActiveCell.Row).Insert Shift:=xlDown
End Sub

nach dem einfuegen speichern und neu laden
selection einer beliebigen zelle/rechtsclick/Zeile einfügen Tabelle1 + Tabelle2

Answer 2

Guten Morgen Nighty,

vielen Dank für die Antwort, leider habe ich seit ewigen Zeiten nichts mehr mit VBA gemacht und verstehe daher nicht, was da steht.

Ich habe mich aber parallel mal im Internet umgeschaut und folgende Formel gefunden
=INDEX(Tabelle2!$1:$65536;ZEILE();SPALTE())

Wenn ich mir damit in Tabelle 1 nun die Spalten ausblende, die ich nicht brauche (mach ich ja nur einmal), habe ich das erreicht, was ich wollte.

Vielen Dank trotzdem. In einer ruhigen Minute werde ich das mit dem VBA mal probieren.

Bis bald.