Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit Macro und Pfad

Problem mit Macro und Pfad
28.04.2003 13:38:11
Jörg
Hallo Forum,

ich habe ein Macro geschrieben in dem
ich beim drucken ,Bilder in eine Zelle setze und drucke.
Dies funktioniert ja auch,a ber es tritt machmal auf
das immer die Fehlermeldung , welche ich eingebaut habe,
erscheint ob wohl der Ordner da ist und sich auch im
richtigen Verzeichnis befindet.
Woran kann dies liegen?


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Problem mit Macro und Pfad
28.04.2003 13:43:14
Kl@us-M.

Hallo Jörg,
leider ist soeben die GLASKUGEL zersprungen !
Im Klartext: Ohne dass Du den Code postest, wird Dir so schnell keiner helfen können.
Gruss aus dem Hunsrück
Klaus-Martin

Re: Problem mit Macro und Pfad
28.04.2003 14:30:06
Jörg

Hier nun ein Beispiel:

Public Sub print_ausgabe_vit()
Dim lrow&
Dim Datei As String
Datei = ActiveSheet.name
Application.ScreenUpdating = False
Worksheets("Ausgabe Wartung").Unprotect "werte"
Sheets("Ausgabe Wartung").Select
Range("A1").Select
lrow = Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & lrow
Range("D1").Select
On Error GoTo ErrorHandler
ActiveSheet.Pictures.Insert("c:\eigene dateien\Logos\Vit.jpg").Select
With Selection
.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
.Placement = xlMove
End With
With ActiveSheet.PageSetup
.CenterFooter = "Wartungszertifikat Seite &P von &N " & Sheets("Startseite").Range("D6").Value & " Serien-Nr.: " & Sheets("Startseite").Range("D8").Value
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Pictures.Delete
ActiveSheet.Protect "werte", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(Datei).Select
Application.ScreenUpdating = True
Exit Sub
ErrorHandler: MSGbox ("Es befinden sich keine Logos im Verzeichnis " & vbCrLf & "C:\Eigene Dateien")
End Sub

Gruß Jörg

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige