Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige