Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

355 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige