Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit Macro und Pfad

Forumthread: 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?


Anzeige

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)

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