ich kopiere einen zellbereich von Tabellenblatt1 nach Tabellenblatt2 mit
Private Sub Worksheet_Activate()
Dim m As Integer
For m = 1 To 60
If Cells(13, m) <> "" Then
Cells(12, m - 1) = Worksheets("Tabellenblatt2").Cells(34, m)
End If
Next
End Sub
Wie kann ich das Format aus den zellen des Tabellenblatt2 mitkopieren?? So kriege ich nur die Werte, ich hätte aber auch gerne die formate....