Office: (Office 2007) Vorzeichen von Zahlen umkehren

earl-of-pain · 10. März 2007

Hallo,

kurze Frage. Ich möchte per VBA die Vorzeichen in einem bestimmten Bereich einer Tabelle umkehren. Also aus positiven Zahlen sollen negative werden und umgekehrt.
Stehe ein wenig auf dem Schlauch, wer hat eine Idee.
Danke schon mal.
Maik*dance

:)

myfake · 11. März 2007

Hallo Maik,

multipliziere doch alle Werte mit "-1". Damit kehrt sich das Vorzeichen dann auch um *Smilie

[Edit]
hier noch ein Bsp.-Code:
Code:

Sub VorzeichenDrehen()

Dim lngLR As Long
Dim i As Integer

lngLR = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

For i = 1 To lngLR
Cells(i, 1).Value = Cells(i, 1).Value * (-1)
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/Edit]

cu
myfake

earl-of-pain · 12. März 2007

Hallo myfake,

danke für die schnelle Antwort, auf die einfachsten Lösungen kommt man scheinbar nie :-) .

Gruß Maik

s.schorr · 7. Februar 2008

hallo, ich habe das problem, dass ...
1) geschaut werden muss wieviele zeilen es gibt
2) dann beginnend ab der 2 zeile in spalte F geschaut werden muss wo das wort "intern" steht.
3) und wenn in spalte f "intern" steht, dann muss in spalte t das vorzeichen der zahl umgekehrt werden (also aus minus -> plus)

kann mir da jemand helfen ?

IngGi · 7. Februar 2008

Hallo s.schorr,

kann in F1 "intern" stehen? Ich gehe mal davon aus nein. Dann:
Code:

Sub test()
Worksheets("Tabelle1").Range("F:F").Find(What:="intern").Offset(0, 14) = _
Worksheets("Tabelle1").Range("F:F").Find(What:="intern").Offset(0, 14) * -1
End Sub

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Path · 7. Februar 2008

Code:

Sub VorzeichenDrehen()

Dim lngLR&
Dim lngRow&

lngLR = IIf(IsEmpty(Cells(Rows.Count, 6)), Cells(Rows.Count, 6).End(xlUp).Row, Rows.Count)

For lngRow = 2 To lngLR
If LCase(Cells(lngRow, 6).Value) = "intern" Then Cells(lngRow, 20).Value = Cells(lngRow, 20).Value * (-1)
Next lngRow

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

s.schorr · 7. Februar 2008

in f1 steht nicht intern, spaltenüberschrift ist in diesem fall: auftragsart

ich habe das makro mal ausgeführt, fehlermeldung:

laufzeitfehler 91
objektvariable oder with-blockvariabele nicht festgelegt

Path · 7. Februar 2008

Mit dem von mir angepassten Code (s.o.) funktioniert es.

Bei Ingolf seinem Code wirst Du sicher den Tabellennamen anpassen müssen..der funktinoiert in meiner Testdatei auch.

s.schorr · 7. Februar 2008

vielen dank, du hatst mir wirklich sehr geholfen !

Office: (Office 2007) Vorzeichen von Zahlen umkehren

Vorzeichen von Zahlen umkehren

Vorzeichen von Zahlen umkehren

Vorzeichen von Zahlen umkehren

Vorzeichen von Zahlen umkehren

Vorzeichen von Zahlen umkehren - Similar Threads - Vorzeichen Zahlen umkehren

Filtern nach größter Zahl

Zelle in Summenformel braucht negatives Vorzeichen

VORZEICHEN (Funktion)

Vorzeichen von Zahlen in Excel-Listen umdrehen mit VBA?

Farbenwechsel je nach Vorzeichen

Vorzeichen umkehren

~$ Vorzeichen bei Word 2003