Wenn/Dann Formel nur mit VBA lösbar?
Hallo zusammen,
würde gerne Eure Hilfe in Anspruch nehmen.
In meiner Spalte B stehen sowohl numerische als auch alphanumerische Werte wie z.B.
Spalte B
100000001
100000002
A234GF
B75RTZ
Ich möchte nun relasieren, wenn in Spalte B ein alphanumerischer Wert steht, das die ganze Zeile einen roten Hintergrund bekommt.
Hat jemand ein Idee,was ich machen könnte.
Danke vorab, Gruß meikel
Antwort schreiben
Antwort 1 von Pistenschreck vom 03.05.2019, 16:19 Options
Hi Meikel
Format -> Bedingte Formatierung -> Formel ist:
=ISTTEXT(B2)
unter Format -> Muster die Farbe auswählen
Ist für Zelle B2. Mit dem Besen in der Symbolleiste dieses Format nach unten übertragen.
Gruss Werner
Antwort 2 von Meikel vom 03.05.2019, 16:40 Options
Danke Werner für die Info,
leider geht das so nicht ganz, denn auch die Ziffern sind im Textformat und das brauch ich leider auch so.
Antwort 3 von rainberg vom 03.05.2019, 19:23 Options
Hallo Meikel,
nutze die Bedingte Formatierung mit dieser Formel
=SUMMENPRODUKT((CODE($B$1:$B$4)>57)*1)
Bezüge sind anzupassen, Leerzellen sind nicht erlaubt.
Gruß
Rainer
Antwort 4 von coros vom 03.05.2019, 19:43 Options
Hallo meikel,
von mir kommt, wie sollte es auch anders sein, eine VBA-Lösung. Nachfolgenden Code kopiere in das VBA-Projekt des Tabellenblattes, in dem er wirken soll. Der Code greift, wenn in Spalte B ein Eintrag getätigt wird. Ist der eingetragene Wert numerisch, passiert nichts. Ist er nicht numerisch, wird die Zeile der Eingabe in rot geändert.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Not IsNumeric(Target.Cells) = True Then
Rows(Target.Row).Interior.ColorIndex = 3
Else
Rows(Target.Row).Interior.ColorIndex = xlNone
End If
Application.EnableEvents = True
End Sub
Ich hoffe, Du meintest das so. Bei Fragen melden.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von Meikel vom 03.05.2019, 21:03 Options
Hallo zusammen,
sorry, das ich mich erst jetzt melde. Habe es mit dem VBA-Code von Oliver versucht, klappt perfekt.
Ich kann mich nur mal wieder bei allen für die prompte und kompetente Hilfe bedanken.
Viele Grüße, miekel