Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Funktion -Meine Liste-

Funktion -Meine Liste-
Andreas
Moin an alle hier im Forum
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Funktion -Meine Liste-
23.07.2012 08:49:42
Martin
Hallo Andreas,
das ist einfach:
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 = "x" Then 'hier stand vorher: If rngC.Value = 1
arrTmp(n) = rngC.Offset(, 1)
n = n + 1
End If
Next
MeineListe = Join(arrTmp, ", ")
End If
End Function
Viele Grüße
Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige