Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro-Formel

Makro-Formel
03.11.2005 14:40:35
norbert
Hallo,
vor einer Woche hat mir jemand mit diesem Makro ausgeholfen.
Leider kenn ich mit Makros nicht so gut aus und habe leider
noch ein kleines Problem:
Die erstellte Datei muss in jedem Fall "inventur.001" lauten.
Könnte mir jemand bitte das Makro dafür überarbeiten.
Vielen Dank schon einmal im voraus
Gruß Norbert

Sub Konvertiere()
Dim fn
Dim fn2 As String
Dim ff1 As Integer, ff2 As Integer
Dim tmp As String
fn = Application.GetOpenFilename("Textdateien (*.txt),*.txt")
If fn = False Then Exit Sub
fn2 = WorksheetFunction.Substitute(fn, ".txt", ".001")
Debug.Print fn, fn2
ff1 = FreeFile
Open fn For Input As ff1
ff2 = FreeFile
Open fn2 For Output As ff2
Do While Not EOF(ff1)
Line Input #ff1, tmp
Print #ff2, "," & Split(tmp, ";")(0) & "," & Split(tmp, ";")(1) & ".00,,001,0,0,0"
Loop
Close #ff1
Close #ff2
MsgBox "Datei " & fn2 & " wurde erfolgreich erzeugt."
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Makro-Formel
03.11.2005 15:19:06
UweD
Hallo
so ungetestet...
fn2 = WorksheetFunction.Substitute(fn, ".txt", ".001")
austauschen durch:
fn2 = "inventur.001"
müsste klappen
Gruß UweD
(Rückmeldung wäre schön)
AW: Makro-Formel
07.11.2005 14:38:17
norbert
Danke für die Hilfe.
Damit funktioniert das.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige