habe nachfolgendes Problem:
In meiner Mappe gibt es mehrere Sheets in denen bestimmte Zellbereiche mit Namen versehen sind (Die Tabellen sehen alle gleich aus).
Die Blattnamen und die dazugehörigen Bereichsnamen werden dann in eine Userform eingelesen (s.nachfolgender Code):
Private Sub UserForm_Initialize()
Dim i As Integer
'Wir füllen die Blattliste mit den Namen der Blätter, die Bereichsnamen enthalten
'Das Rechnungsblatt gehört nicht dazu.
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Rechnungsblatt" Then
cboTabellen.AddItem Worksheets(i).Name
Next
'Erste Tabelle vorwählen
cboTabellen.ListIndex = 0
End Sub
Die Userform besteht aus einem Kombifeld, in dem nun alle Blattnamen angezeigt werden.
Nun klickt man einen Blattnamen an und im darunter liegenden Listfeld werden alle Bereichsnamen des ausgewählten Blattes angezeigt.
Bis dahin klappt alles bestens!!!
Wenn man nun einen Bereichsnamen in dem Listfeld doppelklickt, soll der zugehörige Bereich in das Blatt "Rechnungsblatt" eingefügt werden.
Das funktioniert leider nicht richtig, denn wechsle ich im Kombifeld ein anderes Blatt aus und klicke danach einen anderen Bereichsnamen doppelt an, wird zwar der richtige Zellbereich kopiert, doch leider immer nur vom ersten Blatt???
Wer kann mir helfen?
Vielen Dank
MikeS