Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zum heutigen Datum springen per VBA

zum heutigen Datum springen per VBA
01.12.2005 02:45:34
MathiasW
Hallo Excel Freunde,
könnt Ihr mir helfen?
Ich habe eine Excel Tabelle und im Bereich B5:Z132
habe ich einzelne Tabellen mit jeweils einer Kalenderwoche angelegt.
In diesem Bereich sind nun in verschiedenen Zelle u.a. die einzelnen Tage
diesen Jahren eingetragen.
Ich möchte nun per VBA erreichen das die Zelle mit dem heutigen Datum selektiert wird, weiss jemand wie das geht?
vielen Dank
Mathias

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zum heutigen Datum springen per VBA
01.12.2005 03:28:45
Luc :-?
Hallo Mathias,
bei Selbsteinschätzung VBA gut ist dir sicher die Find-Methode bekannt. Du musst aus der Now-Funktion nur die zu deinen Daten passenden Teile herausfiltern und das dann als Suchbegriff verwenden und mit einem Select verbinden. Bei Bedarf kannst du das Ganze noch mit einer Event-Prozedur aufpeppen.
Gruß Luc :-?
AW: zum heutigen Datum springen per VBA
01.12.2005 05:44:33
Hajo_Zi
Hallo Mathias,
Suche aktuelles Datum
von Nepumuk
Cells(DateDiff("d", DateSerial(Year(Date), 1, 1), Date) + 4, 1).Select


AW: zum heutigen Datum springen per VBA
01.12.2005 08:40:32
PeterW
Hallo Mathias,
folgender Code sollte die Aufgabe lösen:

Sub DatumFinden()
Dim rngDatum As Range
Set rngDatum = Range("B5:Z132").Find(Date)
If Not rngDatum Is Nothing Then
rngDatum.Select
Else
MsgBox "Das Datum " & Date & " ist im Bereich B5:Z132 nicht zu finden."
End If
Set rngDatum = Nothing
End Sub

Gruß
Peter
Anzeige
AW: zum heutigen Datum springen per VBA
02.12.2005 01:33:41
MathiasW
Hallo,
erstmal vielen Dank für die viele Hilfe,
leider funktioniert keiner der angebotenen Lösungs-
vorschläge :-(
Liegt das vielleicht am doppeltem Datumswert?
Ich habe die Datei mal hochgeladen, vielleicht könnt Ihr ja nochmal schauen.
https://www.herber.de/bbs/user/28907.xls
vielen Dank
Mathias
AW: zum heutigen Datum springen per VBA
02.12.2005 17:38:15
PeterW
Hallo Mathias,
nicht schön aber funktionsfähig ist mit Version 2003 diese Lösung:

Sub DatumFormatFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("B5:Z132")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Sub
End If
End If
Next
End Sub

Gruß
Peter
Anzeige
AW: zum heutigen Datum springen per VBA
03.12.2005 00:05:50
MathiasW
Moin Peter,
vielen Dank, funktioniert super :-)
Ist es allerdings noch möglich ein kleines goodi einzubauen?
und zwar wenn es 2 gleiche Daten gibt,
also z.B. den 03.12.2005 in Zelle Z120 und B131, das dann zur weiter untenliegenden Zelle
gesprungen wird, also in Zelle B131?
vielen Dank und schönen Gruss aus Toulouse
Mathias
AW: zum heutigen Datum springen per VBA
03.12.2005 12:53:36
Reinhard
Hi Matthias, 
Option Explicit
Sub DatumFormatFinden()
Dim lngDatum As Long, zei As Long, sp As Integer
lngDatum = CLng(Date)
For zei = 132 To 5 Step -1
For sp = 26 To 2 Step -1
If IsDate(Cells(zei, sp)) And CLng(Cells(zei, sp)) = lngDatum Then
Cells(zei, sp).Select
Exit Sub
End If
Next sp
Next zei
End Sub
Gruß
Reinhard
Anzeige
AW: zum heutigen Datum springen per VBA
06.12.2005 00:25:14
MathiasW
Hallo Reinhard,
leider bekomme ich bei deinem Code immer Laufzeitfehler 13, unverträgliche Typen.
Peter hatte mir diesen Code geschickt

Function DatumFormatFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("B5:Z132")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Function
End If
End If
Next
End Function

der funktioniert auch super, bis auf die Tatsache, dass er bei gleichen Datumswerten zum ersten Datum spring und nicht zum 2ten, kannst du da nochmal gucken?
vielen Dank
Gruss Mathias
Anzeige
AW: zum heutigen Datum springen per VBA
06.12.2005 00:42:04
PeterW
Hallo Mathias,
der Fehler resultiert aus der gleichzeitigen Prüfung ob Datum UND ob Datum=Suchdatum. Getrennt geprüft sieht das so aus und sollte funktionieren:

Sub DatumFormatFinden()
Dim lngDatum As Long, zei As Long, sp As Integer
lngDatum = CLng(Date)
For zei = 132 To 5 Step -1
For sp = 26 To 2 Step -1
If IsDate(Cells(zei, sp)) Then
If CLng(Cells(zei, sp)) = lngDatum Then
Cells(zei, sp).Select
Exit Sub
End If
End If
Next
Next
End Sub

Gruß
Peter
AW: zum heutigen Datum springen per VBA
06.12.2005 01:31:14
MathiasW
Hallo Peter,
vielen Dank für deine Hilfe,
funktioniert super :-)
auch an Reinhard vielen Dank.
wünsche euch noch einen angenehmen Tag.
Gruss Mathias
Anzeige

309 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
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
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2