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:
1323		 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?
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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