Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Positive Zahl umwandeln in negative Zahl per VBA

Positive Zahl umwandeln in negative Zahl per VBA
07.03.2015 23:09:53
baumi

Hallo,
gibt es eine Möglichkeit per VBA eine Positive Zahl in eine Negative Zahl (A1) umzuwandeln, wenn in Feld B1 z.B. "A" steht, und wenn ein anderer Buchstabe die Zahl in A1 so bleibt wie geschrieben.
Ist so was möglich, über Tipps, ob das gehen könnte, wäre ich happy
MfG

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Positive Zahl umwandeln in negative Zahl per VBA
08.03.2015 00:16:33
Christian
for i=1 to 100
if cell(i,2)="B"
cell(i,1)=cell(i,1)*-1
End if
Next i
so ungefähr

Positive Zahl umwandeln in negative Zahl per VBA
08.03.2015 09:47:26
baumi
Hallo,
kann leider damit nichts anfangen, wäre es möglich mir das genauer zu erklären...
Habe die Daten unter Code anzeigen eingegeben, aber passieren tut nix..
habe ich irgendetwas noch vergessen...???
MfG

AW: Positive Zahl umwandeln in negative Zahl per VBA
08.03.2015 10:26:45
Hajo_Zi
schreib vor den Code 

Sub Loeschen() und danach End Sub
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen.
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen.

Anzeige
VBA: Positive Zahl bedingt in negative Zahl
08.03.2015 14:47:41
baumi
Hallo,
danke für den Tipp, der haut schon fast hin, wenn, wie muss die zeile aus sehen, wenn an anderer Stelle z.B. Spalte E unterschiedliche Zahlen reinkommen und in Spalte F "A" und andere Buchstaben, und weiter, es soll jeweils die ganze Spalte davon betroffen sein...
Warum muss man dieses Makro immer ausführen????
gibt es nicht die Möglichkeit, das ganze zu automatisieren...ich gebe eine zahl ein, und in der nächsten Spalte einen Buchstaben, und wenn der bestimmte Buchstabe ein A ist soll aus der Zahl ein mit einem Minus werden...
Mfg

Anzeige
AW: VBA: Positive Zahl bedingt in negative Zahl
10.03.2015 20:07:06
Erich G.
Hi Vorname(?),
klar, es gibt die die Möglichkeit, das Ganze zu automatisieren. :-)
Der folgende Code gehört in den Code des Tabellenblatts, in dem er wirken soll: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngM As Range
If Target.Count = 1 Then
If Target.Column < Columns.Count Then
If Application.IsNumber(Target) And _
Target.Offset(, 1) = "A" Then Set rngM = Target
End If
If rngM Is Nothing And Target.Column > 1 Then
If Application.IsNumber(Target.Offset(, -1)) And _
Target = "A" Then Set rngM = Target.Offset(, -1)
End If
If Not rngM Is Nothing Then
Application.EnableEvents = False
rngM = -rngM
Application.EnableEvents = True
End If
End If
End Sub
Er sollte immer laufen, nachdem genau eine Zelle des Tabellenblatts geändert wurde.
Werden mehrere Zellen auf einmal geändert (durch Kopieren, AutoAusfüllen, ...), läuft er nicht.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: VBA: Positive Zahl bedingt in negative Zahl
10.03.2015 23:26:06
baumi
Hallo,
die Lösung ist echt super, wenn nicht schon Kanone, aber wenn ich jetzt den Wert "A" wieder raus und durch B C D oder was anderes ersetzten möchte, muss die Zahl neu eingegeben werden, ist das so richtig oder gibt es noch ne Möglichkeit es so zu ändern, das daraus wieder ein positiver Wert wird...
Vielen, vielen Dank nochmal
MfG Baumi

