Wenn dann

Hallo zusammen,
ich erkläre es direkt an einem Beispiel, da ich denke, dass es so am verständlichsten ist. Also:
In S7 soll die Formel stehen, diese soll dann prüfen, ob in C7 ein Text steht.
Wenn in C7 ein Text steht, dann soll in F8 der Text "Einsatzmittel überprüfen"
stehen. Wenn in C7 kein Text steht, dann soll F8 leer bleiben.
Das soll dann auch fortlaufend sein, also:
In S8 soll die Formel stehen, diese soll dann prüfen, ob in C8 ein Text steht.
Wenn in C8 ein Text steht, dann soll in F9 der Text "Einsatzmittel überprüfen"
stehen. Wenn in C8 kein Text steht, dann soll F9 leer bleiben. usw...
Das würde sich bis Zeile 10000 oder so fortsetzen.
In Spalte F soll also keine Formel stehen, da da normalerweise die Einträge von Hand eingetragen werden.
Gibt es so eine Formel oder die Möglichkeit überhaupt?
MfG Bastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Alles kein Problem, Bastian,
solange es für den o.g. u.nfolgd beschriebenen simplen Weg nicht zuviele Zeilen wdn. Mal ausprobieren:
1. Spalte F, falls sie stets nur einen Text enthalten oder leer bleiben soll, mit TextPräfix (Standard ') versehen (in 1.Zelle schreiben und auf alle anderen aufkopieren solange sie noch leer sind → PräfixÜbertragung mit dem FormatPinsel gelingt nur bei Zellen mit Inhalt [außer echten FehlerWerten], nicht bei leeren!). Grund: Leerzellen können nicht formatiert wdn! (s.folgd)
2. Dann dort ein BedingtFormat des Typs 2 (Formel) anlegen →
F7-Bed1: =UND($F7="";ISTTEXT($C7))
…und für den Erfüllungsfall unter Format - Zahlenformat ein benutzerdefiniertes angeben: ;;;"Einsatzmittel überprüfen"
Der auf diese Weise angezeigte Text hat somit eine gewisse Default-Funktion, die nur bei erfüllter, definierter Bedingung wirksam wird. Eine Fml in Spalte S wird somit überflüssig, zumal deren Ergebnis per VBA-subprozedur-unterstützer UDF an Spalte F gesendet wdn müsste. Andere (reine) VBA-Lösungen sind ebenfalls möglich (vgl Sulprobil), ebenso wie auch das generelle Eintragen einer Fml in F, die solange per VBA wiederhergestellt wird, wie nichts Anderes in die jeweilige Zelle von F eingetragen wird.
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If Target.Row > 6 Then If Target.Rows.Count = 1 Then Select Case Len(Cells(Target.Row, Target.Column)) Case Is > 1: Target.Offset(, 1) = "Einsatzmittel überprüft?" Case Else: Target.Offset(, 1) = "" End Select Else MsgBox "Keine Mehrfachauswahl." Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread