Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.
In deinem Beispiel...
19.09.2016 16:57:04
Case
Hallo, :-)
... klappt das doch: ;-)
Beispieldatei...
Servus
Case
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
:-)

306 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
Anzeige
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
Anzeige
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
Vergleich Datum in Zelle mit Datum heute
Schmidtler

Hallo,
habe mal wieder ein Problem:
Ich prüfe Datum bzw. Inhalt von Zelle V1 zu Datum bzw. Inhalt von Zelle V2 und gebe dann einen Wert in die Zelle unterhalb von V2 aus. Die Prüfung OK und ISSUE funktionieren. Jedoch hat mein Marko irgendein Problem mit dem Vergleich =Date. Kann mir ei...
27.02.2009 09:59:09
Thread-ID: 1054614
5 Beiträge
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
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
11
1
4
5
16
1
2
4
2
3
1
3
2
6
2
3
5
3
4
2
1
4
11
2
1