Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Punkt zu Komma oder Komma zu Punkt

Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:10:44
Maximilian
Hallo Zusammen,
Ich versuche bei meinen Daten die Punkte zu Kommas zu machen oder anderst herum.
Dafür habe ich auch schon einen Code entwickelt, der aber einfach nicht funktioniert.
Wäre schön, wenn mir jemand helfen könnte. 

Sub PunktKomma()
Dim zeile As Variant, Bereich
zeile = Range("B65000").End(xlUp).Row
Bereich = Range(Cells(1, 2), Cells(zeile, 2))
If Bereich.Value = "." Then
Bereich = Replace(Bereich, ".", ",")
Else
Bereich = Replace(Bereich, ",", ".")
End If
End Sub

Gruß Maximilian

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:24:51
JACKD
Hallo Maximilian
Ohne es jetzt zu testen, aber dein bereich kann ja nicht "." annehmen (es sei denn es ist irgendwann mal ein einzelner Punkt in der Zelle)
Daher würde ich es über instr() lösen 
Sub PunktKomma()
Dim zeile As Variant, Bereich
zeile = Range("B65000").End(xlUp).Row
Bereich = Range(Cells(1, 2), Cells(zeile, 2))
If InStr(Bereich.Value, ".") Then 'Value kann hier glaub auch weg, da die Standarteigenschaft  _
Value ist
Bereich = Replace(Bereich, ".", ",")
Else
Bereich = Replace(Bereich, ",", ".")
End If
End Sub
Grüße

Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:28:58
Maximilian
Hallo JACKD
Danke für die Schnelle Hilfe aber der Fehler is immernoch derselbe...
Fehlertyp 424 Objekt erforderlich
Gibt es noch eine andere Möglichkeit ?
Gruß

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:32:16
JACKD
Kannst mal sehen, was passiert wenn man nicht hinschaut =)
Sub PunktKomma()
Dim zeile As Variant, Bereich
zeile = Range("B65000").End(xlUp).Row
For Each Bereich In Range(Cells(1, 2), Cells(zeile, 2))
If InStr(Bereich.Value, ".") Then
Bereich = Replace(Bereich, ".", ",")
Else
Bereich = Replace(Bereich, ",", ".")
End If
Next
End Sub

