Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierter Bereich als Text Datei speichern

Markierter Bereich als Text Datei speichern
Roland
Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann über eine Tastenkombination in ein TXT-Format speichern könnte.
Das Beispiel zeigt die Exceldatei als Quelle und die entsprechende TXT-Datei. Wichtig wäre noch, dass das Zahlenformat von xx,xx nach xx.xx geändert wird.
Kann mir jemand helfen?
Besten Dank im voraus.
Roland
Quelldatei: https://www.herber.de/bbs/user/63994.xls
Zieldatei: https://www.herber.de/bbs/user/63995.txt

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

Betreff
Benutzer
Anzeige
Selection-Ausgabe in Textfile
21.08.2009 23:44:54
Erich
Hi Roland,
hier zwei Varianten, die vielleicht schon ausreichen: 

Option Explicit
Sub SelInText1()
Dim rngZ As Range, arrV, strE As String, kk As Integer
Const strDel As String = " "                    ' Trennzeichen
For Each rngZ In Selection.Rows
arrV = Application.Transpose(Application.Transpose(rngZ.Value))
If strE  "" Then strE = strE & vbCrLf
strE = strE & Join(arrV, strDel)
Next rngZ
strE = Replace(strE, ",", ".")
kk = FreeFile(1)
Open "c:\temp\SelInText.txt" For Output As kk   ' Ausgabedatei - anpassen
Print #kk, strE
Close kk
End Sub
Sub SelInText2()
Dim rngZ As Range, arrV, strE As String, kk As Integer, ss As Long
Const strDel As String = " "                    ' Trennzeichen
For Each rngZ In Selection.Rows
arrV = Application.Transpose(Application.Transpose(rngZ.Value))
For ss = 1 To UBound(arrV)
arrV(ss) = Replace(arrV(ss), ",", ".")
Next ss
If strE  "" Then strE = strE & vbCrLf
strE = strE & Join(arrV, strDel)
Next rngZ
kk = FreeFile(1)
Open "c:\temp\SelInText.txt" For Output As kk   ' Ausgabedatei - anpassen
Print #kk, strE
Close kk
End Sub
In Variante 1 wird erst die gesamte Ausgabe in einem String strE gesammelt,
dann werden in den (langen) String alle Kommata durch Punkte ersetzt.
Wenn strE sehr lang wird, könnte es sein, dass die Funktion Replace nicht mehr korrekt arbeitet.
Deshalb wird in Variante 2 die Ersetzung mit Replace für jede Zeile einzeln vorgenommen.
Achtung: Jedes Komma - auch innerhalb eines Textes - wird durch einen Punkt ersetzt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Selection-Ausgabe in Textfile
22.08.2009 10:02:51
Roland
Hallo Erich,
ich bin restlos begeistert! Das Macro arbeitet genau so wie ich es mir vorgestellt habe. Besonders gut ist, dass in der Zieldatei die alte Daten gelöscht werden.
Da es maximal 10 Zeilen sind die exportiert werden müssen langt wohl die Variante 1 aus.
Etwas Probleme habe ich noch mit dem Aufrufen des Macros durch eine Tastenkombination. Dein Macro habe ich in ein neues Modul gespeichert. Anschließend habe ich ein kleines Macro aufgezeichnet und dabei eine Tastenkombination zugeordnet. Anschließend lösche ich die Aktion des Macros und füge "Call SelInText1" ein. Somit läuft es.
Gibt es noch einen eleganteren Weg?
Grüße aus Heidelberg
Roland
Anzeige
Tastenkombi für Makro zuweisen
22.08.2009 10:47:53
{Boris}
Hi Roland,
Entwicklertool - Makros - Makro auswählen - Optionen - und hier ne Tastenkombi zuweisen.
Grüße Boris
AW: Tastenkombi für Makro zuweisen
22.08.2009 13:41:48
Roland
Manchmal ist das Leben doch so einfach ;-)
Danke!
Grüße
Roland
AW: Selection-Ausgabe in Textfile
22.08.2009 10:56:09
Hajo_Zi
Halo Roland,
falls Entwicklertools nicht aktiviert.
Register Ansicht Befehlgruppe Makros, Makros

312 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
33
4
2
2
2
2
13
3
1
4
2
2
1
13
1
1
4
2
2
5
5
3
2