Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1668to1672
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
Inhaltsverzeichnis

Zeitrange ausgeben durch Zeile hoch und runter

Zeitrange ausgeben durch Zeile hoch und runter
17.01.2019 23:19:05
Richi
Hallo Zusammen
Habe da eine Ausgangslage die ich nicht lösen kann.
Um Fälligkeiten zu selektieren muss ich in einer Tabelle Daten
aus vorangehender Zeile und anderer Spalte eintragen. Weil die
Anzahl der Zeilen je nach Auwertung ändert, müsste dies über
ein Makro gelöst werden. Beispiel siehe Link.
https://www.herber.de/bbs/user/126887.xlsx
Initial definiert die Serialnummer eine Gruppe und innerhalb
dieser wird sortiert aufsteigend (Start_T).
Der Startpunkt beginnt immer mit dem Eintrag in Feld (Range_Von) mit "1.1.1900".
Der Endpunkt im Feld (Range_Bis) mit "31.12.9999".
Die dazwischen liegenden Felder (Range_Bis) = Feldinhalt (Range_Von) von der Zeile +1.
Die dazwischen liegenden Felder (Range_Von) = Feldinhalt (Start_T) von der aktuellen Zeile.
Ich hoffe, jemand von euch kann mir da weiter Helfen.
Liebe Gruess
Richi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: warum nicht zwei kleine Formeln? ...
18.01.2019 09:04:28
neopa
Hallo Richi,
... in J2:

=WENN(C2="";"";WENN(C2C1;1;H2)) 
und in K2:

=WENN(C2="";"";WENN(C3=C2;H3;"31.12.9999"*1))

und nach unten kopieren.
Gruß Werner
.. , - ...
AW: Zeitrange ausgeben durch Zeile hoch und runter
18.01.2019 09:25:44
Daniel
Moin Richi
Bestimmt nicht die schickste Lösung, aber funktioniert (zumindest bei mir):
Sub Zeitrange()
Dim i As Long
Cells(1, 10) = "Range_Von"
Cells(1, 11) = "Range_Bis"
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
If Cells(i + 1, 3) = Cells(i, 3) Then
If Cells(i - 1, 3)  Cells(i, 3) Then
Cells(i, 10) = "01.01.1900"
Cells(i, 11) = Format(Cells(i + 1, 8), "DD.MM.YYYY")
Else
Cells(i, 10) = Format(Cells(i, 8), "DD.MM.YYYY")
Cells(i, 11) = Format(Cells(i + 1, 8), "DD.MM.YYYY")
End If
Else
Cells(i, 10) = Format(Cells(i, 8), "DD.MM.YYYY")
Cells(i, 11) = "31.12.9999"
End If
Next i
End Sub

Anzeige
AW: Zeitrange ausgeben durch Zeile hoch und runter
21.01.2019 07:11:05
Richi
Hallo Daniel
Besten Dank. Funktioniert einwandfrei.
Liebe Gruess
Richi

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige