Wenn eine Variable1 in der gleichen Zelle wie Variable2

Forumthread: Wenn eine Variable1 in der gleichen Zelle wie Variable2
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 21:35:10

Wennerfaellt

Hallo.
Mit der Varablen "Aktuelle" prüfe und bearbeite ich der Reihe nach alle Zellen, zwischen den Varablen "Anfang" und "Ende"
Die Variable "Aktuelle" wandert nach unten:

Set Aktuelle = Aktuelle.Offset(1, 0)

Mit

Do Until Aktuelle = Ende

vergleicht der Code den Inhalt der Zellen. Ist der Inhalt einer Zelle gleich dem Inhalt der Zelle mit der Variablen "Ende" endet die Do-Schleife.
Wie muss ich den Code schreiben, damit die Schleife erst endet, wenn "Anfang" in der selben Zelle ist wie "Ende"?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 21:56:50

Uduuh
AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 21:59:54

Ulf
AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 22:14:02

Wennerfaellt
AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 22:01:35

Yal

AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 21:56:50

Uduuh

Hallo,
'n bissken mehr Code w&aumlre hilfreich.

Gruß aus'm Pott
Udo

AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 21:59:54

Ulf

Hi,
gleiche Zeile

Aktuelle.Row=Ende.Row

gleiche Adresse

Aktuelle.Address=Ende.Address

hth
Ulf

AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 22:14:02

Wennerfaellt

Ulf, danke.

das ist es, auf den Punkt

Das wird mir an anderen Stellen auch noch helfen.

Bei den anderen bedanke ich mich natürlich auch...

Gruss Wennerfaellt.

AW: Wenn eine Variable1 in der gleichen Zelle wie Variable2

05.03.2025 22:01:35

Yal

Hallo Wenner,

wenn sowohl Anfangs- als auch Ende-Zelle bekannt sind, würde ich einen For Each bevorzugen:

Sub AlleZelle_durchlaufen(Anfang As Range, Ende As Range)

Dim Z As Range



    For Each Z In Range(Anfang, Ende)

        Debug.Print Z.Address

    Next

End Sub



Sub Test()

    With Worksheets(1)

        AlleZelle_durchlaufen .Range("A2"), .Range("D2")

        Debug.Print String(10, "-")

        AlleZelle_durchlaufen .Range("A2"), .Range("C4")

    End With

End Sub