Zellenwert teilen, in listenfeld, verlinken
17.03.2009 03:28:10
Tobias
ich weiß nicht ob das möglich ist, aber ich versuche folgendes:
In B habe ich ordnernamen, kommagetrennt:
z.b. B10
"Ordner1, Ordner2, Ordner3"
Wenn B10 selektiert ist, und ich das Makro auslöse, möchte ich, dass ein Listenfeld auftaucht mit dem Namen der 3 Ordner untereinander. Das hätt ich soweit geschafft:
Public Sub Teilen_verlinken()
'Dim listboxes As Object
Dim t As String
Dim text As String
Dim count As Integer
ActiveSheet.listboxes("listbox").RemoveAllItems
For count = 1 To 6 ' counts titles
t = strParse(ActiveCell.Value, ",", count)
If t "" Then
text = text + t & vbCrLf
ActiveSheet.listboxes("listbox").AddItem t
End If
Next
End Sub
Jetzt möchte ich noch, das bei Klick(oder doppelklick, egal) auf einen der listenfeld-einträge der jew. ordner geöffnet wird, und das listenfeld verschwindet!
Ist das möglich?
Vielen Dank im Voraus,
Tobias
