Markierten Bereich als Text Datei speichern
08.08.2019 12:35:48
Jürgen
Da ich neu in diesem Forum bin, möchte ich mich kurz bei euch vorstellen.
Mein Name ist Jürgen, bin knapp über 50 Jahre alt, wohne auf der Schwäbischen Alb und bin von Beruf Mechaniker.
Mit Excel habe ich mal mehr, mal weniger zu tun.
Ich kann in Excel Tabellen erstellen und fertige VBA-Codes einbringen.
Anpassen kann ich nur die einfachsten Sachen in VBA-Codes, da mir einfach die
Zeit fehlt, mich richtig in VBA einzuarbeiten.
Über dieses Forum: Hier sind wirkliche Profis am Werk! Einfach Klasse!
Bisher habe ich schon viele Lösung in diesem Forum gefunden. Danke!
Doch nun komme ich ohne Hilfeleistung von eurer Seite nicht mehr weiter.
Ich habe den nachfolgenden VBA-Code. Ich markiere vorab bestimmte Zellen und lasse diese mit dem Code in eine Textdatei schreiben. Dies funktioniert soweit auch wunderbar.
Bis auf Zellen, die ein Formelergebnis beinhalten. Hier bekomme ich z.B. anstatt dem Wert 0,001 diese Ausgabe in der Textdatei: -1,00000000000033E-03
Müsste man hier eventuell den Inhalt der Zelle auslesen und nicht das Ergebnis der Formel?
Leider komme ich hier selbst nicht mehr weiter.
Kann mir bitte jemand den Code anpassen?
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
Mit freundlichem Gruß
Jürgen
Anzeige