Alle Minuszeichen an den Anfang der Zellen setzen

Beim Konvertieren von Datenmaterial aus Großrechnern oder anderen Anwendungen kann es durchaus geschehen, daß sich nicht alle Minuszeichen dort befinden, wo sie sein sollten - nämlich vor den Zahlen. Für die weiteren Berechnungen muß die Position des Minuszeichens korrigiert werden, denn wenn in Excel ein Minus hinter der Zahl erscheint, interpretiert das Programm den Wert nicht als eine negative Zahl, sondern als Text. Mit dem unten angeführten Makro können Sie auf Knopfdruck alle Minuszeichen, die hinter der Zahl stehen, nach vorne an die richtige Position holen. Sie müssen lediglich den Zellbereich markieren, der die falsch konvertierten Zahlen enthält, und das Makro starten. Das Makro überprüft alle Zellen innerhalb der Markierung und ersetzt gegebenenfalls das falsche Minuszeichen durch das korrekte vor der Zahl.
Bevor Sie das Makro erzeugen, sollten Sie dafür sorgen, daß die Makrosprache richtig
eingestellt ist. Das erledigen Sie in Excel über »Extras | Optionen | Modul Allgemein«.
Hier stellen Sie unter »Sprache | Land« die Sprache »Englisch | USA« ein. Mit einem
Klick auf die Schaltfläche »Neu« erstellen Sie eine neue Datei mit diesen Spracheinstellungen. Für das Makro legen Sie mit »Einfügen | Makro | Visual Basic-Modul« ein neues Blatt mit der Bezeichnung »Modul1« in der Arbeitsmappe an. Geben Sie in diesem Blatt das Makrolisting ein und wechseln danach zum Tabellenblatt »Tabelle 1«.
Um das Makro zu testen, geben Sie hier einige Zahlen mit dem Minus vor der Zahl und einige mit dem Minus dahinter ein. Markieren Sie dann alle Werte - sowohl die korrekten
als auch die falschen - mit der Maus und wählen »Extras | Makro«. Ein Doppelklick auf den Eintrag mit dem Namen des neuen Makros startet das Makro, und alle falschen Minuszeichen werden an der korrekten Position plaziert.
Damit Sie das Makro komfortabler einsetzen können, lohnt es sich, eine Schaltfläche dafür einzurichten. Dafür klicken Sie eine beliebige Symbolleiste erst mit der rechten
Maustaste an und wählen dann »Anpassen«. Unter »Kategorien« klicken Sie auf »Benutzerdefiniert« und ziehen eine der vorgestellten Schaltflächen an die gewünschte Position in einer der Symbolleisten. Daraufhin erscheint das Fenster »Zuweisen«, in dem
Sie auf den Makronamen doppelklicken. Sie kehren danach zurück zum Fenster »Anpassen«, das Sie »Schließen«, um die neue Schaltfläche zu testen.
Makro-Listing zum Versetzen des Minuszeichens
Option Base 1
Dim Markierung As Variant
Dim i As Integer, j As Integer, k As Integer, _
AnzZeilen As Integer, AnzSpalten As Integer
Sub Minus()
Markierung = Selection
AnzZeilen = Selection.Rows.Count
AnzSpalten = Selection.Columns.Count
For i = 1 To AnzZeilen
For j = 1 To AnzSpalten
If Right(Markierung(i, j), 1) = "-" Then
Markierung(i, j) = Left(Markierung(i, j),Len(Markierung(i, j)) - 1) * -1
End If
Next j
Next i
Selection.FormulaArray = "=DatenKopieren()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Function DatenKopieren() As Variant
DatenKopieren = Markierung
End Function
Marianne Berger