Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fortlaufender Dateiname

Forumthread: Fortlaufender Dateiname

Fortlaufender Dateiname
06.02.2018 09:39:01
Pourya
Hallo liebes Forum,
ich suche einen Befehlt der meinen Dateinamen um i+1 erhöht.
sobald ich i+1 in den datei namen eingebe, findet er ja nicht mehr diese Datei.
Kann mir jemand verraten, wie ich das machen müsste ?
Liebe Grüße
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:01:19
Sepp
Hallo Pourya,
als Beispiel.
Modul Modul1 
Option Explicit 
 
Sub pourya() 
  Dim strFileName As String, strTemp As String, strCheck As String, strPath As String 
  Dim lngIndex As Long 
 
  strPath = "D:\Forum" 
 
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 
 
  strTemp = "DeinDateiname ohne Zähler" 
 
  Do 
    lngIndex = lngIndex + 1 
    strFileName = strPath & strTemp & Format(lngIndex, "_000") & ".xlsm" 
    strCheck = Dir(strFileName, vbNormal) 
  Loop While strCheck <> "" 
 
  ThisWorkbook.SaveAs strFileName, 52 
   
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:13:46
Pourya
Hallo Sepp,
danke für deine Hilfe :)
Ist es nun möglich den Fortlaufenden Dateinamen in diese Formel mit einzubauen ?
Ich habe den Dateinamen jetzt txtFilename als Beispiel genannt.
Das Problem ist, dass ich der Formel keine dynamischen Dateinamen einbauen kann.
Cells(3 + i, 3).FormulaR1C1 = _
"=('[txtFileName]Z1 Bau 15'!R17C2+'[txtFileName]Z2 Bau 5'!R17C5+'[txtFileName]Z2 Bau 5'!R17C2+'[txtFileName]Z2 Bau 5'!R17C5+'[txtFileName]Z2 Bau 5'!R17C8+'[txtFileName]Z2 Bau 5'!R29C2)/('[txtFileName]Z1 Bau 15'!R12C2+'[txtFileName]Z1 Bau 15'!R12C5+'[txtFileName]Z2 Bau 5'!R12C2+'[txtFileName]Z2 Bau 5'!R12C5+'[txtFileName]Z2 Bau 5'!R12C8+'[txtFileName]Z2 Bau 5'!R24C2)*1000000"
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:17:05
Sepp
Hallo Pourya,
wie sehen denn die Dateinamen aus?
Gruß Sepp

