Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vorzeichen ändern

vorzeichen ändern
02.11.2004 21:39:14
Lucas
Hallo an alle zusammen ,
könnt ihr mir bitte kurz helfen.
will in spalte f bestimmte werte hinterlegen so das ein makro dies
sich anschaut und in spalte b die gleichen werte die dort vorkommen wie in spalte f nur die vorzeichen ändert.
Also wenn in spalte f die zahl 30 steht sollte sich das makro die spalte b anschauen die 30 finden und wenn es ein positives 30 daraus ein negatives machen und umgekehrt
danke
Gruss
Lucas+

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vorzeichen ändern
Jürg
hallo lucas
eine einfachere lösung wäre in excel in den zellen von spalte b eine formel einzugeben:
z.b. b1: =-f1
gruss
jürg
Vorzeichen ändern - Multiplizieren mit -1
Beate
Hallo Lucas,
füge folgendes Makro ins Codefenster der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 6 Then
If Cells(Target.Row, 2).Value = Cells(Target.Row, 6).Value Then
Cells(Target.Row, 6).Value = Target.Value * -1
End If
End If
End Sub

Bei Eingaben in Spalten B und F prüft das Makro auf Wertgleichheit in der Eingabezeile und multipliziert bei Wertgleichheit den Inhalt der aktiven Zeile Spalte F mit -1.
Gruß,
Beate
Anzeige
Korrektur
Beate
Hallo Lucas,
da hatte ich den falschen Makrotyp erwischt. Mach ein Worksheet_Change-Makro draus, ebenfalls im Codefenster der Tabelle, sonst alles gleich:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 6 Then
If Cells(Target.Row, 2).Value = Cells(Target.Row, 6).Value Then
Cells(Target.Row, 6).Value = Target.Value * -1
End If
End If
End Sub

Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige