Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

noch 'ne Schleife mit 2 Bedingungen

noch 'ne Schleife mit 2 Bedingungen
26.04.2021 14:58:45
MB12
Hallo liebe Helfer*innen,
ich verwalte /aktualisiere eine täglich wachsende Datei (aktuell ca 7000 DS) über Vergabe von Lieferzeiten. Im beigefügten Beispiel habe ich 2 Spalten C und D mit Dropdowns und Spalte A mit Datum.
Wenn in Spalte C "LZ" ausgewählt wurde und in Spalte D "offen1" oder "offen2" sowie das aktuelle Datum (in A1) mehr als 90 Tage vor heute liegt, soll der Eintrag "LZ" im jeweiligen DS geändert werden auf "erledigt" (auch im Dropdown enthalten).
Ich vermute mal, dass eine Schleife das Makro langsam macht. Wäre hier eine "Case"-Lösung besser?
Vielen Dank im Voraus für ein kleines Makro.…
Beispieldatei:
https://www.herber.de/bbs/user/145789.xlsx
LG, Margarete

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 15:29:30
Daniel
Hi
so richtig klar ist mir noch nicht was du willst.
SELECT CASE ist keine Alternative zu einer Schleife (For-Next), sondern eine Alterternative zu IF-THEN-ELSE.
und es macht das Makro nicht wirklich schneller, sonden vereinfacht gegebenenfalls die Programmierung.
Auch Schleifen müssen nicht zwingen langsam sein, sie können auch sehr schnell sein.
Was langsam ist, ist die Bearbeitung von einzelnen Zellen.
in dem Fall könntest auch folgendes tun:
ab E4 bis zur letzten befüllten Zeile folgende Formel eintragen: 

=WENN(UND(C4="LZ";ODER(D4="offen1";D4="offen2");(HEUTE()-A4)>90);"erledigt";C4)
und dann diese Formeln kopieren und in C4 als Wert eintragen.
das wäre auch als Makro sehr schnell, wenn du das für den ganzen Zeilenbereich in einem Schritt machst.
Gruß Daniel
Anzeige
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 16:42:42
MB12
Hallo Daniel,
ja, klar, mein Fehler. Hab vielen Dank für deinen Vorschlag.
Gruß, Margarete
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 15:51:06
Herbert_Grom
Hallo MB,
wofür ist das Sheet "Listen" in deiner Arbeitsmappe?
Servus
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 15:53:32
Herbert_Grom
Hallo MB,
sorry, ich habs gesehen! Manchmal ist man nur noch blind. Dafür habe ich dir jetzt einen Vorschlag. Schau ihn dir mal an:
https://www.herber.de/bbs/user/145790.xlsm
Servus
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 16:51:54
MB12
Hallo Herbert,
danke für deinen Vorschlag. Zuerst eine Frage: Warum zu Beginn UND am Ende
Application.EnableEvents = False ?
Ich hätte es gleich reinschreiben sollen: Lieber ist mir, wenn das Makro "von Hand" gestartet würde. Dann baue ich es in die weiteren Makros ein, die ich 1x pro Monat laufen lasse.
Deine Lösung aktuell:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.EnableEvents = False
If Target.Value = "LZ" And _
Cells(Target.Row, 4) = "offen1" Or _
Cells(Target.Row, 4) = "offen2" And _
CDate(Cells(1, 1))
Könntest du das Makro anpassen?
Herzlichen Dank, Margarete
Anzeige
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 17:13:19
Herbert_Grom
Hallo Margarete,
Application.EnableEvents = False dient dazu, damit Eintragungen während des Makroablaufs nicht als weitere Aktivität behandelt werden. Dies braucht man bei einem Makro, welches aus der Tabelle ("Klassen-Module"/"Class-Module") arbeitet. Hier der Code für eine Schaltfläche:

Sub LZ()
If ActiveCell.Column = 3 Then
If ActiveCell.Value = "LZ" And _
Cells(ActiveCell.Row, 4) = "offen1" Or _
Cells(ActiveCell.Row, 4) = "offen2" And _
CDate(Cells(1, 1))
Servus
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 18:10:38
MB12
Hallo Herbert,
na klar, hätte ich mit etwas Nachdenken auch rausfinden können!!
Danke vielmals und einen schönen Frühlingsabend
Margarete
Anzeige
AW: noch 'ne Schleife mit 2 Bedingungen
26.04.2021 18:15:59
Herbert_Grom
Hallo Margarete,
da hast du allerdings recht! Aber so geht es uns doch allen immer mal wieder! Und ich nehme mir jedes Mal vor, beim nächsten Mal denke ich bestimmt vorher noch mal nach! Und dann, dann ist es doch wieder passiert. Aber wir sind Menschen und damit steht uns die Unvollkommenheit zu! Basta! ;o)=)
Servus

310 Forumthreads zu ähnlichen Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Anzeige
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
if ... then.. AND?
Sascha

einen schönen guten tag an alle,...
wie kann ich nach Then, vba 2 "Dinge" tun lassen ....(was für ein deutsch)... :)
If Sheets("Prüfen").Range("E10") = "Nein" Then
intAntb = MsgBox(Prompt:="Nicht vollständig, WEITER?", Buttons:=vbYesNo)
if intAntb = vbNo Then Exit Sub And? Userf...
29.09.2009 15:29:34
Thread-ID: 1106213
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
5
6
3
1
1
8
8
4
4
5
6
11
5
7
6
6
3
4
2
2
8
5
13