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 |