Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wert ersetzen, wenn bestimmter Wert in Nebenzelle

Wert ersetzen, wenn bestimmter Wert in Nebenzelle
13.05.2008 16:24:59
sascha76er
Hallo,
ich möchte gerne folgendes lösen, wenn in der Spalte L ein WAHR auftaucht dann soll in der linken Nachbarzelle (Spalte K) ein Gesperrt hineingeschrieben werden.
Kann mir jemand hierbei helfen.
Vorab vielen Dank
Sascha

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: =WENN(L1=WAHR;"gesperrt";"") in K1 o.w.T.
13.05.2008 16:32:00
Chris
.

AW: =WENN(L1=WAHR;"gesperrt";"") in K1 o.w.T.
13.05.2008 16:36:53
sascha76er
Hallo Chris,
am liebsten wäre es mir, wenn es via VBA gelöst werden würden. Weil ich nicht weis wieviele Zeilen die Tabelle jeweils hat.
Gruß
Sascha

AW: =WENN(L1=WAHR;"gesperrt";"") in K1 o.w.T.
13.05.2008 16:48:00
Chris
Servus Sascha,
dann eben vllt. so:

Sub test1()
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 12)), Cells(Rows.Count, 12).End(xlUp).Row, Rows.Count) _
Columns("L:L").Insert
With Range("L1:L" & lngLetzte)
.FormulaR1C1 = "=IF(RC[1]=TRUE,""gesperrt"",RC[-1])"
.Formula = .Value
End With
Columns("K:K").Delete
End Sub


Gruß
Chris

Anzeige
AW: =WENN(L1=WAHR;"gesperrt";"") in K1 o.w.T.
14.05.2008 08:52:26
sascha76er
Hallo Chris,
vielen Dank, hat super funktioniert.
Gruß
Sascha

mit VBA ...
13.05.2008 16:54:00
Matthias
Hallo
In die entsprechende Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Value = True Then Target.Offset(, -1).Value = "gesperrt"
End If
End Sub


Gruß Matthias

AW: mit VBA ...
14.05.2008 08:52:56
sascha76er
Hallo Matthias,
hat super funktioniert.
Danke
Sascha

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige