aus diesem Forum wurde mir vor Kurzem nachfolgendes Makro zur Verfügung gestellt.
Ich möchte das Makro gerne dahingehend ändern, dass die jeweiligen Werte unformatiert kopiert werden und somit das Format der Zelle erhalten, in die sie kopiert werden.
Für eure Unterstützung vorab vielen Dank.
Mfg
Fritz
Sub Kopieren()
' kopiert aus dem aktuellen Tabellenblatt den Wert aus Zelle B3 in die Tabelle
' "Gesamtwertung" in die erste freie Zelle der Spalte B.
' Der Wert aus der Zelle C5 der aktuellen Tabelle wird in die gleiche
' Zeile der Tabelle "Gesamtwertung" in die Spalte C kopiert.
Dim WkSh_Z As Worksheet
Dim lZeile_Z As Long
Set WkSh_Z = Worksheets("Gesamtwertung")
lZeile_Z = WkSh_Z.Range("B65536").End(xlUp).Row + 1
With ActiveSheet
Range("B3").Copy Destination:=WkSh_Z.Cells(lZeile_Z, 2)
Range("C5").Copy Destination:=WkSh_Z.Cells(lZeile_Z, 3)
End With
End Sub