Tabellenblatt A nach B einfügen 1:1
30.10.2018 14:41:45
Sebastian
ich habe identische Tabellenblätter:
Tabellenblatt A und B.
Ich möchte, dass per Klick Veränderungen von A nach B eingefügt werden.
Hierzu habe ich bereits diese Formel (Quelle siehe unten) zusammengestellt:
Private Sub ToggleButton2_Click()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 9
Spalten = 9
Bereich = "I9:P500"
Set Quelltab = ActiveWorkbook.Worksheets("A")
Set Zieltab = ActiveWorkbook.Worksheets("B")
For Each Zelle In Quelltab.Range("I9:P500")
Zieltab.Cells(Zaehler, 9) = Zelle
Zaehler = Zaehler + 1
Next Zelle
End Sub
PROBLEM: Bei Klick werden ab Zeile I9 untereinander alles eingefügt...
Ich will aber, dass genau so wie es ist alles auf sein PLatz soll, wie in Tabellenblatt A.
Wie immer vielen Dank für jegliche Hilfe im Voraus
Gruß
Sebastian
Quelle der Grundformel auf die ich aufgebaut habe:
https://www.computerwissen.de/office/excel/artikel/daten-per-makro-aus-einem-excel-tabellenblatt-in-ein-anderes-kopieren.html