Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Addition von 2 Spalten

Forumthread: Addition von 2 Spalten

Addition von 2 Spalten
04.05.2020 17:40:34
2
Liebes Forum,
alle meine Versuche die Spalten 4 und 5 zu addierem sind gescheitert.
Als Einträge sollen möglich sein: Nur Spalte 4, nur Spalte 5 oder Spalte 4 und 5.
Ich bitte um Hilfe. Mit freundlichen Grüßen Wolfgang
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then

If Target > 0 Then

Target.Offset(0, 3).Value = Target * Range("$D$4")

Target.Offset(0, 3).NumberFormat = "#0.0 €"

Target.Offset(0, 3).Interior.Color = vbGreen

Else

Target.Offset(0, 3) = ""

Target.Offset(0, 3).Interior.Color = xlNone

End If

End If

'---------------------------------------------------------------

If Target.Column = 5 Then

If Target > 0 Then

Target.Offset(0, 2).Value = Target * Range("$E$4")

Target.Offset(0, 2).NumberFormat = "#0.0 €"

Target.Offset(0, 2).Interior.Color = vbGreen

Else

Target.Offset(0, 2) = ""

Target.Offset(0, 2).Interior.Color = xlNone

End If

End If
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Addition von 2 Spalten
04.05.2020 17:43:08
2
in Deinem Coide gibt es kein +, ist es der richtige Code?
GrußformelHomepage
Anzeige
AW: Addition von 2 Spalten
05.05.2020 10:27:24
2
Hallo Hajo,
ich habe in Spalte 5 die Zeilen 4 und 5 eingefügt.
Das Ergebnis ist nur richtig wenn ich nur eine Zahl in Spalte 4
oder erst eine Zahl in Spalte 4 und dann eine Zahl in Spalte 5 eintrage.
Das Ergebnis ist falsch wenn ich Spalte 4 oder 5 lösche und in Spalte 5 eine neue
Zahl eintrage. Ich möchte bei jedem Eintrag oder Korrekktur eine Neuberechnung
beider Spalten.
Gruß Wolfgang
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Target > 0 Then
Target.Offset(0, 3).Value = Target * Range("$D$4")
Target.Offset(0, 3).NumberFormat = "#0.0 €"
Target.Offset(0, 3).Interior.Color = vbGreen
Else
Target.Offset(0, 3) = ""
Target.Offset(0, 3).Interior.Color = xlNone
End If
End If
If Target.Column = 5 Then
If Target > 0 Then
Target.Offset(0, 2).Value = Target * Range("$E$4")
If Target > 0 And Target.Offset(0, -1) > 0 Then
Target.Offset(0, 2).Value = Target.Offset(0, -1) * Range("$D$4") + Target * Range("$E$4")
Target.Offset(0, 2).NumberFormat = "#0.0 €"
Target.Offset(0, 2).Interior.Color = vbGreen
Else
Target.Offset(0, 2) = ""
Target.Offset(0, 2).Interior.Color = xlNone
End If
End If
End If
End Sub

Anzeige
AW: Addition von 2 Spalten
06.05.2020 07:42:26
2
Moin Wolfgang
Versuch es mal so. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:E")) Is Nothing And Target.Row > 4 Then
With Cells(Target.Row, 7)
.Value = (Cells(Target.Row, 4) * Range("$D$4")) + (Cells(Target.Row, 5) * Range("$E$4"))
.NumberFormat = "#0.0 €;;" '--zeigt bei Null nichts an
.Interior.Color = IIf(.Value = 0, xlNone, vbGreen)
End With
End If

gruss hary
Anzeige
AW: Addition von 2 Spalten
06.05.2020 10:10:54
2
Hallo Hary,
Deine Lösung ist perfekt und auch wesendlich kürzer. Diesen Code hätte ich nicht hinbekommen.
Vielen Dank dafür.
Gruß Wolfgang
;

Forumthreads zu verwandten Themen

Datenvergleich über 4 Spalten in zwei Blättern
Martin

Hallo,
ich komme mit eine Formel für folgenden Fall nicht weiter:
Erste Datei (oder erstes Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in Spalte C
Zweite Datei (oder zweites Tabellenbaltt):
Nachname in Spalte A, Geburtsdatum in Spalte B, Betrag in...
14.08.2008 14:33:00
Thread-ID: 1001866
4 Beiträge
Drucken von 2 Spalten
2

Moin Zusammen,
ich habe eine Tabelle mit sehr vielen Daten, die in zwei Spalten vorliegen.
Diese müssen zur Dokumentation ausgedruckt werden.
Da es aber keinen Sinn macht, zwei Spalten auf ein Blatt udn das über zig Seiten zu drucken, würde ich gerne mind. einen 4 oder sogar 6 Spalt...
26.08.2008 11:19:07
Thread-ID: 1004728
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
4 Beiträge
Anzeige
zwei Spalten vergleichen
Schmidt

Guten Tag,
ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
28.10.2008 10:38:01
Thread-ID: 1019838
6 Beiträge
Spalten vergleichen, löschen und zählen
Micky

Hallo Ihr Excel Ritter,
ich habe folgendes Problem, in 2 Spalten stehen Nummern teilweise doppelt,
nun darf jede NR. nur 1x auftauchen entwerder in Spalte a oder b.
Pro Nr. soll in einer 3. Spalte dann der Wert 1 ausgebeben werden oder 0 für
keine Nummer. Zeilen dürfen nicht g...
10.12.2008 10:17:50
Thread-ID: 1031594
11 Beiträge
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
Anzeige
Spalten vergleichen und kopieren
edie

Hallo zusammen,
mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
übernommen.
...
22.01.2009 20:43:26
Thread-ID: 1042727
3 Beiträge
2 Sheets & 2 Spalten vergleichen
Alex

Guten Morgen zusammen!
Ich sitze an folgendem Problem:
Ich habe zwei Sheets, in denen Kunden (dummerweise) sehr inkonsistent gespeichert werden. Aus diesem Grunde vergleiche ich die beiden relevanten Spalten nach übereinstimmenden Strings und versuche, zumindest einen Teil dieser Kunden...
29.01.2009 10:29:17
Thread-ID: 1044862
4 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Werte aus 2 Spalten vergleichen??
stefan

Hallo,
ich habe in 2 Spalten Werte. Wie kann ich prüfen, ob die werte in der einen spalte enthalten sind. WEnn sie enthalten sind, soll in einer 3.spalte ein text ausgegeben werden.
wie mach ich das am besten?
danke euch?
13.03.2009 16:57:19
Thread-ID: 1059944
4 Beiträge
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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