Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range + Zahlen

Forumthread: Range + Zahlen

Range + Zahlen
24.03.2016 15:17:44
Franz
Hallo Fachleute,
in einer Spalte mit Datumsangaben gibt es immer mehrere aufeinanderfolgende, ab und zu gibt es einen Sprung. Ich versuche diese Sprünge zu ermitteln:
Sub test()
Dim rg
For Each rg In Range("Datum")
If rg.Value  rg.Offset(-1, 0).Value - 1 Then
MsgBox rg
End If
Next
End Sub
Das ergibt aber eine Fehlermeldung. Geht das grundsätzlich nicht in einer For Each ... next-Schleife? Oder mach ich noch was falsch?
Grüße
Franz

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range + Zahlen
24.03.2016 15:27:47
Fennek
Hallo Franz,
ungeprüft, also als Vermutung, msgbox rg.address. rg ist ein Range-Objekt.
Der Range "Datum" wird ja nicht im Makro'festgelegt, also muss der Name vorher gesetzt sein.
Mfg

AW: Range + Zahlen
24.03.2016 15:36:41
Franz
Hallo,
siehe bitte meine Antowrt an Uwe
Grüße
Franz

Entschuldigung, alles zurück, hab den Fehler gefun
24.03.2016 15:27:54
Franz
... tut mir leid
Franz

Anzeige
AW: Range + Zahlen
24.03.2016 15:31:56
UweD
Hallo
Es wird versucht die erste Zeile mit der davor zu vergleichen. Das geht nicht.
Wenn du auch noch eine Überschrift drin hast, macht das erst ab Zeile 2 Sinn
Entweder du Legst das in der Namensvergabe schon fest oder im Makro
so..

Sub test()
Dim rg
For Each rg In Range("Datum")
If rg.Row > 2 Then
If rg.Value  rg.Offset(-1, 0).Value + 1 Then
MsgBox rg
End If
End If
Next
End Sub
Gruß UweD
Über Rückmeldungen würde ich mich freuen

Anzeige
AW: Range + Zahlen
24.03.2016 15:36:09
Franz
Hallo Uwe,
ja, genau darauf bin ich auch grad schon gestoßen, genau das war der Fehler!
Danke und Grüße
Franz

!!!
24.03.2016 15:40:12
UweD
und aus dem Minus muss ein Plus werden
....Value + 1 Then

stimmt, hab ich auch schon - danke :-) owt
24.03.2016 15:41:34
Franz
...
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige