Excel - Fehlersuche

 

Kommen Daten aus anderen EDV-Systemen oder werden via Copy & Paste in Excel eingefügt, können sich Leerzeichen einschleichen. Die Folge sind fehlerhafte Berechnungen oder Formeln wie Sverweis/Index arbeiten nicht korrekt.

 

Siehe auch Formeln -> Bereich auf Leerzeichen prüfen

 

 

Ein Sverweis arbeitet korrekt

 

 

Aber es kann auch sowas vorkommen. Obwohl auf den ersten Blick alles richtig aussieht...

 

 

 

 

Was ist passiert?

 

In dem Zellwert A2 haben sich Leerzeichen eingeschlichen und für Excel ist dies nun ein anderer Wert als A1002

 

Wir können diese sehen, wenn wir in die betreffende Zelle klicken und anschließend den Cursor in die Bearbeitungsleiste setzen. Der Cursor blinkt nun nicht direkt hinter dem Wert sondern hinter einem oder mehreren Leerzeichen.

 

 

 

 

 

Wie können wir diese los werden?

 

Möglichkeit 1)

 

Sehen unsere Werte aus wie in diesem Beispiel, dann entsprechenen Bereich markieren

Strg + H ( alternativ: Menü Bearbeiten - Ersetzen ).

Suche nach:        Ein Leerzeichen eingeben

Ersetzen durch:   Dort nichts eingeben

 

Anmerkung: Dieses Dialogfenster arbeitet nur korrekt, wenn mindestens 2 Zellen markiert sind.

 

 

 

 

 

 

 

Sehen unsere Daten jedoch z.B so aus: A1002 0001 - dann würde auch das gewünschte Leerzeichen in der Mitte ersetzt, und wir müssen einen anderen Weg gehen.

 

 

Möglichkeit 2)

 

Per Formel. Die Funktion = Glätten() entfernt Leerzeichen vor- hinter, und zwischen dem ( bis auf eines )Text.

 

 

 

 

Um die Formelergebnisse in Festwerte zu wandeln:

1.) Den Bereich mit den Formelergebnissen kopieren

2.) Rechte Maustaste und aus Kontexmenü "Inhalte einfügen..." wählen

 

 

 

 

 

3.) In das sich öffnende Fenster ein Häkchen bei "Werte"

 

 

 

 

 

Möglichkeit 3)

 

 

Mit einem kleinen Makro. Den Bereich zuvor markieren und u.g. Code starten.

 

Public Sub Leerzeichen_entfernen()

'Code für ein allgemeines Modul

Dim rngZelle As Range

 

For Each rngZelle In Selection

  rngZelle.Value = LTrim(RTrim(rngZelle.Value))

Next

End Sub

 

 

 

Leerzeichen bleiben erhalten

 

Sollten die bisher genannten Maßnahmen nicht zum Erfolg führen, und die Leerzeichen hartnäckig erhalten bleiben, dann handelt es sich bei den Leerzeichen um Zeichen vom Ascii-Zeichensatz Nr160. Das zuvor behandelte Leerzeichen ist gleichzusetzen mit der Eingabe eines Leerschritts über die Spacetaste an der Tastatur. Dabei wird ein Ascii-Zeichen Nr32 erzeugt.

 

In diesem Fall sollte folgender Code helfen. Bitte den gewünschten Bereich wieder zuvor markieren und den Code starten.

 

Public Sub Leerzeichen_weg()

'Code für ein allgemeines Modul

Dim rngZelle As Range

For Each rngZelle In Selection

rngZelle.Value = Replace(rngZelle.Value, Chr(160), "")

Next

End Sub