Range("B3").Select klappt nicht.

• Range("B3").Select klappt nicht. von Marco vom 10.10.2003 10:47:49
  • AW: Range("B3").Select klappt nicht. - von K.Rola am 10.10.2003 10:54:23
    • AW: Range("B3").Select klappt nicht. - von Marco am 10.10.2003 11:42:37

Betrifft: Range("B3").Select klappt nicht.
von: Marco
Geschrieben am: 10.10.2003 10:47:49
Hallo zusammen,

habe folgendes erstellt:

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Tag 1" Then
Worksheets("Days").Select
Range("B3").Select
End If
End Sub

Nach Auswahl in der Combo-Box wird auch nach "Days" gewechselt,aber dann kommt folgende Fehlermeldung:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden. Da steht aber leider nicht warum.
Weiß hier jemand Rat?

Gruß Marco

Betrifft: AW: Range("B3").Select klappt nicht.
von: K.Rola
Geschrieben am: 10.10.2003 10:54:23
Hallo,

schätze mal, die Combobox ist in einer Tabelle?

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Tag 1" Then
[a1].select
Worksheets("Days").Select
Range("B3").Select
End If
End Sub

Gruß K.Rola

Betrifft: AW: Range("B3").Select klappt nicht.
von: Marco
Geschrieben am: 10.10.2003 11:42:37
Das ging leider auch nicht. Habs jetzt so gemacht:

Private Sub ComboBox1_Change()

Dim ComboBoxText
Set WS = Worksheets("Days")
ComboBoxText = ComboBox1.Text
WS.Activate
Select Case ComboBoxText
Case "Tag 1"
WS.Range("B3").Select
Case "Tag 2"
WS.Range("B17").Select

u.s.w.

Marco