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

Spalte finden und Zahlen addieren

Forumthread: Spalte finden und Zahlen addieren

Spalte finden und Zahlen addieren
25.07.2006 16:47:54
Max
Hallo Leute,
Ich möchte gerne per Makro einen Begriff suchen und alle Zahlen, die in der darunter liegenden Spalte stehen addieren. Dieser Wert soll dann in eine andere Tabelle kopiert werden.
Kann mir jemand helfen?
Danke Max
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte finden und Zahlen addieren
25.07.2006 17:05:34
ChrisL
Hallo Max
Wozu ein Makro ist mir schleierhaft, aber ich brauch auch nicht alles zu wissen ;-)

Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Const strSuchkriterium = "DeinSuchstring"
Set WS1 = Worksheets("Daten")
Set WS2 = Worksheets("Ergebnis")
WS2.Range("A1") = WorksheetFunction.Sum(WS1.Columns(Application.Match(strSuchkriterium, WS1.Rows(1), 0)))
End Sub

Gesucht wird im Blatt "Daten", Zeile 1.
Gruss
Chris
Anzeige
AW: Spalte finden und Zahlen addieren
25.07.2006 17:15:55
max
wo ist der unterschied zw. suchkriterium - und such suchstring?
AW: Spalte finden und Zahlen addieren
25.07.2006 17:25:00
ChrisL
Hallo Max
strSuchkriterium, so nenne ich die Variable
"DeinSuchstring" musst du ändern
Gruss
Chris
PS: Beiträge ohne Anrede und Gruss (= m.E. normaler Umgangston) resultieren in einer automatischen Strafe von EUR 20 zu gunsten einer gemeinnützigen Organisation :-)
Anzeige
AW: Spalte finden und Zahlen addieren
25.07.2006 17:31:34
Max
hallo Chris.
Vielen Dank für die Hilfe.
Entschuldige meine Formlosigkeit von vorher - bin nur so im Stress heute...
Lg
Max
Danke für die Rückmeldung - kein Problem o.T.
25.07.2006 17:34:20
ChrisL
cu
Chris
mehrere suchläufe
26.07.2006 09:27:14
Max
Hallo Chris,
Eine Frage hätte ich doch noch:
Wie muss ich den Code verändern, um im selben Makro mehrere Suchen mit versch. Suchbegriffen durchführen zu können?
Danke
Gruß
MAX
Anzeige
AW: mehrere suchläufe
26.07.2006 09:39:35
ChrisL
Hallo Max
Sub t()
With Worksheets("Ergebnis")
.Range("A1") = SucheSpezial("DeinSuchstring1")
.Range("A2") = SucheSpezial("DeinSuchstring2")
'etc.
End With
End Sub 

Private Function SucheSpezial(strSuchkriterium As String) As Currency
Dim WS As Worksheet
Set WS = Worksheets("Daten")
SucheSpezial = WorksheetFunction.Sum(WS.Columns(Application.Match(strSuchkriterium, WS.Rows(1), 0)))
End Function

Gruss
Chris
Anzeige
AW: mehrere suchläufe
26.07.2006 09:51:11
Max
Hallo Chris,
Danke für Hilfe; Vor meinen Summen steht jetzt komischerweise "EUR"?
Hast du das in den Code integriert und wenn ja wie bekomm ich das weg?
Gruß Max
AW: mehrere suchläufe
26.07.2006 10:06:19
ChrisL
Hallo Max
Das hängt mit dem Datentyp Currency (Währung) zusammen. Unter dem Strich ist es aber ein reines Formatierungsproblem.

Sub t()
With Worksheets("Ergebnis")
.Range("A1") = Format(SucheSpezial("DeinSuchstring1"), "#,##0.00")
.Range("A2") = Format(SucheSpezial("DeinSuchstring2"), "#,##0.00")
'etc.
End With
End Sub

Gruss
Chris
Anzeige
neues Problem
26.07.2006 11:12:30
Max
Hallo Chris,
Leider hab ich noch ein problem gefunden.
Ab und zu möchte ich gerne zwischendurch in ein Feld in der Ergenbnis Tabelle die Summe von 2 Spalten der Daten Tabelle kopieren. Auch hier soll dann vorab nach 2 Begriffen gesucht werden...
Danke dir vielmals
Max
AW: neues Problem
26.07.2006 11:24:07
ChrisL
Hallo Max
Ich hoffe es gibt keine weiteren "neuen Ideen" ;-)

Sub t()
With Worksheets("Ergebnis")
.Range("A1") = Format(SucheSpezial("DeinSuchstring1") + SucheSpezial("DeinSuchstring2"), "#,##0.00")
'etc.
End With
End Sub

Gruss
Chris
Anzeige

Forumthreads zu verwandten Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzahl gleicher Elemente einer Spalte
Pascal

