Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.


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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige