Office: (Office 2016) Vorzeichenwechsel ab Zeile 7 bis zur letzten Zeile mit Wert

Hallo zusammen,

ich habe das WWW und die verschiedensten Foren durchsucht und bin irgendwie nicht richtig fündig geworden.

Ich möchte gerne in der Spalte C ab Zeile 7 bis zur letzten Zeile mit Inhalt eine Vorzeichenumkehr erstellen. Diese soll aber erst nach einem Klick auf eine Schaltfläche erfolgen. Wie ich das Makro der Schaltfläche zuweise ist mir bekannt. Hier der Code, den ich mir erstellt habe, der aber leider immer den Laufzeitfehler '424' - Objekt erforderlich erzeugt:

Sub Vorzeichen()
Sheets("FiBu-Download").Select
If Target.Row > 7 And Target.Value <> "" Then
Cells(Target.Row, 3) = Cells(Target.Row, 3) * -1
End If

End Sub

Kann mir bitte jemand helfen?

Vielen Dank im Voraus!

VG
Steffi

 

Hallo Steffi,

"Target" geht nur bei Ereignissen (z.B. SelectionChange).
Ansonsten ist es "ActiveCell".

Aber willst du nur den Wert der aktiven Zelle ändern oder alle Zellen?
Nur die dritte Spalte oder sind mehrere Spalten mit Werten belegt?

Gruß,
Lutz

 

Hallo Lutz,
schon einmal vielen Dank für den Hinweis, bin mit VBA echt noch nicht so wirklich vertraut und stetig am Üben.

Ich möchte in der gesamten Spalte C (also ab Zeile 7 bis zur letzten Zeile in der ein Wert enthalten ist) das Vorzeichen ändern (als Formel wäre es kein Problem *-1). Nur als Formel soll es nicht sein, da es nicht immer benötigt wird. Halt nur beim Klick auf die Schaltfläche. In den Spalten A und B sind auch noch Werte (in Spalte A sind es Ziffern = Kontonummern und in Spalte B dann die entsprechende Kontenbeschriftung).

VG
Steffi

 

dann doch einfach so:

Code:

Sub Vorzeichen()

Dim intZeile As Integer

Sheets("FiBu-Download").Select
For intZeile = 7 To Cells(Rows.Count, 3).End(xlUp).Row
    Cells(intZeile, 3) = Cells(intZeile, 3) * -1
Next intZeile

End Sub

Gruß,
Lutz

 

Hi,

wieso machst du das nicht einfach händisch? In irgendeine Zelle schreibst du -1. Diese Zelle kopierst du (Strg-C), jetzt C7 markieren und Strg-Shift-"Pfeil runter" drücken. Das markiert die C7 bis zur letzten Zeile. Rechtsklick im markierten Bereich, "Inhalte einfügen..." , "Multiplizieren" anklicken, "OK", Fertig

 

@ Lutz: Super! Funktioniert so, wie ich es mir vorgestellt habe! :-) Vielen, vielen lieben Dank!

VG
Steffi

@HKindler: Weil händisch in diesem Fall leider keine Option ist.

 

Nun ja, erstens geht es auch händisch sehr schnell und zweitens kann man alles, was man händisch macht auch mit dem Makrorekorder aufzeichnen und (nach einer kleinen Überarbeitung) jederzeit wieder verwenden.

 

Guten Morgen HKindler,

ok, aber hier habe ich keine Idee, wie ich es manuell hätte aufzeichnen können, da es immer eine unterschiedliche Anzahl an Zeilen gibt und wenn es denn mal weniger Zeilen sind, sollen die leeren Zeilen halt auch leer bleiben. Dazu hatte ich für händisch dann leider einfach keine Lösung. Aber danke für den Tipp! Und ja, es stimmt einmalig geht es händisch sehr schnell, aber das war ja auch nicht das einzige, was mit der Tabelle "passieren" soll und wenn man es oft benötigt, dann ist es doch eine Arbeitserleichterung, wenn es nicht immer händisch gemacht werden muss. Für einmalig oder selten ist hier natürlich die händische Variante schnell genug.

VG
Steffi