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

Erstellen der Ordner mit Umlauten - Batch?

Forumthread: Erstellen der Ordner mit Umlauten - Batch?

Erstellen der Ordner mit Umlauten - Batch?
26.11.2007 11:50:00
Selma
Hallo Leute,
ich habe in Zellen der Spalte N die Formeln eingetragen:
B8 = Schürger
C8 = 2007-05-16
N8 =VERKETTEN("mkdir ";"""";"c:\prj\9063\IN\";B8;"\";C8;"""";" /I")
Mit Makro "Batch" werden die Batch-Codes ausgeführt bzw. Ordner erstellt.
Leider sind die Ordner, die Umlaute in Namen erhalten, falsch erstellt worden.
Aus einem 'ü' immer ein '³'.
Anbei die Beispieldatei: https://www.herber.de/bbs/user/48059.xls
Was muss ich ändern?
Vielen Dank im Voraus.
Liebe Grüße,
Selma

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Erstellen der Ordner mit Umlauten - Batch?
26.11.2007 12:40:00
Kawensmann
Hallo,
teste mal hiermit:

Sub Batch()
Dim ff As Integer
Dim rng As Range
Dim tmp As String
Dim Zeile As Long, Spalte As Integer
If Selection.Areas.Count > 1 Then
MsgBox "Es muss ein zusammenhängender Bereich definiert sein!"
Exit Sub
End If
Set rng = Selection
ff = FreeFile
Open "c:\temp\excel.bat" For Output As #ff
Print #1, "chcp 1252"
For Spalte = rng(1).Column To rng(1).Column + rng.Columns.Count - 1
For Zeile = rng(1).Row To rng(1).Row + rng.Rows.Count - 1
With Cells(Zeile, Spalte)
If .Value  "" Then Print #1, .Value
End With
Next Zeile
Next Spalte
Close #1
Starte = Shell("c:\temp\excel.bat", vbMaximizedFocus)
End Sub


Das"chcp 1252" wechselt die Codepage im DOS-Modus.
Gruß
Kawensmann

Anzeige
Vielen Dank Kawensmann !
26.11.2007 12:54:00
Selma
Vielen Dank Kawensmann !
LG
Selma
;

Beliebteste Forumthreads (12 Monate)

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