vielleicht besser per Formel
11.03.2015 10:22:22
Erich G.
Hi Vorname(?),
man kann mit VBA ziemlich viel anstellen. Was du jetzt willst, bedarf wieder einer anderen Herangehensweise.
Es wäre wohl sinnvoll, wenn du dir zunächst Klarheit über die gewünschte Funktionalität verschaffen würdest.
Dann bräuchtest du nicht - wie es hier gerade wiederholt geschehen ist - auf jede Lösung
mit einer veränderten/erweiterten Fragestellung zu reagieren.
An deiner Stelle würde ich das jetzt nicht per VBA machen, sondern einfach per Formel in Excel.
Dazu brauchst du nur für die Zahlen je eine Eingabe- und eine Wert-Zelle.
So ginge das z. B.:
Anzeige
AW: vielleicht besser per Formel
11.03.2015 19:40:52
Baumi
Hallo Erich,
danke für die Hilfe.
Deine Formel jetzt ist auch nicht verkehrt, würde aber ein MEHR von Arbeit bedeuten...
(was meine Datenbank betrifft)...
Die VBA Lösung ist die optimale Lösung, entspricht meiner Vorstellung.
alles was danach kommt, ist die Frage, ob man dieses noch optimieren könnte.
Gruß Baumi

Donnerwetter?
08.03.2015 10:56:19
Erich G.
Hi,
könnte es sein, dass du uns darüber informieren möchtest, dass du diese (bzw. eine ähnliche) Frage
auch in mindestens einem anderen Forum gestellt hast?
Vermeidbare Doppelarbeit bei den dortigen oder hiesigen Antwortern wäre dir doch sicher auch unangenehm.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: Donnerwetter?
09.03.2015 23:07:30
baumi
Hallo,
(könnte es sein, dass du uns darüber informieren möchtest, dass du diese (bzw. eine ähnliche) Frage
auch in mindestens einem anderen Forum gestellt hast?)
ja habe ich...
(Vermeidbare Doppelarbeit bei den dortigen oder hiesigen Antwortern wäre dir doch sicher auch unangenehm.)
da ich kein Fachwissen habe, kann ich diese Frage nicht beantworten... aber, um einen Weg zum Ziel zu finden, nehme ich gerne Umwege in Kauf, das Internet oder das WWW ist groß, und woher soll ich wissen wer alles im welchem Forum zuhause ist...
ich musste mir auch schon anhören, ich soll mich auf die Suche begeben wenn ich was erreichen will.
jetzt suche ich, und das ist wieder .....????
Danke für den Rat...
MfG

Anzeige
Forums-FAQ
10.03.2015 10:11:30
Erich G.
Hi ,
(Vermeidbare Doppelarbeit bei den dortigen oder hiesigen Antwortern wäre dir doch sicher auch unangenehm.)
"da ich kein Fachwissen habe, kann ich diese Frage nicht beantworten" ?
Nein - das hat doch nichts mit Fachwissen zu tun, eher mit Kinderstube. :-)
Zum Crossposting lies doch mal die Forums-FAQ.
Ein Zitat: 

Rundumschlag
Stelle bitte keine Fragen im Rundumschlag. Es kommt vor, dass Fragen im Spotlight-Forum,
in der Excel-NewsGroup, an mich persönlich und gleichzeit hier ins Forum gepostet werden.
Damit steigen zwar die Chancen des Fragestellers auf Antwort,
andererseites beschäftigt er ganze Völkerschaften mit seinem Problem,
was die Chance anderer Fragesteller auf eine Antwort verringert.
Dieses Verhalten ist nicht fair und wird nicht toleriert.
Da du nun deine Frage schon in mehreren Foren gestellt hast, sollte jeder potentielle Antworter sehen können,
was bereits zum Thema geschrieben wurde. Hier schreibe ich - stellvertretend für dich - den Link zu deinem Thread bei OE:
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=0&h=81371&ao=1
Gibt es zu dem Thema Threads in weiteren Foren?
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
P.S.: In den Forums-FAQ findest auch etwas zu Nicknames und Vornamen...

Anzeige
AW: Forums-FAQ
10.03.2015 17:35:51
baumi
Hallo,
danke für die Belehrung,
danke für die Hilfe, die mir so toll herüber gebracht wurde...
MfG

