[VBA] - Makro Output auf Desktop speichern, egal welcher Benutzer?

Hallo Leute. Ich habe ein Makro geschrieben, dass zurzeit den Output in einen Ordner ablegt der im selben Verzeichnis liegt wie das Makro selbst.

Nun hätte ich es gerne so, dass egal welcher Nutzer das Makro nutzt der Output bei ihm auf dem Desktop gespeichert wird.

Mein Savepfad ist zurzeit so:

savePfad = ThisWorkbook.Path & "\Makro Output" & Auftraggeber & "(" & OhneSonder & ").docx"

Wie müsste ich das jetzt abändern, dass er es auf dem Desktop speichert.

Also C:\Users\Name\Desktop .. Name wär ja dann variabel, gibts da irgendwie eine Möglichkeit?

Danke im vorraus.

3 Antworten

augsburgchris

13.04.2018, 10:55

Sub desktop_pfad()
  Set WSHShell = CreateObject("wscript.Shell")
  strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")
  MsgBox strDesktopPath
End Sub

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

12.04.2018, 16:01

Du könntest dir ein Shell-Objekt erzeugen, welches den SpecialFolder ausliest.

CreateObject("WScript.Shell").SpecialFolders("Desktop")

Quelle: https://www.xing.com/communities/posts/besondere-ordner-specialfolders-mit-vba-finden-1002110397

Woher ich das weiß:Berufserfahrung – Programmierer

ChrisFragtGern

Beitragsersteller

12.04.2018, 16:02

Hab gerade auch selbst was gefunden:

savePfad = Environ("USERPROFILE") & "\Desktop\ " & Auftraggeber & "(" & OhneSonder & ").docx"

TheHeckler

12.04.2018, 15:58

Nimm die Umgebungsvariable: %HOMEPATH% und erweitere diese um eine absolute Angabe, also %HOMEPATH%\Desktop
Tipps einfach mal so bei dir ein den Explorer ein!
https://de.wikipedia.org/wiki/Umgebungsvariable#Vordefinierte_Umgebungsvariablen_2

ChrisFragtGern

Beitragsersteller

12.04.2018, 16:02

Danke danke, habs schon selbst:

savePfad = Environ("USERPROFILE") & "\Desktop\ " & Auftraggeber & "(" & OhneSonder & ").docx"

Ähnliche Beiträge

Excel VBA - Formeln variabel nach unten kopieren (Makro)?

Hi Zusammen

Ich habe eine Tabelle, in der in Zellen A3:G3 Formeln sind. Ich will mittels Makro die Formeln nach unten kopieren. In Spalte I sind Datensätze. Wie kann ich ein Makro so erstellen, dass die Formeln in Spalten A:G nur soweit eingefügt werden, wie in Spalte I Daten vorhanden sind? Die Daten in Spalte I ist variabel (200, mal 300, etc.)

...zum Beitrag

VBA-Makro als Desktop-Icon ausführen/starten?

Huhu,

ich habe ein VBA-Makro mit Oberfläche erstellt und würde dieses gern per "Desktop-Icon" starten, leider weiß ich nicht wie :C

Kann mir da jemand helfen?

Vielen Dank!!

...zum Beitrag

Excel VBA Summen eines variablen Bereiches bilden

Servus Leute,

ihr habt mir schon oft bei Problemen mit VBA geholfen, deswegen denke ich, dass ihr mir auch jetzt helfen könnt.

Ich muss in einem großen Makro (Also es geht nicht ohne Makro!) eine Summenformel bilden, von einem Bereich der variabel ist, da Monat für Monat neue Datenblätter so bearbeitet werden sollen.

Ich habe den Bereich über Suchen-Funktionen und Variablen "e" und "f" definiert (e ist Anfang, f ist Ende)

Diesen Bereich habe ich als Range definiert

Dim Bereich1 As Range
Set Bereich1 = Tabelle1.Range("E" & e, "E" & f)

