Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Tomschi vom 13.12.2019, 07:17 Options

Combobox - Zellaktivierung

Guten Morgen!

Ich habe eine Exceldatei (siehe Musterdatei unter http://www.netupload.de/detail.php?img=f9d03631a701870c6d36f986772a...) 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

Antwort schreiben

Antwort 1 von M.O. vom 13.12.2019, 11:23 OptionsLösung

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.

Antwort 2 von Tomschi vom 13.12.2019, 12:34 Options

Hi M.O.!

Du bist mein Held des Tages!
DANKE!!!

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

Thanx

Tom

Antwort 3 von M.O. vom 13.12.2019, 13:32 Options

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.

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken