Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Funktion "wechseln / substitute" in VBA ?

Funktion "wechseln / substitute" in VBA ?
Dieter
Hallo Kollegen,
wie lautet der VBA-Code für die Funktion WECHSELN bzw. SUBSTITUTE
(ich möchte aus einem String die Zeichen ' und ! rausnehmen)
vielen Dank für euren Denkanstoss
Gruß Dieter
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Funktion "wechseln / substitute" in VBA ?
Bert
Das geht auch ohne Worksheetfunction:
Option Explicit

Sub ersetzen()
Dim Text As String
Text = "Schönes Wetter heute!"
MsgBox Replace(Text, "Schön", "Blöd")
End Sub


Sub ersetzen2()
Dim Text As String
Text = "Schönes Wetter heute!"
MsgBox Application.Substitute(Text, "Schön", "Blöd")
End Sub

Bert
Anzeige
vielen Dank oT
Dieter
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA-Funktionen WECHSELN und SUBSTITUTE in Excel


Schritt-für-Schritt-Anleitung

Um die Funktion WECHSELN bzw. SUBSTITUTE in VBA zu nutzen, kannst Du den folgenden VBA-Code verwenden. Dieser Code entfernt bestimmte Zeichen aus einem String:

Sub ersetzen()
    Dim Text As String
    Text = "Schönes Wetter heute!"
    MsgBox Replace(Text, "Schön", "Blöd")
End Sub

Alternativ kannst Du auch die Application.Substitute Methode verwenden:

Sub ersetzen2()
    Dim Text As String
    Text = "Schönes Wetter heute!"
    MsgBox Application.Substitute(Text, "Schön", "Blöd")
End Sub

Beide Methoden sind effektiv, um Zeichen in einem String zu ersetzen. Du kannst sie auch anpassen, um mehrere Zeichen zu ersetzen.


Häufige Fehler und Lösungen

Fehler 1: "Typ nicht passend"
Lösung: Stelle sicher, dass die Variablen korrekt deklariert sind und der Datentyp übereinstimmt.

Fehler 2: "Objekt nicht gefunden"
Lösung: Überprüfe, ob Du die richtige Syntax für die Funktion verwendest und dass alle Bibliotheken korrekt referenziert sind.


Alternative Methoden

Neben der Verwendung von Replace und Application.Substitute gibt es auch die Möglichkeit, die Excel-Funktion direkt in einer Formel zu nutzen. So kannst Du in einer Zelle die Funktion wie folgt verwenden:

=SUBSTITUTE(A1, "Schön", "Blöd")

Diese Methode ist besonders nützlich, wenn Du in Excel arbeiten möchtest, ohne den VBA-Editor zu öffnen.


Praktische Beispiele

  1. Entfernen von mehreren Zeichen:
    Um mehrere Zeichen wie ' und ! aus einem String zu entfernen, kannst Du die Funktion mehrmals hintereinander aufrufen:
Sub mehrereZeichenEntfernen()
    Dim Text As String
    Text = "Hallo! Wie geht's?"
    Text = Replace(Text, "!", "")
    Text = Replace(Text, "'", "")
    MsgBox Text  ' Ergebnis: "Hallo Wie gehts?"
End Sub
  1. Excel vba windows username auslesen und in Zelle schreiben:
    Wenn Du den Windows-Benutzernamen in eine Zelle in Excel schreiben möchtest, kannst Du den folgenden Code verwenden:
Sub UsernameInZelle()
    Dim username As String
    username = Environ("USERNAME")
    Range("A1").Value = username
End Sub

Tipps für Profis

  • Nutze WorksheetFunction.Substitute, wenn Du in einer Formel arbeiten möchtest.
  • Wenn Du viele verschiedene Zeichen ersetzen musst, ziehe in Betracht, eine Schleife zu verwenden, um den Code zu optimieren.
  • Achte darauf, dass Du die Funktionen an die spezifischen Anforderungen Deines Projekts anpasst.

FAQ: Häufige Fragen

1. Kann ich die Funktion SUBSTITUTE in VBA verwenden?
Ja, Du kannst die Funktion SUBSTITUTE in VBA über Application.Substitute verwenden.

2. Was ist der Unterschied zwischen Replace und Substitute?
Replace ist eine VBA-Funktion, während Substitute eine Excel-Funktion ist. Beide erfüllen ähnliche Aufgaben, haben jedoch unterschiedliche Anwendungsbereiche.

3. Wie kann ich mehrere Zeichen gleichzeitig ersetzen?
Du kannst Replace oder Application.Substitute mehrmals in deinem Code verwenden oder eine Schleife implementieren, um mehrere Zeichen zu ersetzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige