Office: Zellenwert=Tab.-Blatt-Name; Benutzen für ListFillRange

Hallo

Diese Anweisung bringt mich im Moment zur Verzweiflung!
Wer kann helfen?

Private Sub Worksheet_Activate()
Sheets("ProvKlient(2)").Range("AA23").Value = x
ComboBox2.ListFillRange = Sheets(x).Range("I2:I1000")
End Sub

In Zelle AA23 steht der Tabellenblattname, welchen ich für die Anweisung der ComboBox brauche.
Beim Debuggen - Einzelschritt wird mit ständig 0 als Inhalt dieser Zelle angezeigt
Weiß nicht, ob ich zudem unbedingt die Anweisung mit:
Sheets("ProvKlient(2)"
beginnen muß, da die Anweisung im aktuell geöffneten Blatt ausgeführt wird.

Mit "Active Worksheet" gibt's Probleme

Kann man vielleicht die Anweisung auch direkt in "Eigenschaften" der ComboBox "ListFillRange" so einfügen, dass Zelle "AA23"-Inhalt als Seite angenommen wird?

Etwa so"'"&$AA23&"'!I2:I1000")

Gruß Timi und vielen Dank vorab!

 

Hallo!

Ist die erste Zeile nicht verkehrtherum?
Müsste es nicht so heißen?

x = Sheets("ProvKlient(2)").Range("AA23").Value

 

Kann es an dieser Kleinigkeit liegen?

Es handelt sich doch im Prinzip um eine Gleichung!
Probiere es aus!

Gruß Timi

 

Hab' dies jetzt im Worksheet stehen, und es klappt immer noch nicht!

Private Sub Worksheet_Activate()
x = Sheets("ProvKlient(2)").Range("AA23").Value
ComboBox2.ListFillRange = Sheets(x)("I2:I1000")
End Sub

Hast Du 'ne weitere Idee?

 

Hallo!

Probier mal sowas:

Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox2.Clear
x = Sheets("ProvKlient(2)").Range("AA23").Value
For i = 2 To 1000
ComboBox2.AddItem Sheets(x).Cells(i, 9)
Next i
End Sub

PS: Die Reihenfolge einer Zuweisung ist entscheidend!
Natürlich hast du recht, wenn du sagst "es handelt sich doch im Prinzip um eine Gleichung".
Aber: Schau mal dieses Beispiel

Sub test1()
Dim x, y
x = 10
y = 20
'Diese Anweisung weist x den Wert von y zu:
x = y
'Nun haben beide den Wert 20
End Sub

Sub test2()
Dim x, y
x = 10
y = 20
'Diese Anweisung weist y den Wert von x zu:
y = x
'Nun haben beide den Wert 10
End Sub

 

Hallo!

"Probier mal sowas:" funzt auch nicht!

Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox2.Clear
x = Sheets("ProvKlient(2)").Range("AA23").Value
For i = 2 To 1000
ComboBox2.AddItem Sheets(x).Cells(i, 9)
Next i
End Sub

Dumme Frage:
Muß ich diese ComboBox für diese Funktion freischalten?
Sie zeigt in keinsterweise Reaktion. Auch wenn ich die Tabellenseite als Bezug in den Eigenschaften direkt eingebe um zu testen:

Bsp.
2008-001!$I$2:$I$1000

wird sie nicht angenommen und gleich wieder gelöscht!

Gruß Timi

 

Hallo!

Bei mir schon...

 

Hallo,

bitte tue mir mal den Gefallen und benenne " Tabelle4 + Tabelle2 " um in " 2008-001 + 2008-002 ", und versuche dann mal, die ComboBox zu füllen.
Ich glaube, dass liegt an den Zahlen?
Vielleicht will "ListFillRange" keine Zahlen am Anfang stehen haben? So wie hier:

2008-001!$I$2:$I$1000. Sondern Buchstaben?

Diese Eingabe verweigert die ComboBox selbst dann, wenn ich sie zu Testzwecken in den Eigenschaften befülle! Wenn vorne keine Zahl steht, sondern ein Tabellenblatt mit Buchstaben, geht es komischerweise!


Kommt mir fast so vor!

Gruß Timi

 

Hallo!

Hab' ich gemacht und es funktioniert genauso gut...

 

Hallo,

hab' ich Sch....... an den Fingern?? ( Schmierseife)

Alles genauso, wie bei Deinem Beispiel!

Erhalte Laufzeitfehler9
Index außerhalb des gültigen Bereichs
zudem im Debugger x=leer

Ich weiß, der Computer ist so dumm, wie sein Benutzer! Aber hier bin ich am verzweifeln!

Gruß Timi

 

Hallo!

Handelt es sich wirklich um die Zelle AA23?
Steht auch wirklich "2008-001" in der Zelle, oder sieht es durch ein spezielles Zahlenformat nur so aus?
Versuch mal ".Value" durch ".Text" zu ersetzen.

Sonst bin ich ratlos...

 

Hallo,

ZelleAA23 bildet sich hieraus :=LINKS(AA24;8). Diese Formel steht in Zelle AA23.
Sie macht aus: 2008-001, Name, Wohnort das Ergebnis: "2008-001", welches auch der Tabellenblattname ist.
Formatiert ist diese Zelle als Text.
Zahl usw. schon ausprobiert! geht dann auch nicht!
Hab' Deine Formel auch schon angepasst, da sie ja im aktuellen Tabellenblatt steht:

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer, x
ComboBox2.Clear
x = Range("AA23").Value ' hier angepasst
For i = 2 To 1000
ComboBox2.AddItem Sheets(x).Cells(i, 9)
Next i
End Sub

Bei Deiner Combo funzt es! Auch nach der Umbennung!

 

Neue Erkenntnis!!!!

Aufbau meiner Seite:

In ComboBox1 stehen die Kundennummern, welche auch gleichzeitig die Tabellenblattnamen sind zusammen mit Name des Kunden und Wohnort!

Bsp.: 2008-001 - Fritz Muster - Musterstadt

Dieser Ihalt wird in AA24 übertragen!
AA23 macht mittels =LINKS(AA24;8) einfach den Tabellenblattnamen/Kundennummer daraus.

ComboBox2 braucht diesen Tabellenblattnamen um in dieser Tabelle nach der Spalte I2:I1000 Ausschau zu halten.
Daher diese Anweisung.

Jetzt habe ich festgestellt, dass wenn ich ComboBox1 einen anderen Kunden auswähle, sich zwar AA23 verändert aber nicht die Zuweisung in ComboBox2.
Diese ändert sich erst, nachdem ich das aktuelle Blatt schließe und wieder öffne!
Gruß Timi

 

Hallo!

Das hast du Excel auch ausdrücklich so befohlen!

Versuch's doch mal mit einem Worksheet_Change- oder Worksheet_Calculate-Ereignis.

 

Ich könnt' Dich drücken!

Mit dieser Anweisung klappt's!

Private Sub Worksheet_Calculate()
Dim i As Integer, x
ComboBox1.Clear
x = Range("AA23").Text
For i = 3 To 1000
ComboBox1.AddItem Sheets(x).Cells(i, 9)
Next i
End Sub

Man merkt direkt, dass die ComboBox2 nach Änderung der ComboBox1-Auswahl sich neu berechnet ( kurzes Abhacken )
Danach steht das gewünschte Ergebnis drin!

Einfach genial! Vieeeeelen Dank!

Gruß Timi

So kann man mir mit kleinen Sachen eine große Freude machen!