zugriff auf Bereichsnamen
10.04.2007 00:51:14
Thaddäus
ich habe ein Problem. In ein ComboBox habe ich alle Bereichsnamen aus der Arbeitsmappe aufgelistet.
Private Sub UserForm_Initialize()
For i = 1 To ActiveWorkbook.Names.Count
ComboBox1.AddItem ActiveWorkbook.Names(i).Name
Next
End Sub
Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Bitte Bereich auswählen !", , "Meldung"
Else
Range(ActiveWorkbook.Names(ComboBox1.ListIndex + 1)).Select
Selection.Copy
Sheets("Vergleich").Select
Range("C1").Select
ActiveSheet.Paste
End If
End Sub
Wenn ein anderes Blatt aktiviert ist funktioniert es nicht.
Warum?
Was mache ich falsch?
Danke im vorraus, Thaddäus