|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.12.2007 16:03:36 |
Chris |
|
|
|
12.12.2007 11:35:06 |
Holger |
|
|
|
12.12.2007 19:38:14 |
Chris |
|
|
|
13.12.2007 13:11:10 |
Holger |
|
|
 Aw-Korrektur: Komma durch Punkt in Excel ersetzen |
13.12.2007 14:33:31 |
Holger |
|
|
|
12.12.2007 13:21:56 |
Sensewell |
|
|
Von:
Holger |
Datum:
13.12.2007 14:33:31 |
Views:
1158 |
Rating:
|
Antwort:
|
Thema:
Aw-Korrektur: Komma durch Punkt in Excel ersetzen |
Hallo Chris,
ich habe leider vorhin durch Kopieren einiges durcheinander gebracht! Besser:
Sub Umformung(b, i, j)
a = Worksheets("Wertetabelle_Stützstellen").Cells(i, j).Value
b = Trim(Str(a))
If a > 0 And a -1 And a 0 And a -1 And a 0 then ZeilenInhalt=Left(ZeilenInhalt,a-1)+"."+mid(ZeilenInhalt,a+1)
ZeilenInhalt2 = Trim(Str(Worksheets("Wertetabelle_Stützstellen").Cells(i, 2).Value))
a=InStr(ZeilenInhalt2,",")
if a<>0 then ZeilenInhalt2=Left(ZeilenInhalt2,a-1)+"."+mid(ZeilenInhalt2,a+1)
ZeilenInhalt=ZeilenInhalt+ZeilenInhalt2
...
Viel Erfolg.
Holger
Chris schrieb am 11.12.2007 16:03:36:
Hallo, ich habe folgendes VBA-Modul geschrieben, das mit einem Command-Button gestartet wird:
Es werden die Werte aus einer Exeltabelle (Zellen A und B) ausgelsen und in eine Textadatei mit Namen Messung.txt gespeichert.
Mein Problem besteht nun darin, dass die Werte, die z.B. 7,3 lauten in der Textdatei als 7.1 gespeichert werden müssten, d.h. sämtliche Kommas müssten durch einen Punkt ersetzt werden. Kann mir jemand dabei helfen? Wäre echt super!
Public Function MessungSpeichern(FileSavePath As Variant) As Variant
Dim ZeilenInhalt As String
Dim i, MZAnz As Long
MZAnz = MaxZAnzahl("Wertetabelle_Stützstellen") - 1
Open FileSavePath For Output As #1 'Datei im Schreibzugriff öffnen
For i = 2 To MZAnz
ZeilenInhalt = ""
ZeilenInhalt = CStr(Worksheets("Wertetabelle_Stützstellen").Cells(i, 1).Value)
ZeilenInhalt = ZeilenInhalt & " " & CStr(Worksheets("Wertetabelle_Stützstellen").Cells(i, 2).Value)
Print #1, ZeilenInhalt 'Text in Datei schreiben
Next i
Close #1 'Datei schließen
End Function
'Maximale Zeilenanzahl der Messwerte ermitteln
Public Function MaxZAnzahl(BlattName As String) As Integer
MaxZAnzahl = 1
Do While (Worksheets(BlattName).Cells(MaxZAnzahl, 1) <> "")
MaxZAnzahl = MaxZAnzahl + 1
Loop
End Function
Vielen Dank schon einmal von Chris
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.12.2007 16:03:36 |
Chris |
|
|
|
12.12.2007 11:35:06 |
Holger |
|
|
|
12.12.2007 19:38:14 |
Chris |
|
|
|
13.12.2007 13:11:10 |
Holger |
|
|
Aw-Korrektur: Komma durch Punkt in Excel ersetzen |
13.12.2007 14:33:31 |
Holger |
|
|
|
12.12.2007 13:21:56 |
Sensewell |
|
|