Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Hyperlinks aus Tabelle Drucken über Schaltfläche

Frage Microsoft Microsoft Office

Mitglied: Nichita

Nichita (Level 1) - Jetzt verbinden

14.08.2014 um 14:02 Uhr, 984 Aufrufe, 8 Kommentare

Hallo!

Ich arbeite derzeit an einer Excelmappe (Win 7, Excel 2010, VB 6) mit mehreren Tabellen. Darin befinden sich sogenannte Checklisten. Dort sollen drei Schaltflächen zur Auswahl stehen und zwar "Auswahl drucken", "Alles Drucken" und "Checkliste drucken". Den VB-Code für die Checkliste habe ich auch so weit hinbekommen. Leider scheitere ich an den anderen zwei. In den Checklisten befinden sich Hyperlinks wo jeweils eine PDF hinterlegt ist. Anhand von Checkboxen soll der User auswählen können, welche PDF´s er ausgedruckt haben will. In dem Falle "Alles Drucken" sollen einfach alle Hyperlinks gedruckt werden die auf dem aktiven Tabellenblatt stehen. Zwischen den Hyperlinks befinden sich jedoch Zellen in denen sich nur Text befindet und kein Hyperlink. Leider sind meine VB-Kenntnisse sehr beschränkt und ich habe anhand des Internets folgendes erreichen können im Falle "Auswahl drucken":

01.
Private Sub CommandButton1_Click() 
02.
   Dim sh As Shape, obj As Object 
03.
    
04.
   For Each sh In ActiveSheet.Shapes 
05.
      Set obj = sh.OLEFormat.Object 
06.
      If TypeOf obj Is OLEObject Then 
07.
         If TypeOf obj.Object Is Msforms.CheckBox Then 
08.
            If obj.Object.Value = True Then 
09.
                MsgBox "ich bin eine Checkbox: " & obj.Object.Caption 
10.
               ' for each row in activesheet.spaltec 
11.
                    'If Row.inhalt = obj.Object.Caption Then 
12.
                    'prcPrint_PDF "c:\temp\excel\", "beschreibung.pdf"  
13.
                   ' End If 
14.
               'next 
15.
            End If 
16.
         End If 
17.
      End If 
18.
   Next 
19.
End Sub

Den Mittelteil bekomm ich einfach nicht gebacken. Ich habe auch sonst nichts der gleichen im Internet finden können.
Kann mir jmd hierbei bitte helfen?

Liebe Grüße
Alisa
Mitglied: colinardo
LÖSUNG 14.08.2014, aktualisiert 21.08.2014
Hallo Alisa, Willkommen auf Administrator.de!
Hier ein Demo-Sheet dazu.

Grüße Uwe
Bitte warten ..
Mitglied: Nichita
18.08.2014 um 07:46 Uhr
Hallo Uwe!

Danke für Antwort. Ich habe es heute ausprobiert bekomme bei dem Auswahlbutton leider einen Laufzeitfehler ´1004´ Fehler, Anwendungs- oder objektdefinierter Fehler. Wenn ich Teile davon in meinen Code einfüge und dass dann so aussieht

01.
Private Sub CommandButton1_Click() 
02.
   Dim sh As Shape, obj As Object 
03.
    
04.
   For Each sh In ActiveSheet.Shapes 
05.
      Set obj = sh.OLEFormat.Object 
06.
      If TypeOf obj Is OLEObject Then 
07.
         If TypeOf obj.Object Is Msforms.CheckBox Then 
08.
            If obj.Object.Value = True Then 
09.
               ' extrahiere den PDF-Link aus der Zelle neben der Checkbox 
10.
                strHyperlink = shp.TopLeftCell.Offset(0, 1).Hyperlinks(1).Address 
11.
                'Drucke das PDF 
12.
                Shell ("""" & strPathAcrobat & """ /h /p /t """ & strHyperlink & """") 
13.
            End If 
14.
         End If 
15.
      End If 
16.
   Next 
17.
End Sub

Dann bekomme ich den Laufzeitfehler ´424´Objekt erfolgreich.

Weißt du vll was ich falsch mache?
Pfad zum Adobe Acrobat habe ich angepasst
Bitte warten ..
Mitglied: colinardo
LÖSUNG 18.08.2014, aktualisiert 21.08.2014
Copy n' Paste bringt's eben nicht !

Augen auf in Zeile 10:
Ein Objekt namens shp existiert bei dir nicht, dies heißt bei dir sh
01.
strHyperlink = sh.TopLeftCell.Offset(0, 1).Hyperlinks(1).Address 
und in meinem Fall stand der Hyperlink direkt in der Zelle neben der Checkbox, was du an dem Offset sehen kannst, das musst du eventuell bei die anpassen.
Bitte warten ..
Mitglied: Nichita
18.08.2014 um 08:46 Uhr
Okay danke!
Meine Hyperlinks sitzen auch direkt daneben aber auf der anderen Seite, wie passe ich das an?
Bitte warten ..
Mitglied: colinardo
LÖSUNG 18.08.2014, aktualisiert 21.08.2014
wenn sie direkt links in der Zelle neben der Checkbox stehen so
strHyperlink = sh.TopLeftCell.Offset(0,-1).Hyperlinks(1).Address
Bitte warten ..
Mitglied: Nichita
18.08.2014 um 09:25 Uhr
Danke und tut mir Leid aber nun kommt Laufzeitfehler ´5´ Ungültiger Prodzeduraufruf oder ungültiges Argument. Liegt das an meinen Hyperlinks?
Bitte warten ..
Mitglied: colinardo
LÖSUNG 18.08.2014, aktualisiert 21.08.2014
ohne dein Sheet zu kennen, Raten mit der Glaskugel ....schau mal in deine persönlichen Nachrichten.
Bitte warten ..
Mitglied: Nichita
21.08.2014 um 09:26 Uhr
Hat alles super funktionier! Vielen lieben Dank!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Tabelle umbenannt, Schaltfläche funktioniert nicht mehr
Frage von NeokadeshMicrosoft Office1 Kommentar

Hallo zusammen, ich möchte eine Tabelle umbenennen und eine zuvor erstellte Schaltfläche anpassen, so dass sie auf die entsprechende ...

Microsoft Office
Hyperlink zu einer bestimmten Registerkarte in einer Excel-Tabelle
gelöst Frage von immobrauchMicrosoft Office2 Kommentare

Hallo zusammen, irgendwann hab ich das schon mal gewusst Hyperlink zu ///Verzeichnis1/Verzeichnis2/Name.xlsx öffnet die Datei. Das ist klar. Jetzt ...

Microsoft Office
Excel 2010, PDF-Hyperlinks drucken
gelöst Frage von NichitaMicrosoft Office4 Kommentare

Hallo! Ich habe eine Exceldatei (MS 2010, Win 7 32-Bit, VB 6) in der verschiedene Hyperlinks, die auf PDF´s ...

Microsoft Office
Excel Tabelle drucken
gelöst Frage von DrPsychMicrosoft Office5 Kommentare

Hallo meine Lieben, ich hab folgendes Problem schon seit einer weile Problem: einige meiner Kollegen haben das Problem das ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner14 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...