Excel 7.0: 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