Hallo,
wie kann ich die Anzahl der gleichen elemente in einer Spalte ermitteln?
die Tabelle sieht etwa so aus:
1
3
0
1
1
2
0
1
das ergebis soll dieses sein:
0: 2
1: 4
2: 1
3: 1
03.11.2008 08:35:37
Thread-ID: 1021264
5 Beiträge
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
Wörter in Zellen / Spalteninhalte zählen
Lemmi

Hallo zusammen,
ich möchte gerne feststellen wieviel gleiche Wörter/ Zahlen sich wiederholen!
Ich habe eine Spalte mit nachfolgenden Inhalt:
Zellen ab E6
E6: Müller Fritz 123
E7: Meier Hans 456
E8: Kleiner Hund 123
E9 Müller Hans123
E10:123
E11: 456
Es s...
27.09.2009 09:04:35
Thread-ID: 1105727
3 Beiträge
Anzeige
Anzahl Zellen in Spalte dividiern durch Zahl
edie

Hallo zusammen,
die Spalte A mit Zahlen ist variabel lang, nun hätte ich gerne, dass die Anzahl der belegten
Zellen in Spalte A dividiert wird durch die Zahl in der Zelle C1 und in die Spalte B wird einfach eine 1 bzw. 2 u.s eingetragen.
Hier das Beispiel:
Spalte A...
14.12.2009 22:22:47
Thread-ID: 1123927
9 Beiträge
Anzeige
Anzahl Text in Spalte H zählen
Wolfgang

Hallo,
in Tabelle "Start" befindet sich in Zelle B34 ein Text und Zelle B35, die Texte kommen in Kombination "B34" & " " & "B35" in Tabelle "Daten" Spalte H entsprechend vor. Ich würde gerne die Anzahl dieser Textkombination in Zelle (z.B.) C35 angzeigt bekommen. Allerdings soll dab...
24.02.2010 21:38:53
Thread-ID: 1141280
8 Beiträge
Anzahl von Textwerten in Spalte mit VBA
Textwerten

Hallo Forum,
ich muss aus einer (sehr) langen Liste von unterschiedlichen Text-Werten die Anzahl der einzigartigen Vorkommen ermitteln. Und zwar mit VBA.
Das sieht in etwa wie folgt aus:
AA
BB
CC
AA
AA
BB
Das Ergebnis wäre simple und einfach: 3
Es funktio...
27.04.2010 17:21:49
Thread-ID: 1154135
12 Beiträge
Passwort zum Einblenden und Bearbeite von Spalten
Spalten

Hallo zusammen,
ich benötige eure Hilfe!!!
Ich brauche ein Makro, welches mir z.B. die Spalte C und D nur durch ein Passwort anzeigt und ich es bearbeiten kann.
Oder dass ich die Benutzer definiere die die Spalte C und D sehen und bearbeiten dürfen.
Ich hoffe mir kann da jemand...
20.09.2010 21:23:40
Thread-ID: 1178637
5 Beiträge
Schleife für Anzahl an Zeilen in einer Spalte
KibbA

Hi,
ich komme vor lauter bäumen nicht auf den wald:
ich brauche eine schleife, der für jede Zeile in einer bestimmten spalte, etwas durchführt und dabei den wert(inhalt) in ein anderes feld schreibt.
mein ansatz:
For Each Row in Sheets("Tab1").Columns("A:A")
SpalteC = Spal...
12.10.2010 11:38:46
Thread-ID: 1181897
6 Beiträge
Anzahl der Zeilen innerhalb einer Spalte
Klaus

Hallo Forum,mit welcher Formel bekomme ich in Excel die Anzahl der Zeilen
in einer Spalte angezeigt?BsP
A1 01EZ0201
B1 01EM9999
C1 01ZZ9805Das Ergebnis in D1 müsste dann 3 ergeben.
Danke
Klaus
23.05.2002 12:25:24
Thread-ID: 123053
2 Beiträge
Anzahl der Werte in einer Spalte
christian

Hallo alle zusammen,
kann man sich per Formel ausgeben lassen, wieviele unterschiedliche Werte es in Spalte A gibt? Die Tabelle ist nach Spalte A sortiert.
Bislang hab ich mir mit den Formeln D1=1 D2=WENN(A1=A2;D1;D1+1) weitergeholfen aber das sind bei der Größe der Tabelle Tausende, ev...
31.07.2011 17:11:11
Thread-ID: 1224369
4 Beiträge
Spalteninhalt abh. von Wortendung und anderer Zell
Wortendung

Hallo,
ich habe folgendes Problem.
RS00543 Ring, Onyx
RS00543-16 Ring, Onyx
RS00543-17 Ring, Onyx
RS00543-18 Ring, Onyx
RS00543-19 Ring, Onyx
RS00543-20 Ring, Onyx
In der ersten Spalte meiner Tabelle stehen Artikelnummern.
Wenn es sich um einen...
14.10.2011 22:31:43
Thread-ID: 1233521
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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