Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.12.2023 15:24:19
Bereich definieren und nach mehreren Kriterien Zählen
01.12.2023 15:11:13
Wenn Funktion nicht zutrifft nächste Zeile überprüfen
01.12.2023 15:08:00
Vier Shapes - Ovale zeitverzögert aus und einblenden
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button zum aktuellen Datum

Button zum aktuellen Datum
10.07.2008 10:12:25
Udo
Hallo,
trotz intensiver suche, hab ich ne menge gefunden aber nichts funktioniert, da ich von vba wenig verstehe.
Nun, ich habe einen Button in meiner ExcelTabelle, und bei betätigen, soll er auf das aktuelle datum springen. (Fehlt nur der Code zum springen)
Ab Zeile C11 gehts los, per Formel Kalenderwoche 1 den Monatg suchen. =(DATUM($AI$12;1;7*B14-3-WOCHENTAG("2/"&$AI$12;3)))
Ab Zeile C15 gehts weiter mit C11+1 (Ja die einzelnen Daten sind mit 3 Zeilen verbunden. Geht leider nicht anders.)
Die Wochen sind mit einer leerzeile unterbrochen.
Gruß
Udo
P.S.: Wenn der Curser dann bei dem aktuellen datum in Zelle D springen würde und da ich das Fenster geteilt habe. die Woche ganz oben steht wäre klasse!!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button zum aktuellen Datum
10.07.2008 10:23:00
Specke
Hallo Udo,
ich hoffe, ich habe Dich richtig verstanden.

Private Sub CommandButton1_Click()
With Worksheets(1).Range("c11:c500")
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets(1).Range("D" & c.Row).Activate
End If
End With
End Sub


Gruß Specke

AW: Button zum aktuellen Datum
10.07.2008 11:11:00
Udo
Hallo Specke,
Dein Code funktioniert leider nicht.
Fehlermeldung:
Laufzeitfehler 1004
Die Find eigenschaft des Range-Objektes kann nicht zugeordnet werden.
Bei deinem Code habe ich nur die Zeilen geändert:
With Worksheets(1).Range("c11:c1170")
Trotzdem schonmal Danke für die schnelle antwort.
Udo

Anzeige
AW: Button zum aktuellen Datum
10.07.2008 11:30:00
Specke
Hallo Udo,
ich lese gerade, dass Du "nur" Version 97 hast. Da gibt es kein Find :-(
Probier es mal so (ungetestet)
for each zelle in Worksheets(1).Range("c11:c1170")
if zelle.value=date then
zelle.offset(0,1).activate
exit for
end if
next zelle
Gruß Specke

AW: Button zum aktuellen Datum
10.07.2008 11:38:00
Udo
Hy,
Ich such schon seit einiger Zeit den Code.
Klappt prima!!!
Danke
Gruß
Udo

303 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
VBA Code auch mit aktuellem Datum statt CommandBut
alex

Hallo zusammen,
Den Code in dieser Datei:
https://www.herber.de/bbs/user/55491.xls
schrieb mir ein Forumsmitglied heute Vormittag.
Der funzt so wie ich mir das vorgestellt habe.
Jedoch bräuchte ich das Ding mit aktuellem Datum (also immer am "Heute" ausgerichtet) statt mit...
18.09.2008 22:47:00
Thread-ID: 1010873
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Datei löscht sich zu einem bestimmten Datum selbst
wolle

Hallo an alle,
ich würde gerne wissen ob es möglich ist, dass sich eine Excel - Datei zu einem bestimmten Datum selbst löschen kann.
Wie stell ich mir das vor?
Diese Datei wird an verschiedene Personen zu Übungszwecken ausgegeben. D.h. das Original wird mittels Speichermedium (USB-...
12.01.2009 20:54:00
Thread-ID: 1039018
6 Beiträge
Zeile mit aktuellem Datum auslesen
Horst

Hallo Excel-Gemeinde!
Wie kann ich bei untenstehendem VBA-Code angeben, dass von der B.xls die Spalte AA jener Zeile A ausgelesen wird, welche dem aktuellem Systemdatum entspricht (Spalte A enthält Datumswerte, Spalte AA Beträge).
Das müsste irgendwie mit "Application.Match(CLng(Date)"...
11.02.2009 14:23:00
Thread-ID: 1049595
17 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge

Links zu Excel-Dialogen

CommandButton
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige