VBA: Durch Buttonklick Werte von Tabellen kopieren
16.07.2013 19:08:55
Tabellen
meine Datei nähert sich immer mehr dem Ziel, doch nun fehlt mir noch ein finaler Schritt. Nachdem bereits der Zellinhalt aus einer vorhandenen Tabelle problemlos in eine andere kopiert wird (durch Buttonklick), soll nun der Zellinhalt einer weiteren Tabelle kopiert werden. Ich habe mit den vorhandenen Formeln bereits rumprobiert, bin bis jetzt jedoch nicht auf die endgültige Lösung gekommen.
Hier die Datei: https://www.herber.de/bbs/user/86402.xlsm
Genauer gesagt soll der Inhalt dieser beiden Tabellen jeweils kopiert werden
und durch drücken des Buttons in diese Tabelle eingefügt werden
die verwendete Formel für die Tabellenblätter lautet:
Sub A_Selektion()
Dim Wks1 As Worksheet, Wks2 As Worksheet
Dim z As Integer, leer As Integer
Dim lngLetzte As Long
Dim Target1 As Range, Target2 As Range
Set Wks1 = Sheets("A_Selektion")
Set Wks2 = Sheets("Variablen Selektion")
With Wks1
z = 48
Do
If .Cells(z, 2) "" And .Cells(z, 2).Value "" Then
lngLetzte = Wks2.Cells(Wks2.Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Set Target1 = Wks2.Range(Wks2.Cells(lngLetzte, 2), Wks2.Cells(lngLetzte, 11))
Set Target2 = .Range(.Cells(z, 2), .Cells(z, 11))
Target1.Value = Target2.Value
z = z + 1
leer = False
Else
leer = True
End If
Loop Until leer = True
End With
End
Und die Formel des Buttons lautet:
Private Sub CommandButton1_Click()
Range("B12:J60").Select
Selection.ClearContents
Call A_Selektion
Call B_Selektion
End Sub
Ich freue mich, wie immer, über eure schnellen & sehr hilfreichen Antworten.
Beste Grüße,
Tobi
Anzeige