Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel datei öffnen und drucken

Forumthread: 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.
Anzeige

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
Anzeige
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
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
Anzeige
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
;

Forumthreads zu verwandten Themen

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
pdf aus excel öffnen/drucken?
AndreasB

Guten Tag zusammen!
Ich habe eine Exceldatei mit mehreren Tabellenblättern. Jedes tabellenblatt
ist eine eigenes Kapitel einer statischen Berechnung. Zwischen 2 Kapiteln
müsste ich aber einmal ein pdf drucken.
Meine Frage: Kann ich in Excel irgend einen Verweis einfügen, der mir...
05.07.2009 18:29:11
Thread-ID: 1086483
6 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
Anzeige
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
Anzeige
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
Anzeige
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
Spaten ausb. Drucken und PDF erzeugen
Thomas

Hallo Excelgemeinde,
ich bin schon lange am umschreiben meiner Mappe dran und komme nicht weiter. Mit diesem Code _
habe ich bisher gedruckt und die PDF erzeugt. Private Sub CommandButton5_Click() Dim ArrDruck() As String Dim i As Integer ArrDruck = Split("Abr.", ",") For i = 0 To UBo...
02.11.2010 07:21:28
Thread-ID: 1184771
10 Beiträge
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
Listboxeinträge öffnen und drucken
Volker

Guten Morgen zusammen,
Dank der Hilfestellung hier habe ich jetzt eine Listbox in welcher Arbeitsmappen die sich in in einem Ordner befinden aufgelistet werden.
Ich möchte die Einträge in der UserformListbox (.xls Dateien) nacheinander öffnen, drucken und wieder schließen.
Falls mög...
23.05.2011 10:17:49
Thread-ID: 1215573
4 Beiträge
PDF Dateien öffnen für Excel BS Vista
ropa

Hallo,
wir haben einen Laptop mit dem BS Vista.
Ich muß mit diesem des öfteren aus dem Internet PDF Dateien öffnen um Daten für Excel zu bekommen.
Wenn ich jetzt mit Firefox eine PDF Datei anklicke dann wird diese nicht geöffnet. Das speichern funktioniert jedoch aber das möchte ich...
27.06.2011 11:57:32
Thread-ID: 1219852
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige