Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel datei öffnen und drucken

Excel datei öffnen und drucken
Finer
Hallo zusammen,
Vorweg ich habe die Suchfunktion genutzt aber leider keine passende Antwort gefunden und antworten die nur zu 90% passen kann ich leider aufgrund fehlender Kenntnisse noch nicht umschreiben :(
Folgende Problemstellung.
Eine Excel Tabelle ist geöffnet. In Zelle z.B. B3 wird ein Wert eingetragen.
Nun benötige ich eine Abfrage die im Hintergrund läuft und bei Eingabe eines bestimmen Wertes (x) eine andere excel Datei ausdruckt, die auf dem lokalen System gespeichert ist.
Mit Word Dateien habe ich das ganze hinbekommen, mit Excel Dateinen beiß ich mir leider seit 3 Std. die Zähne aus.
Vielen Dank schonmal im Vorraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Excel datei öffnen und drucken
09.01.2012 19:00:29
{Boris}
Hi,
ins Klassenmodul der Tabelle, in der Du in B3 ein "x" für den Ausdruck eintragen möchtest:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wkb As Workbook
If Target.Address(0, 0) = "B3" Then
If Target = "x" Then
'Folgenden Pfad durch Deinen ersetzen!
Set Wkb = Workbooks.Open("C:\Users\Boris\Desktop\DieExcelDatei.xlsx")
Wkb.Worksheets("Tabelle1").PrintOut
Wkb.Close False
End If
End If
End Sub

Grüße Boris
AW: Excel datei öffnen und drucken
09.01.2012 19:09:21
Finer
Hey dankeschön,
funktioniert mit Excel 2003 auf die gleiche Weise?
AW: Excel datei öffnen und drucken
09.01.2012 19:11:04
{Boris}
Hi,
der Code ist versionsunabhängig. Open-, PrintOut- und Close-Methode gibt´s schon immer.
Grüße Boris
Anzeige
AW: Excel datei öffnen und drucken
Finer
Hallo, leider klappt es bis jetzt noch nicht wirklich, vll kann ja nochmal jmd drüberschauen und mir sagen was hier falsch ist.
Dim appWord As Object
Dim doc As Object
Dim Wkb As Workbook
ElseIf [F8] = "Zellenwert" Then
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("L:pfad")
doc.PrintOut
doc.Close
appWord.Quit
Set Wkb = Workbooks.Open("pfad")
Wkb.Worksheets("blattname").PrintOut
Wkb.Close False
End If
End Sub
AW: Excel datei öffnen und drucken
10.01.2012 18:39:21
fcs
Hallo Finer,
ich hab dein Makro mal unter Office 2007getestet.
Das Makro funktioniert im Prinzip. Kommt bei dir denn eine Fehlermeldung? Wenn ja, welche und in welcher Zeile des Makros tritt der Fehler auf?
Generell sollte man Dateieien, die per Makro geöffnet und und ohne zu speichern wieder geschlossen werden, schreibgeschützt öffnen.
Der Fehler kann dann bei dir eigentlich nur bei den Namen für die Dateien bzw. das Tabellenblatt liegen.
Damit nichts schief geht sollte bei den Dateinamen der komplette Dateiname inkl. Verzeichnis angegeben werden.
Gruß
Franz
Bei mir funktionierendes Makro mit ein paar Ergänzungen: 
Sub BedingtDrucken()
Dim appWord As Object
Dim doc As Object
Dim Wkb As Workbook
On Error GoTo Fehler
If 1 = 2 Then 'Zeile ergänzt zum Testen
ElseIf [F8] = "Zellenwert" Then
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open(Filename:="C:\Users\Public\Test\TestDoc.docx", _
ReadOnly:=True)
doc.PrintOut
doc.Close 0 '0 = wdDoNotSaveChanges
appWord.Quit
Set Wkb = Workbooks.Open(Filename:="C:\Users\Public\Test\TestMappe.xlsx", _
ReadOnly:=True)
Wkb.Worksheets("blattname").PrintOut
Wkb.Close False
End If
'Fehlerbehandlung
Err.Clear
Fehler:
With Err
Select Case .Number
Case 0 'kein Fehler
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
'Variablen aufräumen
Set doc = Nothing
Set appWord = Nothing
Set Wkb = Nothing 'Objektvariablen zurücksetzen
End Sub

Anzeige

111 Forumthreads zu ähnlichen Themen

PDF Printer via VBA anwählen
Henner

Hi,
ich möchte aus einer UserForm heraus eine Tabelle als PDF 'drucken', habe FreePDF installiert. Dafür habe ich einem Button in der UF das folgende Makro zugewiesen:
Sub print_pdf() Sheets("print").Select Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets...
04.09.2008 14:48:00
Thread-ID: 1007425
2 Beiträge
Anzeige
bestimmte PDF-Seite ausdrucken
sepp

Hallo
habe aus dem Forum ein Programm zum Ausdrucken
von Pdf Dateien:
Public Product
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal...
18.11.2008 20:15:18
Thread-ID: 1025777
3 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Anzeige
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
2
2
5
13
4
3
2
2
8
9
3
3
1
3
2
3
5
3
12
4
1
3
6