Zahlen im Wertebereich suchen VBA

Hallo VBA´ler,
ich habe eine Excel-Tabelle mit 2 gefüllten Spalten. In Spalte D:D stehen Namen und in Spalte E das dazugehörige Alter. Mit einem Makro möchte ich gerne die Anzahl sämtlicher Namen innerhalb einer Altersspanne (20 anbei findet Ihr einen Ausschnitt aus einem Makro.
Mit dem Code kann ich nur nach einem bestimmten Alter (z.B. 20 Jahre) suchen und die Häufigkeit bestimmen.
Kann mir jemand bei der Variablendefinition eines Wertebereichs (Namen innerhalb einer Altersspanne) weiterhelfen?
Ich habe versucht eine Variable wie folgt zu definieren, was leider zu keinem Ergebnis geführt hat:
zaehler = 10 Grüße
For zaehler = 3 To 60 Arr_Station = Array(zaehler & " Jahre") '(zaehler & " Jahre") For Each rw In .Range("D:D").SpecialCells(xlConstants) If InStr(rw, Alter) > 0 And rw.Offset(0, 1) = zaehler Then Name = Left(rw.Offset(0, 0), InStr(1, rw.Offset(0, 0), "(") - 1) & rw.Offset(0, _ -2) If IsError(Application.Match(Name, Arr_Station, 0)) Then ReDim Preserve Arr_Station(UBound(Arr_Station) + 1) Arr_Station(UBound(Arr_Station)) = Name For Arr_count = LBound(Arr_Station) To UBound(Arr_Station) - 1 Next Arr_count End If End If Next rw ges = ges & vbCrLf & zaehler & " Jahre" & vbTab & Arr_count Erase Arr_Station Next zaehler MsgBox ges

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Björn,
Suchst du sowas ?
Tabelle1

	A	B
1	Name	Alter
2	Name 1	23
3	Name 2	19
4	Name 3	21
5	Name 4	28
6	Name 5	16
7	Name 6	27
8	Name 7	18
9	Name 8	16
10	Name 9	34
11	Name 10	32
12	Name 11	13
13	Name 12	37
14	Name 13	17
15	Name 14	13
16	Name 15	10
17	Name 16	17
18	Name 17	20
19	Name 18	30
20	Name 19	18
21	Name 20	13

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Option Explicit

Sub machs()
    Dim arr As Variant
    Dim L As Long
    Dim myDic As Object
    Dim dieNamen As Variant
    Dim dieAlter As Variant
    Set myDic = CreateObject("scripting.Dictionary")
    arr = Range("A2:B21")
    For L = LBound(arr) To UBound(arr)
        Select Case arr(L, 2)
            Case 20 To 30: myDic(arr(L, 1)) = arr(L, 2)
        End Select
    Next
    dieNamen = myDic.keys
    dieAlter = myDic.items
    MsgBox myDic.Count & vbCrLf & Join(dieNamen, ", ") & vbCrLf & Join(dieAlter, ", ")
End Sub

ransi

Sub wieviele() Dim von&, bis& Dim wertebereich As String, ergebnisZelle As String von = Range("$D$2") ' oder hier direkt schreiben, z.B. von = 20 bis = Range("$D$3") ' oder hier direkt schreiben, z.B. bis = 30 wertebereich = "D6:D15" ' oder welcher Bereich auch immer ergebnisZelle = "G5" ' oder wohin auch immer Range(ergebnisZelle).FormulaLocal = _ "=SUMMENPRODUKT(((" & wertebereich & ")>=" & von & _ ")*1;((" & wertebereich & ")

Beliebteste Forumthreads (12 Monate)

Zahlen im Wertebereich suchen VBA

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen im Wertebereich suchen VBA

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread