Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Buchhaltungsformat mit kopieren
 23.09.2014 17:53:47 jones
NotSolved

Ansicht des Beitrags:
Von:
jones		 Datum:
23.09.2014 17:53:47		 Views:
1146		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Buchhaltungsformat mit kopieren

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ß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Buchhaltungsformat mit kopieren
 23.09.2014 17:53:47 jones
NotSolved