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

Datum ausgeben

Forumthread: Datum ausgeben

Datum ausgeben
08.01.2021 10:34:26
Andrea
Hallo,
ich habe in meiner Beispieltabelle
https://www.herber.de/bbs/user/142844.xlsx
im Blatt "KSTKO" in Zeile 2 mehrere Werte. Ist der Wert 925, dann möchte ich im Blatt "Ziel" alle Tage mit Datum untereinander ohne Leerzeilen aufführen. Ich hoffe ihr könnt mir helfen.
VG
Andrea
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum ausgeben
08.01.2021 11:00:58
UweD
Hallo
in Ziel A2: =WENNFEHLER(AGGREGAT(15;6;(KSTKO!$1:$1)/(KSTKO!$2:$2=925);ZEILE(A1));"")
und nach unten kopieren
LG UweD
AW: Datum ausgeben
08.01.2021 11:06:44
Andrea
Hallo Uwe,
danke dir funktioniert- mal wieder. Muss mich wohl oder übel mit Aggregat auseinandersetzen.
VG
Andrea
per Arrayformel mit KKLEINSTE
08.01.2021 11:02:26
WF
Hi,
in A2 der Tabelle Ziel folgende Arrayformel:
{=INDEX(KSTKO!$1:$1;KKLEINSTE(WENN(KSTKO!$2:$2=925;SPALTE(1:1));ZEILE(X1)))}
runterkopieren
WF
Eingabe Arrayformel:
Du kopierst Dir die Formel.
Dann gehst Du in die Bearbeitungszeile, löschst die {geschweiften Klammern} am Anfang und Ende und schließt ab mit GLEICHZEITIG: Strg Shift Enter (statt Enter allein). Dadurch werden diese Klammern erzeugt.
Anzeige
AW: Datum ausgeben
08.01.2021 11:07:22
Nepumuk
Hallo Andrea,
Rechtsklick auf den Tabellenreiter der Tabelle "KSTKO" - Code anzeigen. Folgende Prozedur einfügen:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range
    Set objRange = Intersect(Target, Rows(2))
    If Not objRange Is Nothing Then
        With Worksheets("Ziel")
            For Each objCell In objRange
                If objCell.Value = 925 Then _
                    .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = objCell.Offset(-1, 0).Value
            Next
        End With
        Set objRange = Nothing
    End If
End Sub

Du musst zuerst die Formeln in Spalte A der Tabelle "Ziel" löschen und dann alle 925'er Werte in Tabelle "KSTKO" mit F2-Enter nochmal bestätigen.
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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