Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 13:03:50
Minuten mehrerer Zeiteinträge für ein Zeitintervall summier
17.05.2024 12:55:57
Tolles Forum, tolle Informationen, danke ... doch leider
17.05.2024 12:45:34
Abwesenheiten Auswertung
17.05.2024 12:39:58
Wenn Zelleninhalt dann Inhalt aus verschiedenen auswählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA 2 Bedingungen abfragen, die UND verknüpft sein sollen

VBA 2 Bedingungen abfragen, die UND verknüpft sein sollen
27.12.2023 15:34:06
Rada
Hallo liebe Excel/VBA-Experten,
ich möchte euch um eure Unterstützung bitten.
Ich möchte mit VBA (nicht mit Excel) 2 Bedingungen abfragen, die UND verknüpft sein sollen.
Für meine Datei:
Wenn A2 = A3 UND der Stichtag in Spalte D vor dem Datum in Spalte D2 bzw. D3 liegt, dann soll in Spalte E der Wert von B2 bzw. B3 stehen. Die Zeile 4 soll neu eingefügt werden und in A4 „1000Ergebnis“ stehen und in Zelle E4 das Ergebnis aus der Summe von E2 und E3.

Die Beispieldatei hat den Namen https://www.herber.de/bbs/user/165491.xlsx

Schon im Voraus vielen Dank für eure Beiträge
Rada

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA 2 Bedingungen abfragen, die UND verknüpft sein sollen
27.12.2023 20:54:13
Alwin Weisangler
Hallo Rada,

so: 


Sub Aufgabe()

    With Tabelle1

        .Cells(2, 5) = ""

        .Cells(3, 5) = ""

        .Cells(4, 1) = ""

        If .Cells(2, 1) = .Cells(3, 1) Then

            If .Cells(2, 3) > .Cells(2, 4) Then .Cells(2, 5) = 10

            If .Cells(3, 3) > .Cells(3, 4) Then .Cells(3, 5) = 10

            .Cells(4, 5) = .Cells(2, 5) + .Cells(3, 5)

            If .Cells(2, 5) > "" Or .Cells(3, 5) > "" Then .Cells(4, 1) = 1000 & " Ergebnis"

        End If

    End With

End Sub


Gruß Uwe
Anzeige
AW: VBA 2 Bedingungen abfragen, die UND verknüpft sein sollen
28.12.2023 09:40:17
Rada
Hallo Uwe,
vielen Dank für Deine Rückmeldung. Dein Beitrag hat mir sehr geholfen. Damit kann ich sehr gut mit arbeiten!

Viele Grüße, Rada

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige