ich habe eine Datei erstellt, in der sich der Zellinhalt einer Tabelle beim Klicken auf einen Button automatisch in eine andere Tabelle kopiert. Das Problem ist nur, dass nicht der Zellinhalt kopiert wird, sondern die gesamte Formatierung der Zellen. Ist die ursprüngliche Zelle also verformelt, wird leider nur die Formel kopiert.
Hier die verwendete Programmierung (Die Datei habe ich auch hochgeladen)
https://www.herber.de/bbs/user/86377.xlsm
Besten Dank für eure Hilfe.
Tobi
Sub A_Selektion()
With Sheets("A_Selektion")
Dim z As Integer
Dim leer As Integer
Dim Target1 As Range
Dim Target2 As Range
z = 42
Do
If .Cells(z, 2) "" Then
leer = False
Else
leer = True
End If
If .Cells(z, 2).Value "" Then
.Range(.Cells(z, 2), .Cells(z, 11)).Copy
Set Target1 = Sheets("Variablen Selektion").Range("b65536").End(xlUp).Offset(1, 0)
Sheets("A_Selektion").Range(.Cells(z, 2), .Cells(z, 11)).Copy Destination:=Target1
End If
z = z + 1
Loop Until leer = True
End With
End Sub