Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sortieren und zum aktuellen datum wechseln

Forumthread: sortieren und zum aktuellen datum wechseln

sortieren und zum aktuellen datum wechseln
19.09.2016 08:17:16
Al
Moin' zusammen,
meine Makro funktioniert irgendwie nicht mehr. Dieser soll die Liste ( siehe Exceldatei ) sortieren nach Datum und anschließend auf den aktuellsten Datum springen. Bis Freitag hat er das noch problemlos gemacht, aber jetzt zickt er ein wenig rum...
Danke.
https://www.herber.de/bbs/user/108248.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sortieren und zum aktuellen datum wechseln
19.09.2016 08:25:56
Case
Hallo, :-)
Du hast kein aktuelles Datum (19.09.2016) in der Liste, deswegen bringt "Match" den Fehler. ;-)
Die ersten 4 Zeilen des Codes kannst Du löschen bzw. es gibt noch Anpassungspotenzial im Makro.
Servus
Case
Anzeige
Probiere es mal...
19.09.2016 08:48:03
Case
Hallo, :-)
... so: ;-)
Option Explicit
Private Sub CommandButton1_Click()
Dim lngLastRow As Long
Dim lngCalc As Long
On Error GoTo Fin
With Application
.ScreenUpdating = False
.AskToUpdateLinks = False
.EnableEvents = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
With ThisWorkbook.Worksheets("ToDoListe")
lngLastRow = IIf(Len(.Cells(.Rows.Count, 1)), _
.Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("B4:B" & lngLastRow), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("B3:K" & lngLastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = lngCalc
.DisplayAlerts = True
End With
On Error Resume Next
.Cells(Application.Match(CDbl(Date), .Columns(2), 0), 2).Select
If Err.Number = 13 Then .Cells(.Rows.Count, 2).End(xlUp).Select
On Error GoTo Fin
End With
Fin:
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Servus
Case
Anzeige
AW: Probiere es mal...
19.09.2016 11:31:55
Al
:D ja ich hab auch gemerkt, dass ich kein aktuelles Datum eingegeben hatte.
Zu deinem Code:
Ich hab meinen alten Code ersetzt durch deinen, allerdings schiebt er zum einen meine Überschriften eine Zeile nach oben ( das wäre aber nicht schlimm ), zum anderen sortiert er leider die Zeilen nicht nach Datum. Wenn ich auf den Sortier-Button klicke, passiert scheinbar nichts. Hab ich beim Einfügen des Codes einen Fehler gemacht?
Danke dir.
Anzeige
AW: In deinem Beispiel...
21.09.2016 11:08:40
Al
Klasse, hat geklappt. Danke dir.
Grüße
Danke für die Rückmeldung. o.w.T.
21.09.2016 11:42:08
Case
:-)
Anzeige

Forumthreads zu verwandten Themen

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
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
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: 1049956
3 Beiträge
Anzeige
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Zellen mit Datum - ändern
Burghard

Hallo,
ich brauche mal Hilfe.
Ich möchte in der Spalte A (Bereich A1 bis A200) in der Tabelle1 alle Zellen mit Datum finden und diese Zellen auf das Datumsformat "TTTT TT.MM.JJJJ" verändern.
Ich brauche die Lösung in VBA (nicht als bedingte Formatierung), da ich sie in ein Makro ein...
30.07.2009 09:06:19
Thread-ID: 1092422
4 Beiträge
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Datum mit Klick in andere Zelle kopieren
Josef_T

Hallo zusammen,
ich bräuchte mal eure Hilfe, für eine Formel die folgendes ausführt:
In B6:B30, habe ich Datums (Datümer?) stehen. Wenn ich dann irgendeins der Datümer in dieser Spalte anklicke, soll das jeweilige Datum in die Zelle D6 geschrieben werden. Die Datümer in Spalte B, sollen...
17.09.2009 19:18:21
Thread-ID: 1103686
7 Beiträge
Aktuellen Tag im Chart markieren?
ChrisW

Hallo Leute,
besteht die Möglichkeit und wenn ja - wie - in einem Chart eine Senkrechte linie darzustellen, die den Heutigen Tag markiert?
So ähnlich wie in meinem Screenshot simuliert:

Danke
Chris
23.09.2009 15:32:31
Thread-ID: 1104968
3 Beiträge
Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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