Select-Befehl ActiveCell
26.01.2009 17:23:00
Theo
ich habe ein kleines Problem mit einem Select-befehl. In einer ComboBox habe ich vier Einträge. Daneben habe ich einen CommandButton angeordnet. Der Code lautet:
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
If .ComboBox1 = "Tassen" Then
Application.Goto Worksheets("Tabelle2").Range("A10")
End If
If .ComboBox1 = "Teller" Then
Application.Goto Worksheets("Tabelle2").Range("A20")
End If
End With
End Sub
Ich habe auf Tabelle2 ab der 9. Zeile das Fenster fixiert. Wenn ich jetzt den CommandButton betätige, dann springt die activecell zwar auf die gewünschte Zelle, jedoch ist diese nicht immer direkt unter die zeile 9 verschoben, sondern läuft bis zur unteren linken Ecke.
Über Hilfe wäre ich Euch sehr dankbar! Ich wünsche einen schönen Abend allerseits!
Viele Grüße, Theo