Kann man die Formel =glätten() mit VBA umsetzen? Und wie würde das aussehen, wenn ich die Spalte B "glätten" lassen würde?
mfg
Thorsten
Sub Glatt()
Dim i As Integer
i = 1
Do While Cells(i,2) <> ""
Cells(i,2) = Trim(Cells(i,2).Value)
i = i + 1
Loop
End Sub
Um die Funktion =glätten() in Excel mit VBA umzusetzen, befolge diese Schritte:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:
Sub Glatt()
Dim i As Integer
i = 1
Do While Cells(i, 2) <> ""
Cells(i, 2) = Trim(Cells(i, 2).Value)
i = i + 1
Loop
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle Glatt aus der Liste und klicke auf Ausführen, um die Funktion anzuwenden.
Mit diesem VBA-Skript kannst Du die Inhalte in Spalte B glätten, indem überflüssige Leerzeichen entfernt werden. Dies ist eine effektive Methode, um Daten in Excel zu bereinigen.
Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definieren."
Fehler: "Das Skript läuft nicht."
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die integrierte Funktion TRIM() in Excel nutzen. Diese Funktion entfernt ebenfalls überflüssige Leerzeichen:
=TRIM(B1) ein (ersetze B1 durch die Zelle, die Du bereinigen möchtest).Diese Methode ist einfach und benötigt keine Programmierkenntnisse.
Angenommen, Du hast in Spalte B folgende Daten:
| B |
|---|
| Hallo |
| Welt |
| Excel |
Wenn Du das VBA-Skript ausführst oder die TRIM()-Funktion anwendest, wird das Ergebnis in Spalte B:
| B |
|---|
| Hallo |
| Welt |
| Excel |
Beide Methoden helfen, die Daten in Excel zu glätten und die Lesbarkeit zu verbessern.
TRIM()-Funktion direkt in Deine Datenabfragen zu integrieren, um sicherzustellen, dass Deine Daten immer sauber sind, bevor Du damit arbeitest.1. Was ist der Unterschied zwischen TRIM() und =glätten()?
Die Funktion TRIM() ist die Excel-Variante, die überflüssige Leerzeichen entfernt. In VBA entspricht die Funktion Trim() dieser Excel-Funktion.
2. Kann ich das Skript für andere Spalten anpassen?
Ja, ändere einfach den Wert in Cells(i, 2) auf die gewünschte Spalte, z.B. Cells(i, 3) für Spalte C.