Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

312 Forumthreads zu ähnlichen 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
Anzeige
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
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
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 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
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
Anzeige

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4