mit folgendem Makro kopiere ich Zellinhalte als Datensatz auf ein neues Tabellenblatt. Allerdings werden dadurch in der neuen Tabelle die Formatierungen überschrieben, dass heißt zum Beispiel wird das Euro-Zeichen nicht angezeigt wenn dort ein Wert reinkopiert wird. Klicke ich den Wert doppelt an und drücke dann Enter steht auf einmal das Euro-Zeichen dahinter. Kann sich mal einer mein Makro ansehen, vielleicht muß da ja noch irgendwas definiert werden. Hier also der Code:
Sub Copy_Item_User()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Dim LetzteZeile As Long
Set WS1 = Worksheets("Verkauft")
Set WS2 = Worksheets("Übernahme")
Set WS3 = Workbooks("Kunden.xls").Worksheets("Kunden")
With WS1
LetzteZeile = .[a65536].End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = WS2.[d23]
.Cells(LetzteZeile, 2) = WS2.[e23]
.Cells(LetzteZeile, 3) = WS2.[d20]
.Cells(LetzteZeile, 4) = WS2.[d26]
.Cells(LetzteZeile, 8) = WS2.[d2]
End With
With WS3
LetzteZeile = .[a65536].End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = .[a65536].End(xlUp).Row
.Cells(LetzteZeile, 2) = WS2.[d2]
.Cells(LetzteZeile, 3) = WS2.[d5]
.Cells(LetzteZeile, 4) = WS2.[d8]
.Cells(LetzteZeile, 5) = WS2.[d11]
.Cells(LetzteZeile, 6) = WS2.[d14]
.Cells(LetzteZeile, 7) = WS2.[d17]
End With
End Sub
Viele Grüße und Dank im voraus
Ralf