Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Zeile mit akt. Datum springen

in Zeile mit akt. Datum springen
21.09.2005 11:18:26
Heribert
Hallo und Guten Tag ins Forum,
ich habe eine Tabelle mit Zeilen des fortlfd. Datums.
Beginnend bei Zeile 13 bis 377.
In Spalte A steht jeweils das Datum, formatiert auf
TTT TT.MM.JJJ (Di 03.05.2006)
Wie kann ich nun mit einem Makro in die Zeile mit dem aktuellen Datum
springen? evtl. auch farbig hervorheben.
vielen Dank für Eure Antworten
Heribert

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

Betreff
Datum
Anwender
Anzeige
AW: in Zeile mit akt. Datum springen
21.09.2005 11:48:29
René
macro:
for i = zeileanfang to zeileende
if str(sheets("Sheetname").cells(i,1)) = str(Date) then
sheets("Sheetname").cells.activate
exit for
end if
next
falls das mit dem str(...) nicht funktioniert, einfach mal weglassen... und testen, testen, testen
das mit dem farbig hervor heben machst du mit condition formatting am besten...
Da musst du eine formel eingeben in Cell Value eqal to =today() ... dannn formatierung einstellen...
viel spaß, René
AW: in Zeile mit akt. Datum springen
21.09.2005 12:14:21
Heribert
Hallo Rene´
danke für die promte Antwort,
habe den Code ausprobiert und auch hin und her getestet,
mit Cells.Activate und Cells.Select
aber es passiert nichts.

Private Sub CommandButton4_Click()
Dim i As Integer
For i = 13 To 377
If Str(Sheets("GesPlan").Cells(i, 1)) = Str(Date) Then
'If Sheets("GesPlan").Cells(i, 1)) = Date Then
Sheets("GesPlan").Cells(i).Select 'Activate
Exit For
End If
Next
End Sub

bin hier doch gew.Maßen überfordert.
bitte um weitere Hilfe, danke
Heribert
Anzeige
AW: in Zeile mit akt. Datum springen
21.09.2005 12:10:20
PeterW
Hallo Heribert,
schau dir das mal an:

Sub ZuDatum()
Dim rng As Range
Set rng = Cells.Find(What:=Date)
Rows(rng.Row).Select
End Sub

Gruß
Peter
AW: in Zeile mit akt. Datum springen
21.09.2005 12:35:39
Heribert
Hallo Peter,
auch Dir besten Dank.
Irgendwie hab ich das Gefühl, ich seh den Wald vor lauter Bäumen nicht,
Es passiert nichts.
Hier mein Umbau/Ausbau Versuch

Private Sub CommandButton6_Click()
Dim rng As Range
Dim i As Integer
For i = 13 To 377
Set rng = Cells(i, 1).Find(What:=Date)
Next
Rows(rng.Row).Select
Exit For
End Sub

Gruss Heribert
Anzeige
AW: in Zeile mit akt. Datum springen
21.09.2005 12:52:27
PeterW
Hallo Heribert,
an dem Code muss nichts umgebaut werden:

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Cells.Find(What:=Date)
Rows(rng.Row).Select
End Sub

Die Eigenschaft "TakeFocusOnClick" des Buttons muss auf False gesetzt werden.
Gruß
Peter
AW: in Zeile mit akt. Datum springen
21.09.2005 13:18:44
Heribert
Hallo Peter,
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt

Private Sub CommandButton6_Click()
Dim rng As Range
Set rng = Cells.Find(What:=Date)
Rows(rng.Row).Select    <= gehighlitet
End Sub

kann meine Exl-Version(97) hier evtl. nicht mithalten?
Gruss Heribert
Anzeige
AW: in Zeile mit akt. Datum springen
PeterW
Hallo Heribert,
an der Version liegt es nicht, wohl eher daran, dass es in deiner Tabelle das Datum nicht gibt.
https://www.herber.de/bbs/user/26805.xls
Lade mal eine kleine Beispieldatei auf den Server, wenn dir mein Beispiel nicht hilft.
Gruß
Peter
AW: in Zeile mit akt. Datum springen
21.09.2005 13:54:01
Heribert
Hallo Peter,
das war eine schwierige Geburt.
natürlich funktionierte dein Makro von Anfang an. Mein Fehler.
Das Datum aus der ersten Zeile hatte ich mit (=A13+1) nach unten kopiert.
Also stand dann auch kein DATUM in der Zelle, oder hätte das Makro
auch hier funktionieren müsse?
Habe die Datumszellen jetzt entsprechen geändert, und alles funktioniert.
Vielen Dank für die Mühe
Gruss
Heribert
Anzeige
AW: in Zeile mit akt. Datum springen
21.09.2005 14:35:16
PeterW
Hallo Heribert,
das Makro funktioniert auch mit berechneten Daten, allerdings sollten es Daten sein, also in A14=DATUM(JAHR(A13);MONAT(A13);TAG(A13)+1) und runter kopieren.
Gruß
Peter
AW: in Zeile mit akt. Datum springen
21.09.2005 16:23:39
Heribert
thx.....
Heribert

310 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Sortieren bis zum letzten Eintrag
Werner

Hallo allerseits,
habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
Nach Markierung Bereich A2:X200 und ansch...
09.09.2008 20:45:00
Thread-ID: 1008577
6 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Anzeige
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
9
8
5
2
3
2
2
2
4
2
7
4
3
4
3
1
4
2
3
7
2
2
6
2
19