Da fehlt auch die SChleife, die die Bereiche abklappert =)
Grüße

Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:38:38
Maximilian
Danke für deine Hilfe jetzt zeigt er mir keinen Fehler mehr an :) jedoch wandelt er das Komma oder den Punkt trotzdem nicht um.

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:54:47
Maximilian
Also irgendetwas stimmt nicht..
Ich habe jetzt ein Paar Sachen ausprobiert aber nie wird das Komma in einen Punkt umgewandelt oder anderst herum, obwohl mir kein Fehler angezeigt wird...
Hat Jemand eine Idee wieso und was man machen kann, damit es endlich das macht, was es soll?
Gruß Maximilian

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 09:55:57
JACKD
So? 
Sub PunktKomma()
Dim zeile As Variant, Bereich
zeile = Range("B65000").End(xlUp).Row
For Each Bereich In Range(Cells(1, 2), Cells(zeile, 2))
If InStr(Bereich.Value, ".") Then
Bereich.Replace What:=".", Replacement:=","
Else
Bereich.Replace What:=",", Replacement:="."
End If
Next
End Sub

Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:04:56
Maximilian
Nein leider nicht es rechnet ewig aber es passiert letztendlich nichts.. :(

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:09:49
Maximilian
hier ist noch ein anderer Code der funktioniert, aber nur immer für eine Zelle und ich schaff es nicht diesen Code auf mehrere Zellen zu beziehen und ,dass sowohl das Komma als auch der Punkt umgewandelt werden. 
Sub PunktKomma()
ActiveWorkbook.Sheets(1).Cells(1, 2).NumberFormat = "@"
ActiveWorkbook.Sheets(1).Cells(1, 2) = Replace(ActiveWorkbook.Sheets(1).Cells(1, 2).Value, ",",  _
".")
End Sub

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:12:59
hary
Moin
Das war auch mein Gedanke das auch Zahlen vorkommen.
Probier mal. 
Dim zeile As Long
Dim zelle As Range
zeile = Range("B65000").End(xlUp).Row
For Each zelle In Range(Cells(1, 2), Cells(zeile, 2))
zelle.NumberFormat = "@"
If InStr(1, zelle, ".") Then
zelle = Replace(zelle, ".", ",")
Else
zelle = Replace(zelle, ",", ".")
End If
Next

gruss hary

Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:22:10
Maximilian
Hallo hary
Dein Code ist fast schon richtig das einzige Problem ist jetzt noch, dass leider die werte alle gerundet werden...
ich weiß auch nicht wieso..
aber Danke
Gruß Maximilian

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:28:47
hary
Moin
Da hilft nur eine Bsp.-Mappe.
gruss hary

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:41:22
Maximilian
Tut mir leid die Datei ist zu groß.
Aber ich glaube das Problem liegt bei dem, was ich im vorigen Beitrag beschrieben hab, nämlich, dass das Komma nicht als Komma gesehen wird.
Beispiel
2,07 E07
2075829647 Istwert
2,075829647 Sollwert
Gruß

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 10:46:12
JACKD
Dann kopier einen Teil deiner Mappe in eine Neue Mappe
10-15 Zahlen reichen idR.
Grüße

Anzeige
AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 11:11:43
hary
Moin
Du hast das Format auf wissenschaftlich. Der eigentliche Wert hat kein Komma.
gruss hary

AW: Punkt zu Komma oder Komma zu Punkt
22.08.2013 11:13:28
Maximilian
aso ok ja dann lassen wirs mal so
Danke für eure großzügige Hilfe
Gruß Maximilian

Bei mir gehts
22.08.2013 10:19:08
JACKD
..
Grüße

AW: Bei mir gehts
22.08.2013 10:27:25
Maximilian
Ich glaub ich weiß jetzt warum bei mir das so komisch ist..
meine Zahlen sind z.B. als 2,07 E07 dargestellt.
Jedoch wenn ich auf die Zelle klicke ist gar kein Komma vorhanden sondern er sieht das als ganze Zahl ..
Wie schaff ich es nun , dass er das Komma auch wirklich als Komma ansieht
Gruß
Anzeige

306 Forumthreads zu ähnlichen Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
Komma anstatt Punkt
Harald

Hallo
ich bekomme von einer Anwendung Zahlen die aber anstelle des bei uns üblichen Kommas einen Punkt haben. Ich habe mit folgendem Code versucht den Punkt mit einem Komma auszutauschen.
'Punkt zu Komma umwandeln
spalte = 4
ende = Cells(Rows.Count, spalte).End(xlUp).Row
Fo...
13.12.2008 16:42:57
Thread-ID: 1032657
7 Beiträge
internetseite Punkt ist ein komma
Michael

Hallo!
Ich versuche die internetseite http://www.ls-d.de/Kursabfragen.15.0.html die Daten auszuwerten. Jedoch gibt es nach der Aktualisierung immer wieder den Punkt aus. 23.203 damit kann man keine Rechenoperation ausführen. Gibt es eine Möglichkeit die Werte mit einem Komma darzustellen au...
28.01.2009 17:27:33
Thread-ID: 1044643
4 Beiträge
Anzeige
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Nachname, Vorname umwandeln in Vorname.Nachname
Stefan

Hallo
hat jemand einen Tip wie ich aus einem Text in a1
Nachname, Vorname
in Zelle B1 Vorname.Nachname
via Formel "zaubern" kann?
Freu mich sehr auf einen Tip
Gruss Stefan
07.04.2009 20:34:22
Thread-ID: 1067520
5 Beiträge
Sekunden umwandeln in..
Jan

Hallo zusammen
Ich habe eine grosse Zahl, welche Sekunden darstellt, z.B. 540859, welches nach meiner Rechnung 150 h 14 m 19 s sein müssten.
Mit welcher Formel kann ich eine wie oben genannte Zahl in das format xxxh xxm xxs umwandeln?
Vielen Dank für eure Hilfe!
Gruss Jan
26.05.2009 13:24:51
Thread-ID: 1077384
8 Beiträge
CSV selbst erstellt - Komma statt Punkt
Philipp

Hallo an alle!
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komm...
29.07.2009 11:08:31
Thread-ID: 1092173
7 Beiträge
Punkt in xlText-file per vba durch Komma ersetzen
Bernd


Liebe Excel-Gemeinde,
mit dem nachstehenden Code wird ein Blatt mit xls-Format in ein Blatt txt-Format konvertiert.
With wbZiel
Application.DisplayAlerts = False
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt<...
08.01.2010 14:27:26
Thread-ID: 1128272
7 Beiträge

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
4
4
6
3
2
3
4
7
6
6
3
5
2
3
3
5
4
8
2
2
4
2
5
1
4