ich hab da mal ne frage.
Ich habe hier ein VBA (so heist das glaub ich), wo ich eine Abfrage mit einer"1" tätigen kann.
Kann mir jemand dieses umstellen, damit ich die Abfrage mit einenm "x" vornehmen kann.
Wäre echt klasse...
Über eine Antwort würde ich mich freuen
Andreas
Function MeineListe(rngListe As Range) As String
'in Tabelle z.B. =MeineListe(AN59:AO77)
'kann in der Zelle ans Auswahlfeld angepasst werden
Dim arrTmp(), n As Integer, rngC As Range
If WorksheetFunction.CountA(rngListe.Columns(1)) Then
ReDim arrTmp(WorksheetFunction.CountA(rngListe.Columns(1)) - 1)
For Each rngC In rngListe.Columns(1).Cells
If rngC.Value = 1 Then
arrTmp(n) = rngC.Offset(, 1)
n = n + 1
End If
Next
MeineListe = Join(arrTmp, ", ")
End If
End Function