Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich durchsuchen und Werte addieren

Forumthread: Bereich durchsuchen und Werte addieren

Bereich durchsuchen und Werte addieren
22.04.2006 13:26:35
Nico
Hallo,
ich habe eine Spalte mit Kunden, und eine Spalte mit Beträgen. Nun möchte ich folgendes mit VBA erreichen: die aktive Zelle (Kunde) soll als Suchkriterium verwendet werden, und es soll der Gesamtbetrag pro Kunde ermittelt werden, und dieser dann in eine Variable geschrieben werden. Zur Übersicht sollen zum Abschluss die Spalten mit dem übereinstimmenden Suchkriterium gekenzeichnet werden (z.B. rot markieren).
Ich hoffe Ihr könnt mir weiterhelfen.
Vielen Dank,
Nico
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich durchsuchen und Werte addieren
22.04.2006 16:15:29
Gerd L
Hallo Nico,
versuche es mal so.
Code bitte in ein normales VBA-Modul einfügen
( Mit Alt+F11 den Editor öffnen und
und dort mit Menü Einfügen -- Modul ein Modulblatt "erstellen".)
Option Explicit
Public curMeineVariable As Currency

Sub Customsum()
Dim curSumCustom As Currency, lngRow As Long, strSuchkriterium As String
Columns(2).Interior.ColorIndex = xlNone
If Selection.Count > 1 Or Selection.Column <> 1 Then
Exit Sub
End If
strSuchkriterium = ActiveCell.Value
For row = 2 To Cells(Rows.Count, 1).End(xlUp).row
If Cells(row, 1) = strSuchkriterium Then
If IsNumeric(Cells(row, 2).Value) Then
curSumCustom = curSumCustom + CCur(Cells(row, 2).Value)
Cells(row, 2).Interior.Color = vbRed
End If
End If
Next
curMeineVariable = curSumCustom
MsgBox (Selection.Value & " Summe = " & curSumCustom)
End Sub

Ich gehe mal davon aus, dass dir mit "schau mal dort" nicht so sehr geholfen ist.
P.S. Im Code steht ", 1" für Spalte "A"(Kundennamen) und ", 2" für Spalte "B"(Beträge).
Grüße
Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Absolute Werte addieren mit VBA
Peter

Guten Abend
Mit der Formel
=SUMMENPRODUKT(ABS(BenannterBereich))
ermittle ich den absoluten Wert aller Zahlen im Bereich "BenannterBereich".
Leider lässt sich diese Formel in VBA mit WorksheetFunction. nicht verwenden.
Wer kennt einen alternativen Lösungsansatz?
Danke fü...
06.02.2009 21:30:35
Thread-ID: 1047925
6 Beiträge
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Null-werte verschwinden beim addieren
Joachim

Hi,
Ich glaube Tino war es, hatte mir mal ein Beispiel gemacht. Wenn in meinem datenbestand in Spalte B zwei gleiche NUmmern vorkommen, sollen diese zu EINEM Datensatz gemacht werden. Die Zaheln in den Spalte S und AA sollen addiert werden und dann der überflüssige datensatz gelöscht werden...
10.06.2009 13:30:52
Thread-ID: 1080454
2 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
nur bestimmte Zelleninhalte speichern
Peter

Guten Morgen allerseits,
ich habe mir ein Rechnungsformular erstellt. Gibt es irgendeine Möglichkeit, dass nur die eingegebenen
Daten, wie zum Beispiel Name, Adresse, Datum usw. gespeichert werden und nicht das ganze Formular?
Ich möcht mich schon mal im vorraus für Euere Hilfe beda...
29.06.2009 08:37:16
Thread-ID: 1084996
3 Beiträge
Code nur in bestimmten Zellen
Stefanglander

Moin Moin Excelgemeinde,
habe beim recherchieren folgenden Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If IsEmpty(Target) Then Exit Sub If Target = "1" Then Target = "oben" If Target = "2" Then Target = "unten" If Target = "3" Then Target = "rechts" If Targe...
27.09.2009 13:43:00
Thread-ID: 1105840
6 Beiträge
Summe nach Teilinhalt einer Zelle
Bernhard

Hallo X-ler, ich muss Zellen summieren wenn die ersten 13 Stellen einer 15-stelligen Zahl übereinstimmen.
Bsp:

123456789999900 120
123456789999910 220
123456789999920 160
999995548777712 122In Spalte A in den Zeilen 1-3 sind die ersten 13 Stellen identisch al...
17.04.2002 14:06:56
Thread-ID: 114117
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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