Tabellenkalkulation

CD-Liste

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo zusammen! Ich habe folgendes Problem und hoffe, dass ich bei Euch geholfen werde. Ich habe in Excel eine Spalte mit (Musik)titeln und in der nächsten Spalte die zugehörigen Interpreten. Die Liste ist durcheinander. Nun will ich per Auswahlliste (das ist nicht das Problem) den Interpreten auswählen und als Ergebnis die entsprechenden Titel aufgelistet bekommen. Dabei soll die ganze Spalte durchsucht werden. Meiner Meinung nach benötige ich eine Funktion in Matrixschreibweise, da das Ergebnis ja ein Vektor (oder Matrix) sein soll. Sverweis usw. hat mir dabei nicht weitergeholfen. Hat jemand einen Tipp parat? Grüßle Svenje

Antwort 1 von Svenje

Hallo fürLau!

Danke für die Info! Nur ist es so, dass ich die Auswahl in weiteren Listen verarbeiten möchte.

Hast noch ´n Tip?

Grüßle
Svenje

Antwort 2 von piano

Hallo
Hier wäre eine Userform zu empfehlen:
1. Userform anlegen Listbox einfügen.

2. In "Diese Arbeitsmappe" bei Workbook Open folgenden Code einfügen:

Private Sub Workbook_Open()
Dim MaxLänge As Integer
MaxLänge = 10
UserForm1.ListBox1.Clear
UserForm1.ListBox1.Font = "Courier"
For i = 1 To Range("A65536").End(xlUp).Row
    If Len(Cells(i, 1)) >= MaxLänge Then
    UserForm1.ListBox1.AddItem Left(Cells(i, 1), MaxLänge) & " " & Cells(i, 2)
    Else
    UserForm1.ListBox1.AddItem Cells(i, 1) & String(MaxLänge + 1 - Len(Cells(i, 1)), " ") & Cells(i, 2)
    End If
Next i
UserForm1.Show
End Sub

und MaxLänge anpassen

3. Code zu Listbox Anlegen:

Private Sub ListBox1_Click()
i = ListBox1.ListIndex + 1
Range(Cells(i, 1), Cells(i, 2)).Select
End Sub

Die Auswahl wird selektiert un du kannst innerhalb des Listbox-Codes die weiteren Aktionen durchführen.

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
^{ob der Lösungsvorschlag Dein Problem gelöst hat.}
^{- probieren geht über studieren -}

Antwort 3 von Saarbauer

Hallo,

was verstehst du unter verarbeiten?

Kannst z.B. die Daten rüberkopieren, es werden dann nur die Sichtbaren kopiert.

Gruß

Helmut

Antwort 4 von Svenje

Hallo Piano!
muss mich jetzt wohl als völligen Scriptlaien outen.
Habe gar keine Ahnung, wie ich deine Beschreibung umsetzen soll.
OK, so wie es aussieht, gibt es keine andere Möglichkeit als ein Script zu erstellen, stimmts?

Helmut:
Das mit dem Kopieren funktioniert, nur will ich per Auswahlliste die Daten in ein weiteres Sheet übertragen.

Grüßle
Svenje