Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Trennzeichen Komma ohne Hochklammern

Forumthread: Trennzeichen Komma ohne Hochklammern

Trennzeichen Komma ohne Hochklammern
19.06.2005 09:48:53
Milan
Hallo Excel Profis,
bin schon verzweifelt, ich versuche schon seit zwei Tage per Makro,
Excel-Dateien als Text-Dateien (Trennzeichen Komma) zu sichern.
Excel-Makros setzten aber das Kommazeichen automatisch in Hochklammern,
kann es überhaupt nicht gebrauchen, da diese Textdateien vom
anderen Programmen eingelesen werden (täglich 50 Dateien).
Wie kann man dieses in Hochklammern-setzten umgehen.
Das Makro: Dateiname aus AA1 auslesen, Ordner und Text-Datei anlegen, sichern.

Sub sichern()
Dim strNam As String
strNam = Range("AA1")
If strNam <> "" Then
Range("AA1") = ""
Range("W1") = ""
MkDir ActiveWorkbook.Path & "\" & strNam
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strNam & "\" & strNam, xlTextMSDOS
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

Die Mühe soll nicht um sonst sein!
Danke vorab für Eure Hilfe
Gruß
Milan
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trennzeichen Komma ohne Hochklammern
19.06.2005 09:52:44
Hajo_Zi
Hallo Milan,
das Forum hat ein klasse Archiv, hast Du es schon mal das versucht?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Trennzeichen Komma ohne Hochklammern
19.06.2005 12:10:54
Milan
Hi Hajo,
ja hebe ich gesucht, nichts gefunden.
Die meisten beschäftigen sich mit Import
und selten mit Export.
Das Trennzeichenproblem "Makro-Hochklammer" kommt nicht vor.
Gruß
Milan
AW: Trennzeichen Komma ohne Hochklammern
20.06.2005 08:32:26
MichaV
Hi,
Die Mühe soll nicht um sonst sein!
was soll das denn heißen?
Gruss- Micha
Anzeige
AW: Trennzeichen Komma ohne Hochklammern
20.06.2005 18:38:06
Milan
Hi Micha,
heißt: Ist mir 20€ wert!
Anbei ein Makro das die Aufgabe packt!
Es fehlt aber folgendes:
Ordner und Datei-Name aus Zelle "AA1" auslesen.
Inhalt aus Zelle "AA1" entfernen
Ordner anlegen, Datei in Ordner sichern.
Der Ablageort ist da wo sich die Sicherungsdatei befindet oder
D:...\...
Es sind keine Abfragen notwendig, klicken, sichern fertig.
Wie das Makro oben, nur ohne Anführungszeichen (",")!

Sub Export()
Dim rng As Range
Dim iFile As Integer, iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Set rng = Range("A1").CurrentRegion
sFile = Application.Path & "\YYYYY.txt"
iFile = FreeFile
Open sFile For Output As iFile
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Value & vbTab
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
Close iFile
Workbooks.OpenText _
Filename:=sFile, _
DataType:=xlDelimited, _
Tab:=True, _
semicolon:=False, _
Comma:=False, _
Space:=False, _
other:=False
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
End Sub

Gruß
Milan
Anzeige
AW: Trennzeichen Komma ohne Hochklammern
21.06.2005 20:46:30
MichaV
Hallo
täglich 50 Dateien sind ja nix mehr für mich als Hobby- Bastler.
Versuch mal https://www.herber.de/develop.html oder http://www.haserodt.de/entwick/ent1.php , durch die beiden habe ich eine Menge gelernt. Und da sind Deine 20 Piepen auch besser aufgehoben ;o)
Gruß- Micha
Anzeige
;

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