Supportnet / Forum / Tabellenkalkulation

Guten Morgen! Ich habe eine Exceldatei (siehe Musterdatei unter [url]http://www.netupload.de/detail.php?img=f9d03631a701870c6d36f986772a5771.xls[/url]) und möchte per Combobox eine Zelle aktivieren. Dies funktioniert auch, aber der Cursor springt nur zur hinterlegten Zelle und das Fenster "wandert" (= scrollt) nicht mit. Wird die Zelle über das "Namensfeld" aktiviert, so erfolgt ein "Windows-Scroll". Was habe ich falsch gemacht bzw. welche Einstellung muss man treffen, damit das Fenster ebenfalls aktiviert ist? Noch rasch eine andere Frage zum Thema Combobox: Wenn ich ein zweites Mal auf den selben Eintrag (z. B. Jänner) klicke, dann wird kein Code ausgeführt. Kann man dies irgendwie "umgehen"? Ciao Tom

Hallo Tom,

zu Frage 1.
Du hast bei deinem Makro ja Screenupdating = False gesetzt. Daher scrollt das Fenster ja nicht weiter.
Du musst den Code entsprechend ändern.

zu Frage 2:
Ändere das Ereignis von Change zu DropButtonClick


Hier ein Vorschlag von mir für das geänderte Makro:

Private Sub ComboBox1_DropButtonClick()

Dim combowert As String
Dim rf As String

Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="123abc"
Sheets("Urlaub").Activate

combowert = Me.ComboBox1.Value
Me.ComboBox1.Select

Select Case combowert
Case "Jänner"
rf = "M01_T01"
Case "Februar"
rf = "M02_T01"
Case "März"
rf = "M03_T01"
Case "April"
rf = "M04_T01"
Case "Mai"
rf = "M05_T01"
Case "Juni"
rf = "M06_T01"
Case "Juli"
rf = "M07_T01"
Case "August"
rf = "M08_T01"
Case "September"
rf = "M09_T01"
Case "Oktober"
rf = "M10_T01"
Case "November"
rf = "M11_T01"
Case "Dezember"
rf = "M12_T01"

Case Else
MsgBox "Combowert wurde (noch) nicht mit einem Makro verbunden!", , "Info --> aus ComboBox1_Change"
Range("C4").Select

End Select

'ActiveSheet.Protect Password:="123abc"
Application.ScreenUpdating = True

Application.Goto Reference:=rf

End Sub

Gruß

M.O.

Hi M.O.!

Du bist mein Held des Tages!
DANKE!!!

Hast Du zufällig auch für ein anderes Problem (https://supportnet.de/threads/1647406) von mir einen Lösungsansatz?

Thanx

Tom

Hallo Tom,

freut mich, dass ich dir helfen konnte.

Bei deinem anderen Thread kann die von dir hochgeladene Beispieldatei nicht gefunden werden.
Erklär doch mal genauer, wo dein Problem liegt, am besten im betreffenden
Thread.

Gruß

M.O.

• Combobox in Excel mit Daten aus Tabellenblatt füllen. Ohne Dubletten!
• Eine Combobox abhängig von einer anderen programmieren
• Combobox in Excel
• Combobox - erste Zeile bei workbook_open
• UserForm ComboBox