Indirekter Zugriff auf Auswahlliste

Kay · 1970-01-01T00:00:00+00:00

Hallo, ich habe nach folgender Formel mehrere Namen definiert. =BEREICH.VERSCHIEBEN(cccccc!$A$2;0;0;ANZAHL(cccccc!$A:$A)) Wenn ich die Namen bei Gültigkeitsprüfung eintrage, kann ich ohne Probleme die Auswahlliste öffnen. und auswählen. Erste Auswahlliste G4. Zweite Auswahlliste G6. Wenn ich von G6 über INDIREKT =INDIREKT(G4) verschachteln möchte, bekomme ich bei der Gültigkeitsprüfung folgende Fehlermeldung. Die Quelle untersucht gerade einen möglichen Fehler. Soll fortgefahren werden? Die Auswahlliste lässt sich auch nicht öffnen. Wo liegt der Fehler? Gruß Kay

Hallo Boris,
das hatte ich übersehen.
Hallo Kay,
schreibe unter die Tabelle folgenden Code.

Option Explicit
Private Sub Worksheet_Activate()
'* 11.06.09                                       *
'* erstellt von Karin, http://beverly.excelhost.de*
'* beverly@excelhost.de                           *
Dim InSpalte As Integer
Dim arrNamen()
Dim loStart As Long
Dim loZeile As Long
Dim inNamen As Integer
With ThisWorkbook.Worksheets("Data")
For loZeile = 1 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp) _
.Row, .Rows.Count)
If .Cells(loZeile, 1)  "" Then
ReDim Preserve arrNamen(0 To inNamen)
arrNamen(inNamen) = .Cells(loZeile, 1)
inNamen = inNamen + 1
End If
Next loZeile
loStart = 1
For InSpalte = 1 To IIf(IsEmpty(.Cells(1, .Columns.Count)), .Cells(1, .Columns.Count). _
End(xlToLeft).Column, .Columns.Count)
If .Cells(1, InSpalte)  "" Then
On Error Resume Next
ThisWorkbook.Names(.Cells(1, InSpalte)).Delete
On Error GoTo 0
ThisWorkbook.Names.Add .Cells(1, InSpalte), RefersTo:=.Range(.Cells(2, InSpalte) _
, .Cells(IIf(IsEmpty(.Cells(.Rows.Count, InSpalte)), .Cells(.Rows.Count, InSpalte).End(xlUp).Row, .Rows.Count), InSpalte))
End If
Next InSpalte
End With
End Sub

Gruß Hajo

Hallo Jaho,
das mit dem aktivieren wird es wohl sein. Nur mit deiner Kurzschreibweise komme ich nicht so ganz klar. Die Online Hilfe von Ecxel bringt mich auch nicht weiter. Kannst Du das etwas ausführlicher Schreiben oder hast Du einen Link zu einem Tutorial wo ich das nachlesen kann?
Im Visual Basic Editor bin ich auf Tabelle2(Data) gegangen. Habe auf der rechten Seite von (Allgemein) auf Worksheet um gestellt und dann Activate ausgewählt. Folgender Text erscheint:

Private Sub Worksheet_Activate()
End Sub

Jetzt habe ich Tabelle1(Tabelle1) ausgewählt. Im Worksheet sehe ich den einkopierten Code und das Activate ausgewählt ist.
Ich hoffe das war so richtig? Oder habe ich an der falschen Stelle gearbeitet? Oder an der richtigen Stelle falsch gearbeitet?
Gruß Kay

Indirekter Zugriff auf Auswahlliste

Forumthread: Indirekter Zugriff auf Auswahlliste

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Indirekter Zugriff auf Auswahlliste

Forumthread: Indirekter Zugriff auf Auswahlliste

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread