Ich habe einen Urlaubsplaner erstellt der über 12 Tabellenblätter geht.
Auf jedem Tabellenblatt ist ein Monat.
Möchte gern ein CommandButton erstellen der dann auf das aktuelle Tabellenblatt und Datum springt .
ist das möglich ?
Danke
Ich habe einen Urlaubsplaner erstellt der über 12 Tabellenblätter geht.
Auf jedem Tabellenblatt ist ein Monat.
Möchte gern ein CommandButton erstellen der dann auf das aktuelle Tabellenblatt und Datum springt .
ist das möglich ?
Danke
CommandButton1_Click()
dim wks1 as worksheet
on error goto ErrEnd
set wks1 = worksheets(format(date(),"mm")
wks1.activate
set rng = wks1.range("A:A").find(date())
if not rng isnothing then
rng.select
end if
exit sub
ErrEnd:
err.clear
end sub
Mal aus der Hand getippert, mal schaun obs hinhaut ;-)
Bye
Nike
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen