Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1812to1816
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichernmakro mit variablen Unterordnern

Speichernmakro mit variablen Unterordnern
18.02.2021 11:28:54
Bernhard
Nächste Baustelle,
die Exceldatei wird durch ein Makro automatisch in einen Zielordner gespeichert. In diesem Zielordner gibt es noch 4 Unterordner.
In der Datei wähle ich über ein Optionsfeld aus, um welche Kategorie es sich handelt. Dieses Optionsfeld gibt als Wert die Zahlen 1 bis 4 wieder.
Kann ich anhand dieses Wiedergabewertes einen Unterordner auswählen? Beispiel Ergebnis = 1, speichern in Unterordner Teil A, Ergebnis = 2, speichern in Unterordner Teil B, usw?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichernmakro mit variablen Unterordnern
18.02.2021 12:31:44
ralf_b
Hallo Bernhard,
Ja das geht. Wenn die Orndernamen bekannt sind geht das easy in den Namen einzubauen.
gruß
rb
AW: Speichernmakro mit variablen Unterordnern
18.02.2021 13:27:30
Bernhard
Hallo Ralf,
ja die Unterordner heißen Teil A, Teil B, Teil C und Teil D
AW: Speichernmakro mit variablen Unterordnern
18.02.2021 14:13:25
ralf_b
Sowas erwähntest du schon. Und jetzt?
AW: Speichernmakro mit variablen Unterordnern
18.02.2021 17:10:10
Bernhard
wie müsste das Skript aussehen bzw ergänzt werden?
Die Zelle A6 gibt in Zahlen wieder, in welchen Unterordner letztendlich abgespeichert werden soll
A6 = 1 -- Speicherpfad wird in Ordner Teil A zum speichern geöffnet
A6 = 2 -- Speicherpfad wird in Ordner Teil B zum speichern geöffnet
usw
Aktuell sieht mein Skript wie folgt aus:

Sub Speichern()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = Range("Dropdown!B20")  'Verzeichnis-Vorschlag
Datei = Range("d4").Text & " " & Range("D2") & " " & Format(Date, "dd.mm.yyyy") & ".xlsm" ' _
Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy  False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern  _
gedrückt
End Sub


Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel  _
Dateien (*.xlsm),*.xlsm*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function

Wie muss ich das Skript abändern, damit der Unterordner Teil A geöffnet wird, wenn der Zellenwert in A6 gleich 1 ist, usw?
Anzeige
AW: Speichernmakro mit variablen Unterordnern
18.02.2021 21:02:26
ralf_b
könnte so aussehen, kommt aber drauf an wo und wie die Backslashes angefügt werden. 

Verzeichnis = Range("Dropdown!B20")  'Verzeichnis-Vorschlag
select case cint((Range("A6").value)
case 1 : Verzeichnis  & "Teil A"
case 2:  Verzeichnis  & "Teil B"
usw.
end select

307 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Excel-Makro mit variablen Zeilen
Hans-Peter

Hallo,
Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
09.11.2008 22:40:00
Thread-ID: 1023114
5 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
13
4
20
9
2
2
2
3
3
16
2
6
1
4
2
2
4
6
2
1
2
6