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

VBA Zahl in Tabelle finden + nachzählen

Forumthread: VBA Zahl in Tabelle finden + nachzählen

VBA Zahl in Tabelle finden + nachzählen
29.11.2021 08:52:37
Sophie
Hallo,
mir ist in Excel eine Tabelle vorgegeben, nun soll ich dazu ein Makro programmieren. Man soll in eine bestimmte Zelle (C19) eine Zahl n eingeben können und daraufhin soll das Programm diese Zahl n in der Tabelle suchen und in einer anderen Zelle angeben wie oft diese Zahl n in der Tabelle vorkommt und wie viele Zahlen keiner als diese Zahl n sind.
Danke im Voraus, Gruß Sophie
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zahl in Tabelle finden + nachzählen
29.11.2021 09:03:34
{Boris}
Hi,
ist das eine reine VBA-Übung? Ansonsten ist das eine klassische Aufgabe für die Funktion ZÄHLENWENN (die man natürlich auch in VBA nutzen kann über WorksheetFunction.CountIf(...)).
VG, Boris
AW: VBA Zahl in Tabelle finden + nachzählen
29.11.2021 09:06:06
UweD
Hallo
(D)eine Mustertabelle wäre hilfreich.
ansonsten, angenommen
- in Tabelle2 in A2:F10 stehen deine Zahlen
- die Zahl steht alleine in der Zelle und nicht irgendwo im Text
- verwende diese beiden Formeln

=ZÄHLENWENN(Tabelle2!$A$2:$F$10;$C$19)
=ZÄHLENWENN(Tabelle2!$A$2:$F$10;""&$C$19)
LG UweD
Anzeige
AW: VBA Zahl in Tabelle finden + nachzählen
29.11.2021 09:13:15
UweD
Als VBA

Sub Zählen()
Dim RNG As Range
Dim Suchzelle As Range
Set RNG = Sheets("Tabelle2").Range("A2:F10")
Set Suchzelle = Sheets("Tabelle1").Range("C19")
With Suchzelle
.Offset(0, 1) = WorksheetFunction.CountIf(RNG, .Value)
.Offset(0, 2) = WorksheetFunction.CountIf(RNG, "" & .Value)
End With
End Sub
LG UweD
Anzeige
Was brauchst Du...
29.11.2021 09:36:29
{Boris}
Hi,
...denn nun genau: Definitiv VBA-Lösungen oder Formeln?
Das Thema "Größte Zahl / Zeile / Spalte" hatten wir doch z.B. schon mal hier behandelt. Die Antwort auf Deine konkrete Frage hast Du hier auch erhalten - sowohl per Formel als auch per VBA.
Also: Was brauchst Du noch in welcher Form?
VG; Boris
Anzeige
AW: Was brauchst Du...
29.11.2021 09:42:28
Sophie
Ja, die Antwort von gestern war sehr hilfreich aber heute bin ich an einer andren Aufgabe dran. Die genaue Aufgabenstellung ist :
"In der Zelle C19 kann der Benutzer eine Zahl n eingeben. Schreiben Sie ein Visual-Basic-Makro, das nachzählt, wie oft diese Zahl in der Liste vorkommt, wie viele Zahlen kleiner als n in der Liste stehen und was die Summe alles durch n teilbaren Zahlen ist. Diese Ergebnisse sollen in die entsprechenden Zellen in Spalte C ausgeben werden."
In unserem Skript sind leider nur sehr wenig Befehle und deswegen komme ich nicht weiter.
Gruß Sophie
Anzeige
AW: Was brauchst Du...
29.11.2021 10:25:28
{Boris}
Hi,
so in der Art:

Sub test()
Dim lngSuchwert As Long, rngSuchbereich As Range
Dim C As Range, lngSum As Long
Set rngSuchbereich = Range("F7:FA424")
lngSuchwert = Range("C19")
'zählen
Range("C20") = WorksheetFunction.CountIf(rngSuchbereich, lngSuchwert)
'alle die kleiner sind zählen
Range("C21") = WorksheetFunction.CountIf(rngSuchbereich, "
Wobei mich gerade wundert, dass die Summe aller teilbaren mit der Formel
=SUMMENPRODUKT((REST(F7:FA424;C19)=0)*F7:FA424)
ein anderes Ergebnis bringt - bei der beispielhaft gesuchten Zahl 420 ist dies genau um 420 kleiner als in der VBA-Variante...?!
VG, Boris
Anzeige
AW: Vielen Dank
29.11.2021 11:43:04
Sophie
Danke für die Hilfe, hat super geklappt
Nur für`s Archiv...
29.11.2021 14:03:45
{Boris}
...hatte in der Summenprodukt-Formel einen Denkfehler - korrekt muss sie lauten:
=SUMMENPRODUKT((REST(C19;F7:FA424)=0)*F7:FA424)
Dann passen beide Ergebnisse auch wieder zusammen.
AW: Was brauchst Du...
29.11.2021 10:32:51
UweD
Hallo nochmal
zum Letzten Punkt:
- Streng genommen sind alle Zahlen durch den Wert in C19 teilbar. Jedoch nicht alle ohne Rest
- ich denke es ist Restlos gemeint
Hier mal alles...

Sub Zählen()
Dim RNG As Range
Dim MMit As Range, MMax As Range, Mmin As Range
Dim Suchzelle As Range, c
Dim WF, Z, SSum As Long
Set WF = WorksheetFunction
With Sheets("Tabelle1")
Set RNG = .Range("F7:FA424")
Set MMit = .Range("C4")
Set MMax = .Range("C7")
Set Mmin = .Range("C13")
Set Suchzelle = .Range("C19")
End With
'reset
Union(MMit, MMax.Resize(3, 1), Mmin.Resize(3, 1), Suchzelle.Offset(1).Resize(3, 1)).ClearContents
With MMit
.Value = WF.Average(RNG)
End With
With MMax
.Value = WF.Max(RNG)
Set c = RNG.Find(.Value)
.Offset(1, 0) = c.Row - RNG.Row + 1
.Offset(2, 0) = c.Column - RNG.Column + 1
End With
With Mmin
.Value = WF.Min(RNG)
Set c = RNG.Find(.Value)
.Offset(1, 0) = c.Row - RNG.Row + 1
.Offset(2, 0) = c.Column - RNG.Column + 1
End With
With Suchzelle
.Offset(1, 0) = WF.CountIf(RNG, .Value)
.Offset(2, 0) = WF.CountIf(RNG, "
LG UweD
Anzeige
ein Fehler
29.11.2021 10:45:32
UweD
Es muss heißen 

If Z = Int(Z / .Value) * .Value Then
oder wie bei Boris

If Z Mod .Value = 0 Then
LG UweD
AW: Was brauchst Du...
29.11.2021 16:00:22
Michael
Und es könnte nicht sein, dass du dieses ZählenWenn schlicht selber schreiben sollst? Und eben nicht die vorgefertigte Formel benutzen sollst?
Das hier lässt sich schön in Boris' Schleife integrieren:
Oben zunächst die Deklarationen...
Dim intCountIfEqual As Integer
Dim intCountIfLess As Integer
~f~
...dann weiter unten in die Schleife unter den vorhandenen IF-Block:
~f~
If C.Value = lngSuchwert Then
intCountIfEqual = intCountIfEqual + 1
ElseIf C.Value < lngSuchwert Then
intCountIfLess = intCountIfLess + 1
End If
VG
Michael
Anzeige

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Anzeige
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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