Funtkion "Säubern" als VBA Code

Forumthread: Funtkion "Säubern" als VBA Code

25.05.2003 14:35:19

WalterK

Wer weiß wie die Tabellenblattfunktion "Säubern" als VBA-Code formuliert wird.
Übrigens- WEiß jemand vielleicht sogar eine Liste der Tabellenblatfunktionen und Ihrer Übersetzung in VBA Code?

Gruß und Dank
WalterK

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Funtkion "Säubern" als VBA Code

25.05.2003 15:17:11

Klaus Schubert

Re: Funtkion "Säubern" als VBA Code

25.05.2003 15:17:11

Klaus Schubert

Application.WorksheetFunction.Clean(Dein Text)

Eine Liste findest du, indem du im VBA-Modus, also Alt+F11 (nicht im Tabellenblatt-Modus) in der Hilfe nach Tabellenfunktionen suchst. Dort bekommst du mehrere Treffer zu deinem Problem, unter anderem
"Liste der in Visual Basic verfügbaren Tabellenfunktionen".

Gruß Klaus

Infobox / Tutorial

VBA-Code für die Funktion "Säubern" in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um die Excel-Funktion "Säubern" in VBA zu verwenden, kannst Du folgenden VBA-Code nutzen:

Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du im Menü auf Einfügen > Modul klickst.

Kopiere den folgenden Code in das Modul:

Sub CleanText()
   Dim cleanedText As String
   cleanedText = Application.WorksheetFunction.Clean("Dein Text")
   MsgBox cleanedText
End Sub

Ersetze "Dein Text" durch den Text, den Du säubern möchtest.
Schließe den VBA-Editor und führe das Makro aus, um den gesäuberten Text anzuzeigen.

Häufige Fehler und Lösungen

Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt."
- Lösung: Stelle sicher, dass Du die Funktion in einem gültigen VBA-Modul ausführst und dass der Text, den Du säubern möchtest, korrekt angegeben ist.
Fehler: "Typen unverträglich."
- Lösung: Überprüfe, ob der übergebene Text tatsächlich als String formatiert ist. Verwende gegebenenfalls CStr() zur Konvertierung.

Alternative Methoden

Falls Du die "Säubern"-Funktion nicht in VBA verwenden möchtest, kannst Du auch die integrierte Excel-Funktion direkt in einer Zelle verwenden:

Gebe in eine Zelle die folgende Formel ein:
```
=CLEAN(A1)
```
Ersetze A1 durch die Zelle, die den zu säubernden Text enthält.
Diese Methode funktioniert in allen Excel-Versionen und benötigt kein VBA.

Praktische Beispiele

Angenommen, Du hast in Zelle A1 den Text "Beispieltext " (mit Leerzeichen).

In Excel:
```
=CLEAN(A1)
```
entfernt alle nicht druckbaren Zeichen.
In VBA: Der folgende VBA-Code säubert den Text "Beispieltext " und zeigt ihn in einer Message-Box an:
```
Sub ExampleClean()
   MsgBox Application.WorksheetFunction.Clean("Beispieltext  ")
End Sub
```

Tipps für Profis

Nutze die Trim-Funktion in Kombination mit Clean, um auch überflüssige Leerzeichen zu entfernen. Beispiel:
```
cleanedText = Trim(Application.WorksheetFunction.Clean("Dein Text"))
```
Wenn Du oft mit Textmanipulationen arbeitest, erstelle eine Sammlung von nützlichen VBA-Funktionen, die Dir helfen, häufige Aufgaben schneller zu erledigen.

FAQ: Häufige Fragen

1. Was macht die Funktion "Säubern"? Die Funktion "Säubern" entfernt nicht druckbare Zeichen aus einem Textstring, was nützlich ist, um Daten zu bereinigen.

2. Wo finde ich eine Liste der VBA-Funktionen? Du kannst im VBA-Editor (drücke Alt + F11) die Hilfe aufrufen und nach "Tabellenfunktionen" suchen, um eine Liste der verfügbaren Funktionen zu finden.

Beliebteste Forumthreads (12 Monate)