AW: Fortlaufender Dateiname
06.02.2018 10:24:53
Pourya
Hallo Sepp,
Dateiname: KW 03 ppm Auswertung.xlsx,KW 03 ppm Auswertung.xlsx usw...
Also es geht von KW 01 bis 52
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:31:55
Sepp
Hallo Pourya,
ungetestet!
Sub pourya2()
  Dim strFileName As String, strPath As String, strTemp As String
  Dim i As Long

  strPath = "D:\Forum"

  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

  Do
    i = i + 1
    strTemp = Dir(strPath & "KW " & Format(i, "00") & " ppm Auswertung.xlsx", vbNormal)
    If strTemp <> "" Then
    strFileName = strPath & "[" & strTemp & "]"
      Cells(3 + i, 3).FormulaR1C1 = _
        "=('" & strFileName & "Z1 Bau 15'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
          strFileName & "Z2 Bau 5'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
            strFileName & "Z2 Bau 5'!R17C8+'" & strFileName & "Z2 Bau 5'!R29C2)/('" & _
              strFileName & "Z1 Bau 15'!R12C2+'" & strFileName & "Z1 Bau 15'!R12C5+'" & _
                strFileName & "Z2 Bau 5'!R12C2+'" & strFileName & "Z2 Bau 5'!R12C5+'" & _
                  strFileName & "Z2 Bau 5'!R12C8+'" & strFileName & "Z2 Bau 5'!R24C2)*1000000"
    Else
      Exit Do
    End If
  Loop
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:39:23
Pourya
Hallo sepp,
also wenn ich es ausführe, dann passiert nichts :/
AW: Fortlaufender Dateiname
06.02.2018 10:43:19
Sepp
Hallo Pourya,
mit deinen mageren Infos, kann ich nicht mehr tun!
Hast du den Pfad angepasst?
Warum zeigst du nicht den gesamten Code?
Gruß Sepp

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:53:18
Pourya
Ja ich habe den Pfad angepasst.
Sub pourya2()
Dim strFileName As String, strPath As String, strTemp As String
Dim i As Long
strPath = "P:\RB\RB-PM\75 Fuegetechnologie\Shopfloor Digital\Dashboard Bolzen\in Arbeit\ppm  _
Stahl\2016ppm"
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
Do
i = i + 1
strTemp = Dir(strPath & "KW " & Format(i, "00") & " ppm Auswertung.xlsx", vbNormal)
If strTemp  "" Then
strFileName = strPath & "[" & strTemp & "]"
Cells(3 + i, 3).FormulaR1C1 = _
"=('" & strFileName & "Z1 Bau 15'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
strFileName & "Z2 Bau 5'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
strFileName & "Z2 Bau 5'!R17C8+'" & strFileName & "Z2 Bau 5'!R29C2)/('" & _
strFileName & "Z1 Bau 15'!R12C2+'" & strFileName & "Z1 Bau 15'!R12C5+'" & _
strFileName & "Z2 Bau 5'!R12C2+'" & strFileName & "Z2 Bau 5'!R12C5+'" & _
strFileName & "Z2 Bau 5'!R12C8+'" & strFileName & "Z2 Bau 5'!R24C2)*1000000"
Else
Exit Do
End If
Loop
End Sub

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 11:01:16
Sepp
Hallo Pourya,
dann stimmt dein Dateiname irgendwo nicht, habe es bei mir nun getestet und es werden die richtigen Formeln eingetragen.
Userbild
Gruß Sepp

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 11:12:10
Pourya
Also ich wollte den Code folgendermaßen gestalten.
Aus der eingelesene Datei (Bsp: KW 02 Auswertung ppm.xlsx) sollen folgende Zellen:
Cells(3 + i, 3).FormulaR1C1 = _
"=('" & strFileName & "Z1 Bau 15'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
strFileName & "Z2 Bau 5'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
strFileName & "Z2 Bau 5'!R17C8+'" & strFileName & "Z2 Bau 5'!R29C2)/('" & _
strFileName & "Z1 Bau 15'!R12C2+'" & strFileName & "Z1 Bau 15'!R12C5+'" & _
strFileName & "Z2 Bau 5'!R12C2+'" & strFileName & "Z2 Bau 5'!R12C5+'" & _
strFileName & "Z2 Bau 5'!R12C8+'" & strFileName & "Z2 Bau 5'!R24C2)*1000000"
berechnet werden und in die neue Arbeitsmappe eingefügt werden. Und das dann fortlaufend...
Also in "c3", dann "c4" usw
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 11:10:59
Sepp
Hallo Pourya,
Modul Modul1 
Option Explicit 
 
Sub pourya2() 
  Dim strFileName As String, strPath As String, strTemp As String 
  Dim i As Long 
 
  strPath = "P:\RB\RB-PM\75 Fuegetechnologie\Shopfloor Digital\Dashboard Bolzen\in Arbeit\ppm Stahl\2016ppm" 
 
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 
 
  With Sheets("Tabelle1") 
    For i = 1 To 52 
      strTemp = Dir(strPath & "KW " & Format(i, "00") & " ppm Auswertung.xlsx", vbNormal) 
      If strTemp <> "" Then 
        strFileName = strPath & "[" & strTemp & "]" 
        .Cells(i + 1, 3).FormulaR1C1 = _
          "=('" & strFileName & "Z1 Bau 15'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
          strFileName & "Z2 Bau 5'!R17C2+'" & strFileName & "Z2 Bau 5'!R17C5+'" & _
          strFileName & "Z2 Bau 5'!R17C8+'" & strFileName & "Z2 Bau 5'!R29C2)/('" & _
          strFileName & "Z1 Bau 15'!R12C2+'" & strFileName & "Z1 Bau 15'!R12C5+'" & _
          strFileName & "Z2 Bau 5'!R12C2+'" & strFileName & "Z2 Bau 5'!R12C5+'" & _
          strFileName & "Z2 Bau 5'!R12C8+'" & strFileName & "Z2 Bau 5'!R24C2)*1000000" 
      Else 
        .Cells(i + 1, 3) = "" 
      End If 
    Next 
  End With 
End Sub 
 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
auch mit deiner Testdatei, kein Problem.
Gruß Sepp

Anzeige
AW: Fortlaufender Dateiname
06.02.2018 11:41:35
Pourya
Hallo Sepp,
also hab es jetzt für alle Datein getestet und es funktioniert zu 90 prozent.
Was passiert denn, wenn es zu einer KW keie Datei gibt ? Kommt die Schleife dann durcheinander ? Denn Nach dem eine Leerzeile oder null drinne steht, stimmt die Reihenfolge nicht mehr so ganz glaub ich oder es wird dann falsch berechnet.
Liebe Grüße
Pourya
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 12:00:32
Sepp
Hallo Pourya,
was soll denn in den Zellen stehen, wenn keine Datei gefunden wird?
Gruß Sepp

AW: Fortlaufender Dateiname
06.02.2018 12:02:17
Pourya
Hallo Sepp;
ne alles gut. War nur ein Denkfehler, weil in manchen Berechnungen im Nenner die Null steht und dadurch dann, als ppm null herauskommt.
Entschuldige für die Verwirrung.
ich danke dir nochmal vielmals für deine Hilfe
Liebe Grüße
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:15:29
Pourya
Hallo Sepp,
danke für deine Hilfe :)
Ist es nun möglich den Fortlaufenden Dateinamen in diese Formel mit einzubauen ?
Ich habe den Dateinamen jetzt txtFilename als Beispiel genannt.
Das Problem ist, dass ich der Formel keine dynamischen Dateinamen einbauen kann.
Cells(3 + i, 3).FormulaR1C1 = _
"=('[txtFileName]Z1 Bau 15'!R17C2+'[txtFileName]Z2 Bau 5'!R17C5+'[txtFileName]Z2 Bau 5'!R17C2+'[txtFileName]Z2 Bau 5'!R17C5+'[txtFileName]Z2 Bau 5'!R17C8+'[txtFileName]Z2 Bau 5'!R29C2)/('[txtFileName]Z1 Bau 15'!R12C2+'[txtFileName]Z1 Bau 15'!R12C5+'[txtFileName]Z2 Bau 5'!R12C2+'[txtFileName]Z2 Bau 5'!R12C5+'[txtFileName]Z2 Bau 5'!R12C8+'[txtFileName]Z2 Bau 5'!R24C2)*1000000"
Anzeige
AW: Fortlaufender Dateiname
06.02.2018 10:18:51
Pourya
Hallo,
das Problem ist auch, dass der Index mitten im Dateinamen steckt.
Beispiel KW 01 ppm Auswertung.xlsx
Das einzige was sind ändert ist die Zahl in der Mitte. Weiß nicht wie ich diese dynamisch in der Formel einbauen kann.
Oder gibt es eine Möglichkeit, eine Schleife zu erstellen, in der die jeweils ausgewählte Datei in die Formel aufgenommen wird ?
Ohje ich hoffe ihr könnt mir einen Anstoß geben
Liebe Grüße
Anzeige
;

Forumthreads zu verwandten Themen

Text fortlaufend kopieren
Joachim

HI,
ich habe ein Problem mit der Formatierung einer Textbox. Folgendes: ich habe auf meinem Sheet mehrere Zellen mit Textinhalt. Dieser Zextinhalt hat leider Zeilenumbrüche. Nun möchte ich den Text von B15 in eine Textbox einlesen:
For Each C In Range("B15")
TextBox4.Value = C.Value...
01.09.2008 10:46:00
Thread-ID: 1006350
7 Beiträge
Zeile fortlaufend nach Textdatei
Daniel

Hallo,
in einer Tabelle wird laufend ein Wert berechnet. Nun möche ich mit Worksheet_Calculate
ein Makro aufrufen, das diesen Wert, untereinander (zeilenweise) in eine Textdatei schreibt.
Das habe ich bisher, ich dachte \n bewirkt einen Zeilenumbruch...tut es aber nicht. Stattdess...
02.10.2008 10:12:00
Thread-ID: 1013799
4 Beiträge
log-Dateien fortlaufend importieren
Schulze

Liebe Excelianer,
unser Admin ist kürzlich mit einer Frage an mich herangetreten (einmal "Experte" immer "Experte" :-), von der ich mal wieder dachte: "Null Problemo!" bei der Umsetzung sah es dann "mal wieder" etwas anders aus...
Er möchte log Dateien des Mailservers in Excel einlesen...
18.11.2008 12:50:00
Thread-ID: 1025616
2 Beiträge
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Fortlaufende Preise
tor

Hallo zusammen,
ich habe da ein kleines Problem:
Ich ermittle mir anhand von Kosten einen Tarif (Spedition) der in PalettenSparten aufgeteilt wird.
also:
- 1 Palette = 74€
- 2 Paletten = 146€
- 3 Paletten = 216 €
- usw.
Jetzt kommt es aber durch unterschiedliche...
16.03.2009 13:58:04
Thread-ID: 1060726
4 Beiträge
fortlaufende nummern einfügen
ben

hallo leute
ich habe folgendes problem. in einer spalte a stehen wahllos daten und es können leerzeilen vorhanden sein. jetzt will ich bei betätigung eines button immer wenn in einer zelle der spalte a ein wert auftaucht eine fortlaufende nummer zuordnen. leider bekomm ich es nur hin wenn a...
05.05.2009 10:06:00
Thread-ID: 1072981
13 Beiträge
Anzeige
Fortlaufende Integer-Zahl mittels Zeit & Datum?
Dennis

Hallo Forum,
ich benötige für viele kleine Prozesse eine fortlaufende 8-stellige Integer-Zahl. Dazu wollte ich in der Auto_open() das Datum und die Zeit zu Hilfe nehmen, damit sich die Zahl ganz sicher nicht wiederholt und dann bei jedem Prozess, der eine neue ID verlangt, die Zahl um 1 erh...
25.05.2009 10:59:30
Thread-ID: 1077099
11 Beiträge
fortlaufende Numerierung beim drucken
guido

Moin Moin
bin schon etwas länger auf der Suche nach einem vba Tool für Excel, dass mir beim Ausdruck automatisch die Seiten durch nummeriert nach dem ich die Startseitenzahl festgelegt habe.
Zur kurzen Erklärung:
Ich habe eine Excel Vorlage (DIN A4) erstellt und diese in zwei Seiten...
27.05.2009 12:35:30
Thread-ID: 1077676
5 Beiträge
Anzeige
Fortlaufende Uhrzeit in Statusleiste zei
Lang

Hallo Excelfreunde,
wer kann weiterhelfen? Habe versucht, in der Statusleiste die nachfolgende Prozedur (stammt aus Thema: Ereignis - OnTime, Text-Index: 067199) an's Laufen zu bringen. Es wird nur eine feste Uhrzeit angezeigt. Eine Zellenanzeige brauche ich nicht.
'Public Const gsMacro...
27.06.2009 15:30:36
Thread-ID: 1084832
3 Beiträge
Fortlaufende Nummer
Pedro

Hallo zusammen!
Habe da einen Bericht, der eine fortlaufende Nummer erhalten soll. Und zwar sollte diese Nummer mit dem aktuellen Datum (=HEUTE()) gekoppelt sein. D.h. der Bericht von heute 08.07.2009 hat die fortlaufende Nummer 93, der morgige Bericht die Nummer 94 etc.
Dieser Bericht...
08.07.2009 16:21:10
Thread-ID: 1087234
3 Beiträge
Datum fortlaufend
Ralf

Hallo zusammen, habe ein kleines Problem und hoffe auf Hilfe.
Also ich soll einen Bauzeitenplan erstellen ind habe in der Spalte A eine Zeitschiene mit einem Anfang und einem Ende der Bastelle in einem Datumsvormat eingegeben.
Jetzt ist diese Zeitschiene farblos und es soll als arbeitsf...
15.07.2009 15:18:35
Thread-ID: 1088852
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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