Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfung

Verknüpfung
Andreas
Hallo an alle da draussen,
ich hab da ein problem.
Ich hab eine Tabelle mal hochgeladen, wo mein Problem besser zu sehen ist.
Ich möchte gern eine Aufzählung in einer Zelle haben, wenn vorab eine Auswahl getroffen wurde.
https://www.herber.de/bbs/user/80883.xls
Vielleicht läßt sich das auch eleganter lösen.........
Wenn einer sich das mal ansehen könnte, wäre ich dankbar.
Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verknüpfung
06.07.2012 11:33:40
Rudi
Hallo,
in ein Modul: 
Function MeineListe(rngListe As Range) As String
'in Tabelle z.B. =MeineListe(A1:B11)
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

Gruß
Rudi
AW: Verknüpfung
06.07.2012 11:57:35
Andreas
Hallo Rudi
ich mach das Arbeitsblatt auf - gehe auf den Namen des Arbeitsblattes mit rechter Maus -
Code anzeigen wählen
und füge das unter ein Modul einfach ein ?
Mein Arbeitsblatt nennt sich "Test"
Ich seh in deiner Formel keine Angabe zur Zelle B16, wo das Ergebniss landen soll.
Ist das richtig. Leider habe ich davon wenig Ahnung - aber ich arbeite daran.
Vielleicht kannst du mir über diese Klippe helfen.....
Andreas
Anzeige
AW: Verknüpfung
06.07.2012 12:43:21
Rudi
Hallo,
ich mach das Arbeitsblatt auf - gehe auf den Namen des Arbeitsblattes mit rechter Maus -
Code anzeigen wählen
schon mal gut.
Jetzt im linken Fenster rechtsklick auf deine Mappe, Einfügen-Modul und den Code da rein.
In deine Tabelle schreibst du
=MeineListe(A1:B11)
Gruß
Rudi
Danke...
06.07.2012 12:50:41
Andreas
Hallo Rudi
klappt hervorragend. Ich danke dir und schönes Wochenende
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige