Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1568to1572

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

VBA Spalte A als Text mit Endung xml speichern

Forumthread: VBA Spalte A als Text mit Endung xml speichern
4 Beiträge zu diesem Forumthread
Anzeige
313 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

10.07.2017 14:47:09

Sandro

Hallo,
Ich habe in Spalte A eine kml-Datei generiert. Diese möchte ich nun als Text mit der Endung kml abspeichern. Zum Test versuchte ich es von Hand als TXT. Jedoch die erste Zeile ist schon falsch. Ich bekomme zu viele Anführungszeichen (")
Meine Tabelle https://www.herber.de/bbs/user/114789.xlsm
Spalte A wird mit VBA generiert.
Dachte zuerst die Chr(34) im VBA-Code sind schuld, aber wenn ich Spalte A in den Editor Notepad kopiere erscheint der Text richtig.
Wie kann ich das am besten verwirklichen?
Vielen Dank für die zahlreichen Tipps :)
Sandro

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Spalte A als Text mit Endung xml speichern

10.07.2017 15:02:34

yummi
AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 11:58:40

Sandro
AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 13:32:34

yummi
AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 15:51:51

Sandro

AW: VBA Spalte A als Text mit Endung xml speichern

10.07.2017 15:02:34

yummi

Hallo Sandro,
kannst Du so machen:


Sub Schreibe()
Dim strxml As String
strxml = ActiveSheet.Cells(1, 1).Value & vbCrLf & ActiveSheet.Cells(2, 1).Value & vbCrLf &  _
ActiveSheet.Cells(3, 1).Value
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.xml" For Output As #1
Print #1, strtxt
Close #1
End Sub

gruß
yummi

AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 11:58:40

Sandro

Hallo yummi
Vielen Dank

Print #1, strtxt

musste ich noch auf



Print #1, strxml

ändern, dann lief es.
Wie muss ich es noch ändern, dass die ganze Spalte A bis zur letzten beschriebenen Zeile in MeinXML.kml landet?

Sub Schreibe()
Dim strxml As String
strxml = ActiveSheet.Cells(1, 1).Value & vbCrLf & ActiveSheet.Cells(2, 1).Value & vbCrLf & _
ActiveSheet.Cells(3, 1).Value
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.kml" For Output As #1
Print #1, strxml
Close #1
End Sub

Vielen Dank
Silvano

AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 13:32:34

yummi

Hallo Sandro


Sub Schreibe()
Dim strxml As String
dim i as long
for i = 1 to ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
strxml = strxml & ActiveSheet.Cells(i, 1).Value & vbCrLf
next i
Debug.Print strxml
Open ThisWorkbook.Path & "/MeinXML.xml" For Output As #1
Print #1, strxml
Close #1
End Sub

Gruß
yummi

AW: VBA Spalte A als Text mit Endung xml speichern

11.07.2017 15:51:51

Sandro

Hallo yummi
Vielen Dank :-)