Punkt durch Komma ersetzen

Forumthread: Punkt durch Komma ersetzen

22.09.2006 18:12:48

reiner

Hallo Leute,
in eine InputBox trage ich Suchbegriffe ein nach denen in der Tabelle gesucht wird - die Ergebnisse erscheinen danach in einer ListBox auf einer UF. Es kann u.a. nach Geldbeträgen gesucht werden.
Diese Geldbeträge werden in der Tabelle mit einem ,-Zeichen zwischen den Euro- und Centbeträgen getrennt.
Trage ich den Betrag in die InputBox mit einem ,- Zeichen ein, bleibt die Suche ergebnislos; trage ich hingegen den Geldbetrag mit einem .-Zeichen ein, werden alle Beträge die dieser Ziffernfolge entsprechen in die ListBox übertragen.
Wie kann ich erreichen dass ich den zu suchenden Geldbetrag mit dem gleichen Trennzeichen wie in der Tabelle (,) eintragen kann?
Der als Suchbegriff eingetragene Geldbetrag wird einer Variablen mit dem Namen SUCHBEGRIFF übergeben. Ist es möglich sein, das ,- Zeichen in der Variablen durch das .-Zeichen z.B. mit dem Befehl REPLACE zu ersetzen?
Wie muss der Programmcode hierfür aussehen?
mfg
reiner

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Punkt durch Komma ersetzen

22.09.2006 19:04:00

Christoph
AW: Punkt durch Komma ersetzen

23.09.2006 00:18:59

reiner

AW: Punkt durch Komma ersetzen

22.09.2006 19:04:00

Christoph

Hallo,
mit Replace wäre das möglich. Syntax wie folgt:

variable = Replace(variable, ".", ",")

Gruß Christoph

AW: Punkt durch Komma ersetzen

23.09.2006 00:18:59

reiner

hallo,
funktioniert einwandfrei, danke
mfg
reiner

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel VBA ein Komma durch einen Punkt oder umgekehrt zu ersetzen, kannst du die Funktion Replace verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne den Visual Basic for Applications (VBA) Editor in Excel, indem du ALT + F11 drückst.
Erstelle ein neues Modul: Rechtsklick auf "VBAProject (deineDatei.xlsx)" > Einfügen > Modul.

Füge den folgenden Code in das Modul ein:

Sub ErsetzeKommaUndPunkt()
   Dim suchbegriff As String
   suchbegriff = InputBox("Gib den Betrag ein (z.B. 10,50): ")

   ' Komma durch Punkt ersetzen
   suchbegriff = Replace(suchbegriff, ",", ".")

   MsgBox "Der Betrag mit Punkt: " & suchbegriff
End Sub

Schließe den Editor und führe das Makro aus, um zu sehen, ob es funktioniert.

Wenn du den Geldbetrag in der InputBox mit einem Punkt eingibst, wird dieser korrekt verarbeitet.

Häufige Fehler und Lösungen

Problem: Die InputBox akzeptiert kein Komma.
- Lösung: Stelle sicher, dass du das Komma im VBA-Code mit Replace durch einen Punkt ersetzt, wie im obigen Beispiel gezeigt.
Problem: Der Betrag wird nicht richtig angezeigt.
- Lösung: Überprüfe, ob du die richtige Syntax für Replace verwendest. Die korrekte Syntax ist:
```
variable = Replace(variable, ".", ",")
```

Alternative Methoden

Excel-Funktion: Du kannst auch Excel-Formeln verwenden, um Kommas und Punkte in Zellen zu ersetzen:
```
=WECHSELN(A1; ","; ".")
```
Diese Formel ersetzt alle Kommas in der Zelle A1 durch Punkte.
Suchen und Ersetzen: Du kannst auch die Suchen-und-Ersetzen-Funktion in Excel verwenden:
- Drücke Strg + H.
- Gib im Feld "Suchen nach" das Zeichen ein, das du ersetzen möchtest (z. B. ,).
- Gib im Feld "Ersetzen durch" das neue Zeichen ein (z. B. .).
- Klicke auf "Alle ersetzen".

Praktische Beispiele

Beispiel 1: Angenommen, du hast in Zelle A1 den Betrag 10,50. Du kannst die Formel =WECHSELN(A1; ","; ".") verwenden, um das Ergebnis 10.50 zu erhalten.
Beispiel 2: Wenn du eine Liste von Beträgen hast und alle Kommas durch Punkte ersetzen möchtest, kannst du dies schnell mit der Suchen-und-Ersetzen-Funktion tun.

Tipps für Profis

Batch-Verarbeitung: Wenn du viele Beträge hast, die du umwandeln möchtest, erstelle ein Makro, das durch alle Zellen in einem Bereich iteriert und die Ersetzung vornimmt.
Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um sicherzustellen, dass dein Skript auch dann funktioniert, wenn unerwartete Eingaben gemacht werden.
Datenformatierung: Achte darauf, dass die Zellen das richtige Zahlenformat haben, um sicherzustellen, dass die Beträge korrekt angezeigt werden.

FAQ: Häufige Fragen

1. Frage
Wie kann ich in Excel alle Punkte durch Kommas ersetzen?
Antwort
Du kannst die Funktion Replace im VBA verwenden:

variable = Replace(variable, ".", ",")

2. Frage
Ist es möglich, mehrere Ersetzungen in einem Schritt durchzuführen?
Antwort
Ja, du kannst die Replace-Funktion mehrfach nacheinander verwenden, um verschiedene Zeichen zu ersetzen.

Beliebteste Forumthreads (12 Monate)

Punkt durch Komma ersetzen

Forumthread: Punkt durch Komma ersetzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen