Hi,

da müsste mit der Methode PrintOut funktionieren.

Bsp.:

ActiveWorkbook.PrintOut oder ActiveSheet.PrintOut

Angaben zu den Parametern findest du in der VBA-Hilfe.


Axel

Aber das ist wieder abhängig von den Vorlieben des Programmierers.

Ja, wenn es man so wäre!
Ich würde es aus den von dir genannten Gründen auch so machen, aber: Der auftraggebende Chef ist der Meinung, dass dies für die Vorzimmer-Damen des GANZ GROSSEN CHEFS zu kompliziert ist. Er möchte gern eine Lösung, wo man bloß einen Knopf drückt und dann kommt die Liste aus dem Drucker.
Danke trotzdem. Printout funzt.
(Mit der VBA-Hilfe bin ich noch nicht so richtig warm geworden, aber das ist wohl Übungssache... Ich habe mit ActiveSheet.Print oder ActiveWorkbook.Print probiert, aber immer Essig! Mal sehen, ob ich den Befehl finde, mit dem ich im Background das per LotusScript erzeugte Excel.Object wieder zu zerstöre, das ich nach dem Druck nicht mehr braucher??)

OK, ich habs so gelöst:
objExcel.Saved = True  'Warnmeldungen abschalten
Call objExcel.Quit  'Excel beenden
Aber die Sache hat einen Haken: Ich habe das Ganze in einem Aktions-Buhtong. Alles Quit und auch "Set objExel = Nothing" (oder auch beides zusammen) nützt nichts. Im Taskmanager bleibt immer noch eine Excel-Instanz zu sehen. Diese verschwindet erst, wenn man die Ansicht schließt/wechselt.
Fragen Sie Bill Gates!

So, nun habe ich auch noch etwas "Zündstoff"

Also mein Export und das Formatieren haben wunderbar geklappt. Ist zwar sicherlich nicht so elegant wie es hätte sein können aber das Resultat stimmt mich zufrieden. Nur zwei Sachen habe ich noch auf dem Herzen.

1.) Ich würde ganz gerne noch "automatisch" Summen bilden lassen
Also es werden x Dokumente exporiert und ich möchte in der Zelle x+1 gerne eine Spaltensumme er x exportierten Doks haben. Wie bekomme ich das hin ? Habe das Makro mir mal angesehen aber das möchte er so leider nicht übernehmen  

2.) Ich würde gerne noch die Zahlen an sich formatieren, also einheitlich 2 Nachkommastellen und wenn möglich negative Zahlen rot darstellen. Nur leider bin ich auch hier nicht weitergekommen

Wäre super wenn mir das noch einer "nahebringen" könnte dann kann ich das Thema hier auch guten Gewissens schliessen

mfg

Sebastian !

mmh, wenn ich das so machen bekomme ich in Notes folgende Fehlermeldung: MS Excel: Die NumberFormat-Eigenschaft des Range-Objektes kann nicht festgelegt werden. Was hat das zubedeuten.

zu 1.) Ich würde das gerne so machen wie er mir das im Makro vorgibt aber leider geht es nicht

Das Makro sah wie folgt aus:

Range("F21").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"

ok das scheint zu klappen mit den Summen aber kann ich das auch flexibelmachen ? also weil die Zeilenzahl ja unterschiedlich ist ?

Muss ich das mit dem Z1S1-Bezug noch im Script einstellen wenn das Problem auf anderen Rechner auch auftritt ?

Ist das auch der Grund für den Fehler bei dem Zahlenformat ?

Es gibt eine Eigenschaft, die Dir die letzte benutzte Zeile zurückgibt.

Hier ist ein Beispiel dazu:


<sup>Dim xlApp As Variant
Dim xlSheet As Variant


Function OpenExcel() As String
   
   'Errorroutine
   On Error Goto Errorhandler
   
   'Excel Applikation öffnen
   Set xlApp = CreateObject("Excel.application")
   'neues Arbeitsblatt
   xlApp.Workbooks.Add
   Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
   
   OpenExcel = "OK"
   Exit Function
   
Errorhandler:
   OpenExcel = "ERROR"
   
End Function


Sub Click(Source As Button)
   
   'Excel öffnen und Rückgabe überprüfen
   Rückgabe = OpenExcel()
   If Rückgabe <> "OK" Then
      'abbrechen
      Exit Sub
   End If
   
   'Werte schreiben
   'Cells benötigt Zahlen, Range benötigt z.B. "A5"
   For i = 1 To 50
      xlSheet.Cells(i,1).Value = "TEST"
   Next i
   
   'letzte Zeile finden und ausgeben (4 entspricht xlUp)
   Msgbox xlApp.Columns("1,1").End(4).Row
   
   'Excel sichtbar machen
   xlApp.Visible = True
   
   'Variablen freigeben
   Set xlSheet = Nothing
   Set xlApp = Nothing
   
End Sub</sup>


Packs in einen Button und probiers mal aus.

Markus

Also nochmal besten Dank für die Infos & Hilfen.
Ich denke hier gibt es nun nichts mehr zu klären !