Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: In Spalte vor Werte Minuszeichen setzen

In Spalte vor Werte Minuszeichen setzen
23.10.2013 11:23:44
Jockel
Hallo,
Ich möchte folgendes per VBA machen.
Habe ein Sheet ("TEMP"). In der Spalte E soll ab Zeile 2 die Spalte durchlaufen werden und vor jeden Wert, der grösser als NULL ("0") ist, vor den bestehenden Wert ein MINUSZEICHEN gesetzt werden.
Beispiel:
VORHER:
E
------
WERTE
------
0
2
0
5
12
NACHER :
E
------
WERTE
------
0
-2
0
-5
-12
Wie krieg ich das mit einem Makro hin ?
Danke
Jockel

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Spalte vor Werte Minuszeichen setzen
23.10.2013 11:31:42
Rudi
Hallo,
wenn es keine negativen Zahlen gibt:
Sub Minus()
With Sheets("temp")
With .Cells(1, Columns.Count)
.Value = -1
.Copy
End With
.Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp)).PasteSpecial _
Paste:=xlPasteValues, operation:=xlMultiply
.Cells(1, Columns.Count).Clear
End With
End Sub

Gruß
Rudi

Anzeige
In Spalte vor Werte Minuszeichen setzen
23.10.2013 11:33:14
Matthias
Hallo
Dim x As Long
Dim Ende&
Ende = 6 'anpassen oder einlesen
For x = 2 To Ende
If Cells(x, 5) > 0 Then Cells(x, 5) = Cells(x, 5) * -1
Next
Gruß Matthias

AW: In Spalte vor Werte Minuszeichen setzen
23.10.2013 11:33:53
Bastian
Hallo Jockel,
z.B. so:
Option Explicit
Sub Minus()
Dim lngLZeile As Long
Dim intZaehler As Integer
lngLZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
For intZaehler = 2 To lngLZeile
With Cells(intZaehler, 5)
If IsNumeric(.Value) And .Value > 0 Then
.Value = .Value * -1
End If
End With
Next intZaehler
End Sub
Gruß, Bastian

Anzeige
Dank Euch allen, habt mir sehr geholfen owT
23.10.2013 14:26:42
Jockel
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige