Dropdownliste (Datenprüfung) mit Ziel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range If Target.Cells(1).Address(False, False) = "A1" Then Set rngZelle = Rows(2).Find(DateValue("01." & Target.Value & ". " & Year(Date)), LookIn: _ =xlValues) If Not rngZelle Is Nothing Then Application.Goto reference:=rngZelle.Offset(8, 0), scroll:=True End If End If End Sub

Ich hab es lösen können, allerdings sieht das Makro glaub sehr bescheiden aus. Der Vorteil, ich kann jetzt sowohl Datum eingeben, nach dem gesucht wird, als auch die Datenprüfungsliste verwenden (ohne Prüfung auf Richtigkeit) und er springt und scrollt direkt dort hin wo ich möchte.

Sub Dropdownliste(ByRef target As Range)
Dim lngDatum As Date
If target.Address = "$A$1" Then
If target.Value = "Januar" Then
lngDatum = "01.01." & Year(Now)
ElseIf target.Value = "Februar" Then
lngDatum = "01.02." & Year(Now)
ElseIf target.Value = "März" Then
lngDatum = "01.03." & Year(Now)
ElseIf target.Value = "April" Then
lngDatum = "01.04." & Year(Now)
ElseIf target.Value = "Mai" Then
lngDatum = "01.05." & Year(Now)
ElseIf target.Value = "Juni" Then
lngDatum = "01.06." & Year(Now)
ElseIf target.Value = "Juli" Then
lngDatum = "01.07." & Year(Now)
ElseIf target.Value = "August" Then
lngDatum = "01.08." & Year(Now)
ElseIf target.Value = "September" Then
lngDatum = "01.09." & Year(Now)
ElseIf target.Value = "Oktober" Then
lngDatum = "01.10." & Year(Now)
ElseIf target.Value = "November" Then
lngDatum = "01.11." & Year(Now)
ElseIf target.Value = "Dezember" Then
lngDatum = "01.12." & Year(Now)
Else
lngDatum = Range("A1")
End If
End If
Dim rng As Range
For Each rng In Range("B2:AK2")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
Application.ScreenUpdating = False
Application.Goto rng.Offset(8, 0), True
Application.ScreenUpdating = True
GoTo Schleife_Ausgang
End If
End If
Next
ActiveSheet.Cells(15, 4).Select
ActiveWindow.ScrollColumn = 4
Schleife_Ausgang:
Set rng = Nothing
End Sub

Vl kann jemand das ganze noch "schöner" gestalten :) Es tut aber seinen Zweck :)

Das hatte ich bereits ganz am Anfang geschrieben, dass das vba von dir nicht gelaufen ist. Die Tabelle, die danach eingestellt wurde, läuft, aber ich hätte eben lieber eine vba Lösung gehabt ... vom Aufbau ist das bei mir wie die Tabelle die danach eingestellt wurde. Habe Formeln drinnen im Datum . 1 Zelle Datum +1 jede weitere.
Vl Schreibe ich es noch einmal verständlicher: Ich möchte in einem vordefinierten Feld (zum Beispiel A1) ein Dropdown-Menü (Dtarnprügung),In dem die Monate von Januar bis Dezember hinterlegt sind. Wählt man zb den März aus, so soll er direkt zum 1. März springen. Wünschenswert wäre es, wenn der Cursor auch nicht rechts, sondern links am Bildrand steht, da die Spalte A fixiert ist. Allerdings soll auch nur im Feld A1 das Ereignis ausgelöst werden, da ich sonst auf dem Blatt noch weitere Eintragungen tätige. Toll wäre es, wenn man in das Feld A1 noch alternativ ein Datum direkt rein schreiben könnte, damit es direkt auf diesen Tag springt. Gesucht werden soll das Datum, dass ich in der zweiten Zeile fortlaufend in den Spalten befindet, das Datum kreiert sich aus einer Formel. Der cursor soll dann in der gesuchten Spalte in Zeile 10 stehen.

Private Sub Worksheet_Change(ByVal Target As Range) Dim varZelle As Variant If Target.Cells(1).Address(False, False) = "A1" Then If Not IsDate(Target.Value) Then varZelle = Application.Match(CDbl(DateValue("01." & Target.Value & ". " & _ Year(Date))), Rows(2), 0) If IsNumeric(varZelle) Then Application.Goto reference:=Cells(10, varZelle), scroll:=True End If Else varZelle = Application.Match(CDbl(Target.Value), Rows(2), 0) If IsNumeric(varZelle) Then Application.Goto reference:=Cells(10, varZelle), scroll:=True End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Dropdownliste (Datenprüfung) mit Ziel

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdownliste (Datenprüfung) mit Ziel

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread