Irgendwie steh ich seit 2 Tagen auf dem schlauch.
Ich habe z.B. eine 3'stellige Zahl und möchte in einer Tabellenspalte mit 6'stelligen Zahlen die Anzahl derer herrausfinden welche mit der 3'stelligen Zahl beginnen. Ich würd mich freuen wenn mir jemand helfen oder aber einen Denkanstoss geben kann.
Private Sub CommandButton15_Click()
Dim sBereich, sZelle As Range
Dim sArray, fArray As String
sArray = "254"
Set sBereich = Workbooks("meinedaten.xlsx").Sheets("produkte").Range("B:B")
For Each sZelle In sBereich
If Left(UCase(sZelle.Value), 3) = sArray Then
fArray = sZelle 'hier soll die Anzahl der Trefferausgegeben werden
End If
Next rZelle
End Sub
tausend dank Andreas