Suchbegriff in Array
14.04.2019 01:51:47
BLangmantl
in die erste Dimension steht der Tabellenname und in der Zweiten die Tabellenart.
wie kann ich die Anzal der Datensätze aus der zweiten Dimension ermitteln, die ein bestimmtes Kriterium (Namen erfüllen?)
Dim arrTabellen() As String
Dim lngGT As Long
Dim lngBT As Long
For i = 1 To ThisWorkbook.Sheets.Count
Parameter.Cells(1, 1).Offset(i, 0).Value = ""
Parameter.Cells(1, 1).Offset(i, 1).Value = ""
Parameter.Cells(1, 1).Offset(i, 0).Value = Sheets(i).Name
Select Case Left(Sheets(i).Name, 2)
Case Is = "A_"
Parameter.Cells(1, 1).Offset(i, 1).Value = "Admintabelle"
Case Is = "E_"
Parameter.Cells(1, 1).Offset(i, 1).Value = "Entwicklertabelle"
Case Else
Parameter.Cells(1, 1).Offset(i, 1).Value = "Benutzertabelle"
End Select
Next i
Parameter.Range("A:B").EntireColumn.AutoFit
ReDim arrTabellen(1 To Sheets.Count, 1 To 2)
For i = 1 To Sheets.Count
arrTabellen(i, 1) = Parameter.Cells(1, 1).Offset(i, 0).Value
arrTabellen(i, 2) = Parameter.Cells(1, 1).Offset(i, 1).Value
Next i
lngGT = UBound(arrTabellen)
Parameter.Range("E2").Value = lngGT
End Sub
also ich habe gedacht, dass ich da mit Ubound weiterkomme, aber wie kann ich nur Datensätze mit einem bestimmten Namen Namen innerhalb des Array zählen?
Also die Anzahl bestimmte Datensätze aus arrTabellen(i, 2)