Wie gelangt man schnell zur benachbarten Zelle, basierend auf der Auswahl in einer Excel-Dropdown-Liste?
Haben Sie sich schon einmal vorgestellt, mit einem Klick auf einen Eintrag in einer Dropdown-Liste direkt zur zugehörigen benachbarten Zelle in Excel zu springen? Nehmen wir an, in Zelle C1 befindet sich eine Dropdown-Liste mit Wochentagen, Spalte A enthält Datumsangaben und Spalte B die dazugehörigen Uhrzeiten. Wählen Sie nun beispielsweise „Donnerstag“ aus der Liste aus, springt der Cursor automatisch zu Zelle B5 – jener Zelle in Spalte B, die sich neben dem Donnerstag in Spalte A befindet. Obwohl Excel keine integrierte Funktion für dieses Szenario bietet, lässt es sich mithilfe eines leistungsstarken VBA-Codes problemlos umsetzen.
Zur benachbarten Zelle basierend auf dem Wert in der Dropdown-Liste per VBA springen
Zur benachbarten Zelle basierend auf dem Wert in der Dropdown-Liste per VBA springen
1. Wählen Sie einen Tag aus der Dropdown-Liste aus, den Sie verwenden möchten, und drücken Sie anschließend Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul ein.
VBA: Zur benachbarten Zelle basierend auf dem Wert springen
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. Drücken Sie die F5-Taste, und der Cursor springt zur benachbarten Zelle – basierend auf dem Wert in der Dropdown-Liste.
Im VBA-Code ist A2:A8 der Bereich, der die Werte enthält, die in der Dropdown-Liste angezeigt werden. Sie können diesen Bezug jederzeit an Ihre Bedürfnisse anpassen.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins