Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige