Lässt sich dieser ComboBox-Code verändern?
16.09.2004 14:32:59
Stefan
Ich hab eine ComboBox die mit Tabellennamen gefüllt wird. Wenn dann dort eine T
Tabelle ausgewählt wird, wird aus derjenigen ein Bereich kopiert.
nun sehe ich aber in der Box immer nur die Namen, ich habe aber in jeder Tabelle eine zelle (A1) mit dem Datum. Dieses möchte ich in der Box hinter de´m Namen haben, damit man den Namen und das Datum sieht.
Das funktioniert aber so nicht, da die Auswahl ja nur über den Tab.-Namen läuft.
Wenn ich also AddItem "tabellename" & AddItem "Zelle A1" nehme, funktioniert es nicht. Ist ja klar!
Private Sub ComboBox1_GotFocus()
Dim i%
With Sheets("WP01calculation").ComboBox1
.Clear
For i = 5 To Sheets.Count
.AddItem Sheets(i).Name
Next
End With
End Sub
Private Sub ComboBox1_Change()
Dim strShName$
strShName = Sheets("WP01calculation").ComboBox1.Text
If strShName <> "" Then
Sheets(strShName).Range("A4:X361").Copy _
Sheets("WP01calculation").Range("A4")
TextBox1 = Sheets(strShName).Range("G2")
End If
Rows("13").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Range("A12:X12").AutoFilter
End Sub
Wie könnte ich das abändern, damit das Datum zwar hinter dem Namen angezeigt wird, aber bei einer Auswahl nicht weiter berücksichtigt wird?
Gruß, S.