Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Spalte A als Text mit Endung xml speichern

Forumthread: VBA Spalte A als Text mit Endung xml speichern

VBA Spalte A als Text mit Endung xml speichern
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
AW: VBA Spalte A als Text mit Endung xml speichern
11.07.2017 15:51:51
Sandro
Hallo yummi
Vielen Dank :-)
;

Forumthreads zu verwandten Themen

In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 Beiträge
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Textbox und das Zeitformat
Rechsteiner

verstehe nicht viel von VBA, leider, habe die Eingabemaske ein bisschen abgeändert. Funktioniert eigentlich für meine bedürfnisse gut.
Das Problem: wenn ich über die Maske Zeit eintrage funktioniert es wunderbar, wenn ich aber im Tabellenblatt die Zeiten ändere bekomme ich in der Maske nich...
15.12.2008 16:28:00
Thread-ID: 1033081
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Datum in Textzeile - Probleme mit Format
Andreas

Hallo zusammen,
ich habe in Excel 2003 ein einfaches Rechnungsformular gebastelt. In diesem Formular gibt es eine Zelle mit dem Zellnamen "RE_Datum" und "Rechnungsbetrag". In diesen Zellen stehen das Datum der Rechnung und der Rechnungsbetrag in Euro. Nun möchte ich am Ende der Rechnung ein...
06.01.2009 20:32:00
Thread-ID: 1037351
3 Beiträge
Zellen formatieren bei Textinhalt
Uweauch

Hallo,
wer kann mir helfen?
Möchte mehrere Zellen farblich in einer Tabelle hervorheben, wenn in einem bestimmten Zelle z.B A1 einen bestimmter Text enthält. Dann sollen auch die nachfolgenden Zellen wie B1, C1, D1 gelb formatiert werden und alle Zellen dieser Zeile z.B fett und Schri...
17.01.2009 01:00:00
Thread-ID: 1040845
8 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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