Abfragen 2er Werte

Forumthread: Abfragen 2er Werte
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Abfragen 2er Werte

Abfragen 2er Werte

09.05.2025 15:33:04

Erik

Hallo zusammen,

ich habe diesen folgenden Code:



Sub Datum()

Dim c As Range

Dim Firstaddress As String

 



With Sheets("Auftragshistorie")

    Set c = .Range("A2:A1000").Find("a")

   

    

    If Not c Is Nothing Then

        Firstaddress = c.Address

        Do

            c.Offset(, 2) = Now

            Set c = .Range("A2:A1000").FindNext(c)

        Loop While c.Address > Firstaddress

    End If

End With









End Sub

Es sollten aber 2 Bedingungen abgefragt werden. Zusätzlich noch ob in der jeweiligen Zeile in der in Spalte A ein "a" gesetzt ist auch die Spalte C überprüft werden, ob diese leer ist. Nur dann soll der Zeitstempel gesetzt werden.

Vielen Dank und Gruß
Erik

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfragen 2er Werte

09.05.2025 16:32:07

UweD
AW: Abfragen 2er Werte

09.05.2025 17:11:52

Yal
Nur um dir...

09.05.2025 22:42:13

Case
AW: Abfragen 2er Werte

09.05.2025 17:08:35

Erik

AW: Abfragen 2er Werte

09.05.2025 16:32:07

UweD

HAllo

ungeprüft:





Sub Datum()

Dim c As Range

Dim Firstaddress As String

 



With Sheets("Auftragshistorie")

    Set c = .Range("A2:A1000").Find("a")

   

    

    If Not c Is Nothing Then

        Firstaddress = c.Address

        Do

            if c.Offset(, 2) ="" Then c.Offset(, 2) =Now

            Set c = .Range("A2:A1000").FindNext(c)

        Loop While c.Address > Firstaddress

    End If

End With

End Sub

AW: Abfragen 2er Werte

09.05.2025 17:11:52

Yal

Hallo Erik,

find ist nicht die Eierlegendewollmilchsau...

Wenn Du schon mit Specialcells auf die Spalte C die leeren Zellen isolierst, was wahrscheinlich nur ein Bruchteil der 1000 Zeilen sein wird, wird das Testen der Spalte A relativ schnell einzeln erfolgen:

Sub Datum()

Dim c As Range

    For Each c In Sheets("Auftragshistorie").Range("C2:C1000").SpecialCells(xlCellTypeBlanks)

        If c.Offset(, -2).Value = "a" Then c.Value = Now

    Next

End Sub

VG
Yal

Nur um dir...

09.05.2025 22:42:13

Case

Moin Erik, :-)

... eine Alternative aufzuzeigen - du könntest sowas auch gut mit Power Query lösen. Interesse? ;-)

Servus
Case

AW: Abfragen 2er Werte

09.05.2025 17:08:35

Erik

Teste es aus.

Vielen Dank!
Gruss
Erik

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