Was meinst Du mit WIE?
Was da steht kann ich Dir sagen:
Vista:
Benutzername: schultz
Profil: C:\Users\schultz
XP:
Benutzername: schultz
Profil: C:\Dokumente und Einstellungen\schultz
Seven:
Benutzername: schultz
Profil: C:\Users\schultz
Lieben Gruß
Sandra
Hier mal der alte Text zu dem Thema:
Hallo Rainer,
ich habe es jetzt ausprobiert und bekomme die Fehlermeldung noch immer. Ich werde die Datei jetzt mal auf einem anderen Vista-Rechner öffnen und ausprobieren, ob es eventuell an Vista liegt. Ich gebe dann gleich noch einmal Rückmeldung.
Noch eine kurze Frage zu einem anderen Thema. Ich kann doch eine Excel-Tabelle in ein Word-Dokument einfügen und diese Tabelle dann immer aktualisieren. So dass ich nur die Excel-Tabelle pflegen muss. Ich habe das auch schon einmal gemacht, weiß aber nicht mehr wie. Weißt Du das so auf anhieb?
Liebe Grüße und bis gleich
Sandra
Hall noch einmal.
Diese Fehlermeldung erscheint leider nur bei mir. Bei einem anderen Vista-Rechner gibt es keine Probleme. Allerdings gibt es scheinbar bei xp Probleme.
Da sollte das Makro - abgeändert - eigentlich laufen. tut es aber nicht. So sieht es aus:
Sub PDF_Print_Sheet()
'Danke Rainer
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Environ("userprofile") & "\Desktop\" & .Name & ".pdf", Quality:=xlQualityStandard, _
_
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
So sieht es aus, wenn ich unter xp das Makro ausführen wollte:
Und das ist nach wie vor die Fehlermeldung, die bereits beim Öffnen der Datei erscheint...:
Liebe Grüße
Sandra
Hallo
Das muss ein Fehler im System vorhanden sein. Vermutlich ist die Systemvariable "userprofile" fehlerhaft.
1. werden die "\" nicht verwendet sondern mit "_" ersetzt
Du siehst es daran es kein "C:_Users..." geben kann, sondern es müsste "C:\Users..."heissen
Verwende mal als Pfad diese Angabe Environ"("Username")
DAs ist auch im Original von mir so. Diese Variable verwende ich nämlich nie :-)
Gruss Rainer
Hallo Rainer,
wenn ich Environ("Username") statt Environ("Userprofil") nehme, läuft das Makro bei mir (Vista) nicht mehr.
Dein Code sah ja so aus:
Sub PDF_Print_Sheet()
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
"C:\Users\" & Environ("Username") & "\Desktop\" & .Name & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
und meiner so:
Sub PDF_Print_Sheet()
'Danke Rainer
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Environ("userprofile") & "\Desktop\" & .Name & ".pdf", Quality:=xlQualityStandard, _
_
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
Wenn ich das Makro bei mir wieder so einfüge, wie Dein o. g. Original, dann läuft es bei mir. Funktioniert es dann aber auch bei XP und Windows7?Liebe Grüße
Sandra
P. s. Die Fehlermeldung besteht aber nach wie vor, egal ob ich Dein Originalmakro - oder Dein von mir geändertes ....
Hallo
Starte mal dieses Makro unter Windows 7, Vista und XP und notiere dir was und WIE es angezeigt wird.
Sub test()
On Error Resume Next
msgbox "Benutzername: " & Environ("Username") & chr$(13) & "Profil: " & Environ("UserProfile")
End Sub
Gruss Rainer