[S] Makro - alle Werte aus einer Dropdownliste einzeln ausw. und dann jew. speich

[bernd99]

Wie oben beschrieben würde ich mich über eure Hilfe freuen.

Ich habe in einer Excel Tabelle eine Dropdownliste mit sagen wir mal folgendem Aussehen:

Zelle B2:

A
B
C
D
E
....

Nun möchte ich per Makro erreichen, dass der erste Wert ausgewählt und dann unter dem Namen der Zelle (das was dann in B2 steht) diese Datei gespeichert wird.
In dem o.g. Fall müsste er 5 Dateien mit den Namen von A-E speichern.

Gibt es da eine einfache Lösung?

Vielen Dank

[WillWissen]

Push!

[schauan]

Hallöchen,

es stehen also in Zelle B2 die 5 Buchstaben untereinander, (z.B. wegen geringer Spaltenbreite)??
Das mit dem Auswählen per Makro wird so nix. Es wäre von Vorteil, wenn Du die Auswahlmöglichkeiten an anderer Stelle hinterlegst und dann diese Daten zeilenweise abarbeitest.n Hier mal ein Beispiel:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	ABCDEF	ABCDEF
2	GHIJKL
3	MNOPQR

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
B1	Liste		=$A$1:$A$3

Das Tool stellt aber die Spaltenbreite nicht richtig dar. Die gewählten Buchstaben stehen schon untereinander, siehe Bild

   

Wäre das ok? Dann können wir darauf aufbauen.

[bernd99]

Hi Danke für deine Antwort,
ich habe mich wahrscheinlich falsch ausgedrückt.

Ich habe eine Dropdownliste.
In dieser kann ich die Namen von beispielsweise 20 Mitarbeitern auswählen.
Die der Dropdownliste zueghörigen Daten liegen in einem anderen Tabellenblatt.

Nun möchte ich, dass das Makro in die Dropdownliste springt und MA 1 wählt, dann die Excel Datei unter diesem Namen speichert.
Jetzt soll MA 2 ausgewählt werden und eine neue Datei unter dem Namen des MA 2 angelegt.

Insgesamt sollte das Makro also 20 Dateien erzeugen.

[IchBinIch]

Hi,

wenn die Daten für das Dropdown in einer anderen Tabelle liegen, kann man doch auch diese Liste durchlaufen und die Dateien erzeugen, oder nicht?
Warum willst Du das unbedingt über das Dropdown machen?

Gruß
Ich

[schauan]

Hallöchen,

ich denke auch, dass das über die Liste gemacht werden sollte.

Wenn man den Makrorekorder benutzt, bekommt man für "Speichern unter" diesen Code:

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ChDir "I:\Test"
    ActiveWorkbook.SaveAs Filename:="I:\Test\A.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Den könnte man als Basis für die Aktion nehmen. Es fehlt eine Schleife drum herum und die Benennung entsprechend der Liste. Dann hab ich noch das Makro rausgenommen

Code:

Sub Makro2()
'
' Makro1 Makro
'
'Variablendeklaration - Integer
Dim iCnt%
    'Schleife ueber 20 Zeilen
    For iCnt=1 To 20
    'Speichern unter xlsx mit dem Namen aus Zeile iCnt in das Verzeichnis I:\Test
    'Hinweis: Zellinhalt nur Dateiname ohne Pfad und Erweiterung
    ActiveWorkbook.SaveAs Filename:="I:\Test\" & Cells(iCnt,1).Value & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    'Ende Schleife ueber 20 Zeilen
    Next
End Sub