Komma und Punkt vertauschen

Forumthread: Komma und Punkt vertauschen

03.07.2014 12:28:09

ines

Hallo,
ich habe noch ein anderes Problem. Ich möchte diverse csv Dateien einlesen und anschließend den Befehl text in Spalten machen. Nun ist mir aufgefallen, dass wenn ich bei den Einstellungen am Rechner (Systemsteuerung, Region und Sprache)das Komma als Komma lasse, macht er mir den Text nicht richtig in Spalten. Ändere ich das Komma auf Punkt, dann geht es. Kann ich das in meinen Code irgendwie umgehen?
Wenn ich die Ländereinstellung auf Englisch setzte liest er mir die csv Dateien gleich in Spalten ein...
Hier mein Code:

Sub Schaltfläche1_Klicken()
'CSV_Import()
Dim dateien, i
Dim owkb As Workbook
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), Local:=True
Set owkb = ActiveWorkbook
With ThisWorkbook
ActiveSheet.UsedRange.Copy
.Sheets.Add after:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = owkb.Name
.Sheets(owkb.Name).Range("A1").PasteSpecial
End With
Application.CutCopyMode = False
owkb.Close False
Next i
End If
End Sub

Sub Schaltfläche2_Klicken()
'Text in Spalten
For i = ActiveWorkbook.Sheets.Count To 1 Step -1
If Sheets(i).Name  "Menü" Then
Sheets(i).Activate
Range("a:a").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(  _
_
6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)) _
_
, _
TrailingMinusNumbers:=True
End If
Next i
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Komma und Punkt vertauschen

03.07.2014 12:52:04

Michael

AW: Komma und Punkt vertauschen

03.07.2014 12:52:04

Michael

Hallo Ines,
ich hab mal ein paar Dezimalzahlen eingelesen und die Trennung mit dem Makrorekorder aufgezeichnet:

Sub Werte_Teilen()
Range("B2:B21").Select
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End Sub

Bei "Text in Spalten" klickst Du erst auf "getrennt" und suchst Dir dann ein geeignetes Trennzeichen aus, in dem Fall eben nicht das Komma (bei Dir: comma:=true), sondern das Leerzeichen (space:=true).
Das setzt natürlich voraus, daß zwischen Deine Werten Leerzeichen stehen.
Schöne Grüße
Michael

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel Kommas und Punkte zu vertauschen, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:

Sub KommaDurchPunktErsetzen()
    Dim Zelle As Range
    For Each Zelle In Selection
        If Not IsEmpty(Zelle) Then
            Zelle.Value = Replace(Zelle.Value, ",", ".")
        End If
    Next Zelle
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Wähle die Zellen aus, in denen Du die Kommas durch Punkte ersetzen möchtest.
Drücke ALT + F8, wähle KommaDurchPunktErsetzen aus und klicke auf Ausführen.

Mit diesem Code kannst Du einfach in einem Bereich von Zellen alle Kommas durch Punkte ersetzen.

Häufige Fehler und Lösungen

Fehler 1: Das Makro funktioniert nicht.

Lösung: Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.

Fehler 2: Punkte werden nicht ersetzt.

Lösung: Überprüfe, ob Deine Zellen tatsächlich Kommas enthalten. Manchmal sind die Werte als Text formatiert. Verwende die Funktion Text in Spalten, um die Formatierung zu korrigieren.

Alternative Methoden

Eine weitere Möglichkeit, Kommas und Punkte in Excel zu vertauschen, ist die Verwendung der Suchen und Ersetzen-Funktion:

Markiere den Bereich, in dem Du die Ersetzung vornehmen möchtest.
Drücke STRG + H um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
Gib im Feld „Suchen nach“ ein , und im Feld „Ersetzen durch“ ein . ein.
Klicke auf „Alle ersetzen“.

Du kannst auch die umgekehrte Reihenfolge verwenden, um Punkte durch Kommas zu ersetzen.

Praktische Beispiele

Angenommen, Du hast eine CSV-Datei importiert, in der Dezimalzahlen mit Punkten statt mit Kommas geschrieben sind. Um diese in Excel korrekt darzustellen, kannst Du die oben beschriebenen Methoden verwenden.

Ein Beispiel für ein Makro, das Punkte durch Kommas ersetzt, könnte so aussehen:

Sub PunktDurchKommaErsetzen()
    Dim Zelle As Range
    For Each Zelle In Selection
        If Not IsEmpty(Zelle) Then
            Zelle.Value = Replace(Zelle.Value, ".", ",")
        End If
    Next Zelle
End Sub

Du kannst dieses Makro ebenfalls über ALT + F8 ausführen.

Tipps für Profis

CSV-Dateien importieren: Wenn Du eine CSV-Datei importierst und sicherstellen möchtest, dass Punkte durch Kommas ersetzt werden, kannst Du während des Imports die Regionseinstellungen anpassen oder ein Makro verwenden, um den Import zu automatisieren.
Automatisierung: Wenn Du häufig mit solchen Ersetzungen arbeitest, speichere Deine Makros in einer personalisierten Excel-Vorlage, um sie schnell zu verwenden.
Fehlervermeidung: Teste Deine Makros an einer kleinen Datenmenge, bevor Du sie auf große Datensätze anwendest.

FAQ: Häufige Fragen

1. Wie kann ich in Excel Kommas durch Punkte ersetzen? Du kannst ein VBA-Makro verwenden, um alle Kommas in den ausgewählten Zellen durch Punkte zu ersetzen.

2. Was mache ich, wenn Excel die Punkte nicht richtig interpretiert? Stelle sicher, dass die Ländereinstellungen in Excel korrekt sind. Du kannst auch Text in Spalten verwenden, um die Werte zu formatieren.

3. Gibt es eine einfache Möglichkeit, mehrere Dateien gleichzeitig zu bearbeiten? Ja, Du kannst ein VBA-Makro schreiben, das alle Excel-Dateien in einem Ordner durchläuft und die Ersetzungen für jede Datei vornimmt.

4. Wie kann ich sicherstellen, dass ich nichts überschreibe? Erstelle immer eine Sicherungskopie Deiner Daten, bevor Du Massenänderungen vornimmst.

Beliebteste Forumthreads (12 Monate)