Hallo,

Geht zwar mit diesem Makro, abe4r es entspricht whrscheinlich nicht ganz deinen Vorstellungen

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Datum = Range("b1").Value
   Zeile = Datum - Range("A1").Value + 1
   Range("a" & Zeile).Select
End Sub

Gruß

Helmut

Hallo,

Also wie ich es verstehe sind die Tage von oben nach unten in "Spalte A" aufgelistet ???


wenn ja dann markierst du die Spalte "A" und drückst dann auf Strg+F und gibst einfach das Datum ein....
und dann sucht er dir das richtige datum raus

Hallo Helmut,
danke für die schnelle Antwort.
Leider kommt bei mir eine Fehlermeldung wenn ich den Code eingebe.
Woran könnte das liegen?
Gruß Sarah

Hallo,

Kopiere den Code unter Arbeitsmappe in deiner Datei ab und versuch es damit nochmal.

Sondt wären Angaben zur Meldung sinnvoll

Gruß

Helmut

Ich hätte da noch eine alternative Idee. Sie würde allerdings dazu führen, dass nicht das Datum selbst angesprungen wird, sondern das Feld rechts daneben. Ausserdem müsste das Datum im Format "_" plus Datum eingegeben werden:

1. Die Spalten A und B über den gesamten Kalender markieren
2. Einfügen - Namen - Erstellen - Aus linker Spalte - OK
3. Jetzt erhalten alle markierten Zeilen den Namen
    "_" plus (Datum in der ersten Spalte wie formatiert)
    [Das Datum kann hinterher umformatiert werden]
4. Um eine Zeile (ein Datum) anzuspringen, gibt man in das NAMENSFELD ganz
    links oben ein "_" plus (Datum ...), also beispielsweise    _10.07.2008

Hi Sarah,
ich habe mal das Makro von dem Helmut nachvollzogen und bei mir funktioniert es auch. Allerdings musste ich ein wenig tricksen. Ich verwende die Version Excel 2003. Evtl. liegt es daran.
Diese Vorgabe gab es bei mir so nicht, als ich das Makro in meine Arbeitsmappe einfügen wollte.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Bei mir stand da nur drin:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Diesen "Satz" habe ich dann ungültig gemacht und den von dem Helmut stehen lassen.
Wichtig... der Code gehört in diese Arbeitsmappe und nicht in das Tabellenblatt!
Ich hoffe das ich Dir auch ein klein wenig helfen konnte...
In diesem Sinne... have a nice Day... Gruß Helmut

hi all

ein beispiel

gruss gast123

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim suche As Range
Set suche = Workbooks(1).Worksheets(1).Range("A2:A" & Rows.Count).Find(Workbooks(1).Worksheets(1).Range("B1").Value)
If Not suche Is Nothing Then
Workbooks(1).Worksheets(1).Cells(suche.Row, 1).Activate
End If
End Sub

Wenn ich den Code eingebe kommt Laufzeitfehler 13: Typen unverträglich.

Ich kenn mich mit VBA leider so gut wie gar nicht aus und hab keine Ahnung was ich ändern muss.

Danke für eure Antworten!

hi all

getestet mit formatierten zellen als datum unter excel 2000

excel7 vielleicht ausgeschlossen

gruss gast123

Hi,
ich hab auch Excel 2000.
Formatiert mit TT.MM.JJJJ
Gruß Sarah

hi sarah

wenn du moechtest schick ich dir eine beispieldatei

wenn ja gib deine email an

gruss gast123

Hi ihr,
ich hab nochmal ein wenig mit dem Code von Helmut herumprobiert.
Nun kam dieser Laufzeitfehler:
1004: Die Methode Range für das Objekt _Global ist fehlgeschlagen.

Wisst ihr was ich da machen kann?

Grüße Sarah

Hi gast123,

hier meine mail-adresse:
sarah.amelie@yahoo.de

Gruß Sarah

hi all

hinweis fuer helmut

ein datum als zeilenangabe geht wohl eher nicht

warum workbook angaben wenn worksheet gefordert ist

warum sind die variablen nicht deklariert

gruss gast123

hi sarah

ist abgeschickt 19 uhr 33

gruss gast123

Hallo @gast,

danke für den Hinweis, aber auf die schnelle fertiggemacht und hier eingestellt und bei mir hat das Makro funktioniert. Da die Angaben von @xSarahx etwas ungenau sind hatte ich bereits mit Änderungen gerechnet.

Zu deiner Anmerkung



Geht schon, teste es mal.

Datum = Range("b1").Value

Gruß

Helmut

Vielen Dank gast123,

jetzt hats endlich geklappt. *freu*

Schönen Abend noch, ciao.