Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen aus Zellen generieren

Dateinamen aus Zellen generieren
06.10.2002 22:52:14
Armin Feiler
Hallo VBA-Welt & Excel-Freunde,

für folgende Probleme suche ich Lösungen:
1.
Dateinamen einer Excel-Arbeitsmappe (Mustervorlage *.xlt)aus zwei Zellwerten generieren und in einem bestimmten Ordner als "xx".xls speichern.
Wie geht das?
2.
Alle Dateinamen aus diesem Ordner auslesen und in einer Exceltabelle auflisten inkl. neben jeden Dateinamen ergänzend
bestimmte Zellwerte (Telefonnummern).

Danke für jeden Tipp!

Mit Güßen an alle

Armin

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateinamen aus Zellen generieren
06.10.2002 23:31:39
Harry_W
Hallo Armin
Habe die Codes von der CD

zu 1)

Dim w, dName$, r
r = ThisWorkbook.Path
dName = r & "\" & Worksheets("Liste").Range("f4") & "-" & Worksheets("Liste").Range("b5")
dName = Format(dName, "mmddyy") & ".xls"
ActiveWorkbook.SaveAs dName
For Each w In Application.Workbooks
w.Save
Next w

zu2)

Sub OpenWkb()
On Error GoTo 1
Sheets("Tabelle1").Select
Cells.ClearContents
'Einfügen aller .xls Dateien in dem Verzeichnis
Dim strFile As String, strPath As String
Dim intCounter As Integer
Dim z
z = 1
Application.ScreenUpdating = True
strPath = ThisWorkbook.Path
strFile = Dir(strPath & "\") '& "*.xls")
Do While strFile <> ""
Cells(z, 1) = strFile
Cells(z, 2) = ("Liste")
Cells(z, 3) = ("a1")
strFile = Dir()
z = z + 1
Loop

End Sub

Leider funktioniert das zweite bei mir noch icht richtig, da ich die Verknüpfungszelle noch manuell eingeben muß. Habe die Frage der Verknüpfung diekt unter deiner Frage.


mfg

Harry_W

Anzeige
Re: Dateinamen aus Zellen generieren
07.10.2002 12:49:59
Armin
hallo Harry_W,

Merci für Deine Hilfe!

Zu 1.:
funktioniert soweit, nur das Format des Datums macht mir noch Probleme.
Wenn Format = Jahreszahl, dann Monat und schließlich Tag, dann sortiert der Explorer die Dateiordner hübsch automatisch nach Erstellungsdatum.
Habe an dem Code etwas herumgefummelt, aber so wie ich als VBA-Laie mir das überlegt habe funktioniert das noch nicht. (vgl. veränderten Code unten)
Desweiteren: wie baue ich einen bestimmten Pfad als Speicherort ein?

zu 2.:
Trage ich bei
Sub OpenWkb()
c:\ ein, kommt folgende Meldung
"Nach diesem Vorgand wird das projekt zurückgesetzt...."
Was muß ich hier wie angeben?


Danke im Voraus!

Grüße
Armin

Sub Makro1()
'
' Makro1 Makro
' Makro am 07.10.2002 von Armin Feiler aufgezeichnet
'
' Tastenkombination: Strg+s
'
Dim w, dName$, r
r = ThisWorkbook.Path
dName = r & "\" & Worksheets("Liste").Range("a1") & "-" & Worksheets("Liste").Range("a2")
dName = Format(dName, "yy mm dd") & ".xls"
ActiveWorkbook.SaveAs dName
For Each w In Application.Workbooks
w.Save
Next w

End Sub


Anzeige
Re: Dateinamen aus Zellen generieren
07.10.2002 19:36:08
Harry_W
Hallo Armin
Bin leider auch noch Laie.
Wenn das heutige benutzt werden muß kannst du es auch so eingeben - aber ohne Dateinamen.
Ansonsten könntest du ja auch das Datum in Zelle A2 schon so wie du es willst eintragen.

Makro 1

r = "c:\"
dName = Date ' heute
dName = Format(dName, "yy.mm.dd") & ".xls"
ActiveWorkbook.SaveAs dName

zu 2

strPath = "c:"


mfg

Harry

Re: Dateinamen aus Zellen generieren
07.10.2002 22:02:08
Armin Feiler
hallo Harry_W,

zu 2:
erhalte Felermeldung "Sprungmarke nicht definiert".
ich denke es ist die zeile "onErrorGoTo.." gemeint.
wie definiere ich sprungmarken?


1. klappt inzwischen ganz gut, leider akzetiert excel meine pfadangabe nicht, obwohl der Pfad definitiv korrekt angegeben ist.

Folgender Code ist inzwischen entstanden, so klappt es auch mit dem Datumsformat:


Private Sub CommandButton1_Click()
Dim w, dName$, r
r = "c:\Dokumente und Einstellungen\af\Lüttmann\Kunden\Anfragen\"
dName = Date ' heute
dName = Format(dName, "yy mmdd") & " " & Worksheets("Agenda").Range("b3") & ".xls"
ActiveWorkbook.SaveAs dName
For Each w In Application.Workbooks
w.Save
Next w
Range("e2") = dName
End Sub

Schöne grüße

armin

Anzeige
Re: Dateinamen aus Zellen generieren
07.10.2002 22:35:17
Harry_W
Hallo Armin

Dein Pfad steht in r
Du gibst unten aber kein " r " mehr an.

dName = r & Date &Format(dName, "yy mmdd") & " " & Worksheets("Agenda").Range("b3") & ".xls"

Was soll die Zeile
Range("e2") = dName
am Ende des Makros

zu 2
Die Zeile onErrorGoTo kannst du löschen

mfg

Harry


Re: Dateinamen aus Zellen generieren
07.10.2002 23:02:14
Armin Feiler
Hallo Harry,

Danke, jetzt ist alles O.K.

Range("e2") = dName ist nur ein Trick von mir gewesen, da ich auf dem Blatt selber den Dateinamen in eine zelle eingetragen haben wollte. Auf diesem Wege schreibt mir excel den Dateinamen in die zelle im gleichen format wie den dateinamen selbst.
Ansonsten wandelt mir excel bei einer textverkettung
A1=B2&" "&B3 das schöne datumsformat aus zelle B2 (Format: yy mmtt)in eine fortlaufende zahl um. Das sieht dann etwa so aus: "3576 Name"

Besten Dank, viele Grüße,
armin


Anzeige

282 Forumthreads zu ähnlichen Themen

Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Anzeige
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Hyperlink-Adresse aus Zelle übernehmen
werner

Hallo,
ich habe in einer Datei div. Userforms Buttons, die Hyperlinks zu internen Dateien und Web- _ Sites öffnen und gelegentlich aktualisiert werden müssen, z.B. Private Sub CBt34_Click() ActiveWorkbook.FollowHyperlink Address:="http://www.xxx.html", NewWindow:=True End Sub
Damit ic...
02.09.2009 17:43:19
Thread-ID: 1100160
3 Beiträge
Dateiname aus Zelle
Daniel

Hallo Experten,
Ich hab mich nun den halben Tag durchs Forum gehangelt und komm irgendwie doch auf keinen grünen Zweig...
ich habe ein Datenblatt, das von den verschiedensten Leuten verwendet wird; dieses liegt als Vorlage auf dem Server. (N:\Abteilung\Gruppe\Vorlage.xlt)
Nun habe i...
06.09.2009 10:21:50
Thread-ID: 1100641
6 Beiträge

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
2
2
3
5
1
13
11
12
2
5
2
6
3
5
2
3
4
4
7
1
1
6
7
1
4