Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro:Wenn in Zelle K..Bedingung wahr dann

Forumthread: Makro:Wenn in Zelle K..Bedingung wahr dann

Makro:Wenn in Zelle K..Bedingung wahr dann
08.05.2006 08:31:14
Andre´
Hallo alle zusammen,
ich habe in den Zellen K1 bis K5000 eine Wenn Bedingung stehen. Wenn die Bedingung wahr ist, dann wird eine 3 angezeigt.
Nun möchte ich gern wenn die Bedingung wahr ist, dass dann 4 Spalten nach links und eine Zeile tiefer ein W erscheint.
Wenn sich die Bedingung ändert, dann soll das W bestehen bleiben.
Hier ein Bsp.: in Zelle K2 ist die Bedingung wahr also 3
Dann soll in Zelle G3 ein W stehen
In K2 wird die Bedingung falsch, dann soll in Zelle G3 immer noch das W stehen.
Das ganze soll permanent ausgeübt werden.
Hat jemand eine Idee
Danke im voraus!
MFG
Andre
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro:Wenn in Zelle K..Bedingung wahr dann
08.05.2006 09:44:09
Erich
Hallo André,
wenn das Ergebnis der Bedingung nur von Zellen abhängt, die in der selben Zeile wie die Bedingung stehen, sollte das so gehen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
For Each rg In Target
If Cells(rg.Row, 11) = 3 And Cells(rg.Row + 1, 7) <> "W" Then
Cells(rg.Row + 1, 7) = "W"
End If
Next rg
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Das gehört in den Code der betreffenden Tabelle.
Wenn in die Bedingung auch Werte anderer Zeilen einfließen, müssen bei jeder Eingabe/Änderung alle belegten Zellen K1:K5000 geprüft werden. Das geht auch, kostet aber mehr Zeit:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zz As Long
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
For zz = 1 To Cells(Rows.Count, 11).End(xlUp).Row
If Cells(zz, 11) = 3 And Cells(zz + 1, 7) <> "W" Then Cells(zz + 1, 7) = "W"
Next zz
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Makro:Wenn in Zelle K..Bedingung wahr dann
08.05.2006 10:32:52
Andre´
Hallo Erich,
Vielen DANK es funktioniert prima!
MFG
Andre
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige