Thema: Wertermittlung in Abhängigkeit eines Zeichens in einem String

Home

Gruppe

Funktion

Problem

Bei dem 6. Zeichen in einer Zeichenfolge handelt es sich um eine 1 oder eine 2. In Abhängigkeit davon soll in einer anderen Zelle der Wert "Mann" oder "Frau" angezeigt werden.

Lösung

Folgende Formel: =WENN(TEIL(A1;6;1)="1";"Mann";"Frau")

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   Application.EnableEvents = False
   Range("A20").Value = Range("A20").Value - Range("A1").Value
   On Error GoTo ERRORHANDLER
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und TEIL

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Zeilenteile einfügen und duplizieren	String(Zahlen) in Spalten aufteilen
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
engl. Datum aufteilen	SVerweis funktioniert nicht
Anzeigename aus Outlook-Verteilerliste auslesen	PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office	Hilfe bei der INDEX Funktion
Teilstringabfrage bei bedingter Formatierung	Teilergebnis mit Summenprodukt kombiniert
Makro/VBA: Neu berechnen bis Teil 2	Zelladressen von FunktionsParametern ermitteln
Zufallslosung und Aufteilen	Teilzahlen runden / bestimmte Summe
arbeitsverteilung	Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis	Automatisches Aufteilen zweier Spalten in viele Sp
VBA das Formel Erbebnis teilweise Fett	Mittleren Teil des Zellinhalts auslesen
teilstring aus textbox in andere Textbox	Makro funktioniert nach Beenden von Excel nicht
VLOOKUP auf Links funktioniert offline	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Polynomfunktion
Teilmengen auswerten	Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings?	Autofilter und Teilergebnis
Skript funktioniert nur auf einer seite?!?!	Hyperlink auf Excel-Datei funktioniert nicht
"Mailing List" verteilen	Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung	Benutzerdefinierte Funktion
Userform mit Löschfunktion	Frage zu Wenn Dann Funktion
Wenn-Funktion	Frage zur Funktion DISAGIO
Tabelle aufteilen...	Rundungsproblem bei Teilung
Funktion um Chart zu kreieren	Wenn-Funktion verschachtelt
teil aus zelle auslesen - schon wieder	Teilbereich einer Zelle einfärben