VBA - Buchhaltungsformat mit kopieren
24.09.2014 12:45:31
jones
ich habe eine Frage an Euch, es geht um folgenden code, der aus einem Tabellenblatt bestimmte Zellen per Knopfdruck in das Tabellenblatt "Datenbank" kopieren soll. Soweit so gut, nur dass Zelle K43 und K40 im Buchhaltungsformat sind und der Betrag (Euro) nicht mit kopiert wird. Auch mit dem Zusatz:
PasteSpecial Paste:=xlPasteFormats
funktioniert das nicht. Es erscheint dann "Fehler beim Kompilieren, Anweisungsende erwartet"
Sub kopieren()
Dim wsKopie As Worksheet, iLetzte&
Set wsKopie = Sheets("Datenbank")
With ActiveSheet
iLetzte = wsKopie.Cells(wsKopie.Rows.Count, 1).End(xlUp).Row + 1
.Range("D5").Copy Destination:=Sheets("Datenbank").Range("A" & iLetzte)
.Range("D6").Copy Destination:=Sheets("Datenbank").Range("B" & iLetzte)
.Range("D9").Copy Destination:=Sheets("Datenbank").Range("C" & iLetzte)
.Range("D7").Copy Destination:=Sheets("Datenbank").Range("D" & iLetzte)
.Range("D8").Copy Destination:=Sheets("Datenbank").Range("E" & iLetzte)
.Range("A12").Copy Destination:=Sheets("Datenbank").Range("F" & iLetzte)
.Range("A14").Copy Destination:=Sheets("Datenbank").Range("G" & iLetzte)
.Range("A15").Copy Destination:=Sheets("Datenbank").Range("H" & iLetzte)
.Range("K43").Copy Destination:=Sheets("Datenbank").Range("J" & iLetzte)
.Range("K40").Copy Destination:=Sheets("Datenbank").Range("K" & iLetzte)
End With
End Sub
Danke & Gruß