Und will in einer variablen Zelle die Summe angezeigt bekommen, es scheitert aber bisher:

Tabelle1.Range("E" & b + 11).Value = Application.WorksheetFunction.Sum(Bereich1)

Könnt ihr mir helfen? Danke im Voraus :)

...zum Beitrag

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zum Beitrag

Laufzeitfehler 429 in VBA (Excel Makro)?

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

...zum Beitrag

VBA vergangene Tage seit bestimmtem Datum berechnen?

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

...zum Beitrag

Zeile im VBA Code fixieren?

Hallo,

vielleicht kann mir mal wieder jemand bei einem Excel Problem helfen. Im Netz werde ich nicht fündig :-)

Ich habe in meiner Inventurliste (als Tabelle formatiert mit Ergebniszeile) einen Button eingefügt, der mir automatisch eine neue Zeile hinzufügt. In Zelle B8 zählt mir die Formel =Zeile(B1) die Positionen hoch. Damit er diese aber ordentlich zählt, müsste das Makro immer von der Ergebniszeile aus, eine neue Zeile hinzufügen - tut es aber nicht. Dadurch stimmen die Nummerierungen nicht. Kann man dem Makro sagen, dass er immer von der Ergebniszeile ausgeht, egal in welcher Zelle/Spalte diese steht?

Vielen Dank im Voraus :)

...zum Beitrag

Mit Access und VBA einen formatierten Excel-Export durchführen?

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

...zum Beitrag

Excel VBA activesheet statt tabellenname?

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

"=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

...zum Beitrag

Warum wird VBA durch Optimierung langsamer?

Liebe Community,

ich habe über den Makroaufnahme ein umfangreiches Makro aufgenommen. Typisch dafür ist, dass oft der Befehl Select benutzt wird. Da ich gelesen habe, dass dadurch die Geschwindigkeit verlangsamt wird und weggelassen werden sollte, habe ich das so befolgt.

Vorher ist das Makro innerhalb weniger Sekunden durchgelaufen, jetzt braucht es circa eine Minute. Ich habe mal ein Beispiel angehängt, wo man den Zeitverlust sehr deutlich bemerkt.

Habe ich da was falsch gemacht?

Vorher:

    Cells.Select
    Range("B13").Activate
        With Selection.Font
            .Name = "Calibri"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
        End With

Nachher:

With Cells.Font
        .Name = "Calibri"
        .Size = 14
        .ThemeColor = xlThemeColorLight1
        .ThemeFont = xlThemeFontMinor
    End With

Ich habe eher wenig Ahnung von VBA, habe mich durch Ausprobieren und Internetseiten rumgeschlagen.

Vielen Dank schonmal für Antworten.

Lamio13

...zum Beitrag

Wie kann ich in Excel VBA eine Zeile in die nächste leere Zeile eines anderen Tabellenblattes einfügen?

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

...zum Beitrag

VBA mehrere Tabellen zur PDF zusammenfügen?

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.


Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

...zum Beitrag

Tabellenname aus Zelle mit VBA?

Hallo zusammen. Ich habe eine Tabelle mit mehreren Blättern und möchte mittels Makro die Tabellenblätter umbennen. Problematisch ist nur die Variabilität der Daten.

Beispiel

ich befinde mich in der Tabelle1, wo auch die Makro-Schaltfläche ist
in Tabelle2, Zelle A1 steht welche Tabelle (Tabelle4) einen neuen Namen erhalten soll
in Tabelle3, Zelle A1 steht der Namen den die Tabelle bekommen soll (Test)

Ich finde leider keine Lösung wie ich mit VBA ein Worksheet anspreche welches in Tabelle2, Zelle A1 definiert ist und dieses mit dem Namen aus Tabelle3, Zelle A1 belege.

danke im Vorraus für eure Unterstützung

...zum Beitrag

VBA Grafik in die Kopfzeile per Makros?

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen