Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vorzeichen ändern

Forumthread: 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+
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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