Thema Datum  Von Nutzer Rating
Antwort
Rot PasteSpecial
 13.12.2006 10:19:44 Dragan
NotSolved
13.12.2006 12:16:22 Rasta
NotSolved
13.12.2006 13:34:57 dragan
NotSolved

Ansicht des Beitrags:
Von:
Dragan		 Datum:
13.12.2006 10:19:44		 Views:
2532		 Rating:
     
Antwort:
  Ja
Thema:
PasteSpecial
Hallo zusammen,

ich habe folgendes Problem.

Ich erzeuge aus Access heraus eine Exceltabelle mit "DoCmd.OutputTo...."
Nun muss diese Excel-Tabelle in weitere Systeme eingepflegt werden.

Bevor dies geschieht möchte ich alle Zellen der Excel-Tabelle mit 1 multiplizieren.

(Das ist wahrscheinlich keine "gute" Lösung aber:) Ich erzeuge deshalb ein weiteres Sheet in der Tabelle
und füge in die Zelle "A1" den Wert 1 ein und kopiere diesen:

'Sheet hinzufügen mit 1 befüllen und diese Zelle kopieren
xlBook.Worksheets.Add
xlBook.Worksheets("Tabelle1").Select
xlBook.Worksheets("Tabelle1").Range("A1").Select
xlBook.Worksheets("Tabelle1").Range("A1").NumberFormat = 0
xlBook.Worksheets("Tabelle1").Range("A1").Value = 1
xlBook.Worksheets("Tabelle1").Cells(1, 1).Copy

Danach rufe ich das Sheet auf in den ich die Werte kopieren will:

'Sheet mit den Daten auswählen
'befüllte Bereiche markieren (Umweg über rowcount der Ausgabetabelle)

last_cell_y = CurrentDb("Ausgangstabelle").RecordCount + 1

xlSheet.Select
xlSheet.Range("A2:BS" & last_cell_y).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:= _
False, Transpose:=False

Das Problem ist nun, dass wohl das Selection vor .PasteSpecial nicht erkannt wird.
Komisch ist das es beim ersten mal klappt (im Debug-Modus), wenn ich die Anwendung ein zweites mal starte kommt ein Fehler:

Laufzeitfehler '462': Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar.

Was mache ich falsch?

Vielen Dank

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 PasteSpecial
 13.12.2006 10:19:44 Dragan
NotSolved
13.12.2006 12:16:22 Rasta
NotSolved
13.12.2006 13:34:57 dragan
NotSolved