26 Forumthreads zu ähnlichen Themen

Negative Werte ins Positive setzten
F.

Hallo
Habe mit diesem Code versucht alle negativen Werte zweier Spalten in allen Tabellen ab dem 7. Blatt vom Negativen ins Positive zu drehen. Es würde klappen, aber nur mit dem ersten Blatt.
Sub Negative_Vorzeichen() Dim i As Long For i = 7 To Sheets.Count Range("E:E,H:H").Select Ra...
15.02.2010 14:14:49
Thread-ID: 1138644
13 Beiträge
Anzeige
VBA - Zahl immer in Zahl mit Komma umwandeln
Hans

Hallo Leute,
ich habe folgendes anliegen und weiss nicht wie ich es lösen soll.
Wenn ein einem Zellenbereich ( A2:A10) Zahlen eingegeben werden soll das Komma vor die letzten beiden Stellen gesetzt werden.
Also wenn ich 2990 eingebe sind 29,90 € gemeint.
Kann mir jemand bei de...
03.05.2011 14:55:02
Thread-ID: 1212883
9 Beiträge
aus neg. Zahl eine positive machen
Christian

Hallo...
ich bekomme durch eine Rechnung eine negative Zahl angezeigt. Kann mir jemand sagen, was in die Formel muß, das die selbe Zahl ohne Minuszeichen angezeigt wird?
Besten Dank für eure Hilfe.
Gruß
Christian
22.05.2012 12:40:05
Thread-ID: 1264350
3 Beiträge
Anzeige
Umwandeln eines Zahlbereiches in eine Zahlenfolge
herb roder
Hallo,
es wäre sehr schön, wenn jemand mir helfen könnte. Ich habe das Problem, dass ich Zahlenbereiche in entsprechende Zahlenfolgen ändern möchte. Es gibt insgesamt drei Typen solcher Zahlenbereiche (urprünglich waren das die Seiten aus einem Buch), z.B.:
"34f" soll geändert werden in: "3...
26.01.2015 20:28:19
Thread-ID: 1405220
10 Beiträge
Umwandlung von negativ in positiv
christoph Hoppmann

Hallo liebe Excel-Freunde, ich habe in eine Spalte negative Zahlen. Diese Zahlen sollen in positive Werte umgewandelt werden. Kann mir da jmd. vielleicht helfen: MfGChristoph
28.07.2002 21:03:17
Thread-ID: 141695
5 Beiträge
Zahlen in Text in Zahlenformat per VBA umwandeln
Ro

Hallo zusammen,
ich habe eine Exceltabelle mit einem Zellbereich (A2:AC200). In diesem Zellbereich werden Zahlen per Makro von einer Eingabemaske eingefügt.
Leider kommen die Zahlen in Textformat und werden sie nicht bei der Berechnung/Formeln erkannt. Daher werden alle Berechnungen f...
19.02.2019 13:16:50
Thread-ID: 1676470
5 Beiträge
plus Wert in Schwarz, Minus Wert in Rot darstellen
Gerd

Hallo liebe Excel Freunde,mein Problem ist ein für Euch wahrscheinlich einfaches.
Ich möchte eine errechnete Summe in einer Zelle automatisch farbig ausgeben.
Liegt der Wert im Plus, soll die Zahl in Schwarz dargestellt werden, liegt die Zahl im Minus, soll sie rot angezeigt werden.
Fü...
16.11.2002 01:38:23
Thread-ID: 182007
3 Beiträge
Positiven Wert in Negativen umwandeln
Christian

Hallo,
wahrscheinlich ist das eine ganz einfache Lösung, die ich brauche... Ich will eine Gutschriftssumme in unsere Rechnungsliste eintragen. Der Wert in der Gutschrift ist natürlich als Positiver Wert angegeben. In die Liste muss er aber als negativer Wert rein. Wie konvertiere ich also d...
18.06.2004 08:50:51
Thread-ID: 442818
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
3
8
2
3
9
4
4
2
6
8
3
3
2
5
3
6
3
2
4
5
7
9
10
6