Hallo,
ich habe eine Frage an Euch, es geht um folgenden code, der aus Tabellenblatt 1, bestimmte Zellen per Knopfdruck auf Tabellenblatt 2 kopieren soll. Soweit so gut, nur dass Zelle K43 und K40 im Buchhaltungsformat sind und auch mit dem Zusatz:
PasteSpecial Paste:=xlPasteFormats
Nicht der Betrag (Euro) bzw. das Format mit kopiert wird. Es erscheint dann "Fehler beim Kompilieren, Anweisungsende erwartet"
Kann mir da jemand helfen?
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
Und noch eine Frage: In der Tabelle die somit durch das Makro gefüttert wird, soll man die Spalten jederzeit sortieren können, ohne das sich das Makro daran stört. Funktioniert das mit dieser Vorgehensweise?
Danke & Gruß
|