Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateipfad

Dateipfad
28.02.2005 20:40:36
Jens
Hallo
Ich habe die Hoffnung nicht aufgegeben hilfe zu finden.
ich arbeite in einen betrieb der 3 schichten macht.
bei der Arbeit wird am ende de schicht eine csv datei erstellt die ich zum schichtende in eine tabelle zur auswertung impor.
mein Problem liegt darin das ich eine Tagesauswertung machen möchte die über 3 Schichten geht
Ich habe für die Tagesauswertung 6 csv Dateinen
Anlage1280205#1.csv
Anlage2280205#1.csv
Anlage1280205#2.csv
Anlage2280205#2.csv
Anlage1280205#3.csv
Anlage2280205#3.csv
aufgeslittet bedeutet der Dateiname die Anlage "Anlage1" das Datum "280205" Raute als Trennung der schicht "1".
nun wäre es für mich Hilfreich das der komplette Pfad mit Dateiname automatisch für die 6 Dateien vom jeweiligen vortag in 6 zellen in
Tab.blatt 1 (z.b. T50....T55)um 6.00 Uhr eingetragen werden.
Wer kann Helfen
Danke und viele Grüße
Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateipfad
01.03.2005 10:38:06
bst
Morgen Jens,
versuch mal sowas.
HTH, Bernd
--
Option Explicit

Sub Nomen()
Dim s As String
Dim i As Integer
s = Format(Date - 1, "ddmmyy")
With Worksheets(1).Range("T50")
For i = 1 To 3
.Cells(2 * i - 1, 1).Value = "Anlage1" & s & "#" & i & ".csv"
.Cells(2 * i, 1).Value = "Anlage2" & s & "#" & i & ".csv"
Next
End With
End Sub

AW: Dateipfad
01.03.2005 16:08:28
Jens
hallo Bernd
Ich danke Dir um es auszuprobieren habe ich erst morgen zeit.
werde mich morgen noch einmal melden.
Danke und Gruß
Jens
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige