Office: Makro funktioniert nur einmal

Hallo zusammen,

ich habe ein kleines Problem mit 2 Makros in Excel (2003)

Und zwar habe ich in ein Formular einen Butten eingebunden, der mir 2 "Druck" Makros steuert.

Habe hinter den Button ein Makro gelegt, welches 2 Makros via call Befehl aufruft.

Um kurz zu sagen was ich eigentlich mit dem Makro bezwecken will:

Ich habe 2 Tabellenblätter.
Das 2. wird ausgefüllt und dabei wird das erste mit den dort eingegeben Daten gefüttert.

Der Button soll folgendes steuern:

Tabellenblatt1 Ausdruck in Papierform
Tabellenblatt2 als PDF Datei ausgeben.

Ich habe es nun auch soweit hin bekommen, dass das ganze nach dem öffnen der Datei funktioniert.

Nur jetzt kommt der Hacken. Es funktioniert nur einmal.
Wenn ich nach dem Ausdruck die Daten ändere und erneut auf meinen Button drücke, werden mir 2 PDF erstellt... *frown.gif*

Ich muss die Datei wieder schließen und erneut öffnen, dass ich wieder meine gewünschte funktionsweise habe...

Wie kann ich dies lösen?

Vielen Dank für eure Hilfe..

Und schonmal im Vorraus schöne Weihnachten

:)

 

Hallo Kirk,

vllt. kannst du den Code einfach mal posten, dann schau ich mal drüber woran es liegen könnte.

adhoc habe ich jetzt keinen Code parat.

Grüße

 

Hallo,

hätt ich ja eigentlich gleich mal machen können *wink.gif*

Code 1 (der hinter dem Button):

Sub Test2()

Call Test4
Call Test3


End Sub

Test4:

Sheets(Array("Tabelle1")).PrintOut copies:=1, Collate:=True


Test3:

If ActiveSheet.Name = "Tabelle2" Then
On Error GoTo Ende
Application.ActivePrinter = "Adobe PDF auf Ne04:"
Application.EnableEvents = False
cancel = True
With ActiveSheet
Range("E24", "F24").NumberFormat = ";;;"
.PrintOut
Range("E24", "F24").NumberFormat = "General"
End With
End If
Ende:
Application.EnableEvents = True

End Sub


Gruß

 

Hallo Kirk,

ändere Test3 so:

Code:

 

Danke Uwe,

funktioniert einwandfrei...

 

Hallo zusammen,

jetzt hätt ich da mal noch eine Frage.

Wie kann ich die erzeugte Datei direkt an Outlook übergeben???
Hier hört mein VBA Latein jetzt total auf... *frown.gif*

Würde mich über eine Antwort sehr freuen.

Danke

gruß

Kirk