Office: (Office 2010) Vorzeichen von Zahlen in Excel-Listen umdrehen mit VBA?

Ein herzliches Hallo zusammen,

ich müsste, wie es der Titel schon verrät bei Daten die Vorzeichen ändern. Das Kann man ja folgendermaßen machen:

1. Tragen Sie in eine leere Zelle die Zahl -1 ein.
2. Markieren Sie die Zelle mit dieser Zahl und drücken Sie die Tastenkombination STRG C.
3. Markieren Sie die Zellen, die Sie umdrehen möchten, also beispielsweise den Zellbereich B2:B11.
4. Drücken Sie die rechte Maustaste und wählen Sie die Funktion INHALTE EINFÜGEN.
5. Schalten Sie die Optionen WERTE und MULTIPLIZIEREN ein.
6. Klicken Sie auf die Schaltfläche OK.

Dies möchte ich jetzt in ein Makro basteln.
Ich hatte gedacht 1. die -1 in eine Zelle im Nirvana (Zeile ZZ1) schreiben zu lassen, zu kopieren und dann müsste sich ein Fenster öffnen der auffordert den Zellbereich auszuwählen und danach weiter macht. Da stoße ich aber an meine Grenzen.
Kann mir jemand helfen? Oder geht das irgendwie ganz anders?


Viele Grüße Katja

 

Hi Katja,

das kannst du mit folgendem Makro lösen:

Code:

Sub Umkehren()
    Dim rngBereich As Range
    Dim rngZelle As Range
    Set rngBereich = Application.InputBox("Bitte den Bereich markieren", "Bereichsauswahl", , , , , , 8)
    If Not rngBereich Is Nothing Then
        For Each rngZelle In rngBereich
            If IsNumeric(rngZelle) And rngZelle <> "" Then rngZelle = rngZelle * -1
        Next rngZelle
    End If
End Sub

Bis später,
Karin

 

Ich hatte noch gar nicht Danke gesagt.
DANKE!