Tabellenkalkulation

nach Datum suchen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, in meiner Tabelle wird in A7 das Startdatum eines Vorganges eingegeben. Alle weiteren Spalten in Z7 berechen das Datum aus dem Datum des Vorgänger +1. Da die Tabelle nun sehr breit geworden ist, möchte ich eine Schaltfläche anlegen, die mir immer zum aktuellen Datum springt, bzw. dies in meiner Bildschirmanzeige in der Mitte plaziert. Wer hat eine Idee ? Danke, FRANK

Antwort 1 von CaroS

Hallo tannex,

hier ist eine Idee:

Sub Heute_Mitte()
Dim i As Integer
ActiveWorkbook.Sheets(1).Select
For i = 1 To 256
If ActiveSheet.Cells(7, i) = Date Then Exit For
Next i
ActiveSheet.Cells(7, i ).Select
End Sub

Gruß,
CaroS

Antwort 2 von tannex

Hi CaroS,

DANKE !!!

Antwort 3 von nighty

hi all :)

es bedarf keiner schleife :)

gruss nighty

Sub SuchenHeutigesDatum()
Dim suche As Range
Set suche = ActiveSheet.Range("A2:IV" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(Date, LookIn:=xlValues)
If Not suche Is Nothing Then
ActiveSheet.Cells(suche.Row, suche.Column).Select
End If
End Sub

Antwort 4 von CaroS

Hallo nighty,

da hast Du schon wieder mal recht. Wenn die Suche ab A7 in der 7. Zeile stattfinden soll, muss es aber wohl

Set suche = ActiveSheet.Range(Cells(7, 1), Cells(7, ActiveSheet.Range("A7:IV7").SpecialCells(xlCellTypeLastCell).Column)).Find(Date, LookIn:=xlValues)

oder so ähnlich heißen.

Gruß,
CaroS