Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle auf Teilinhalte prüfen

Zelle auf Teilinhalte prüfen
18.03.2008 15:21:00
Berger
Ich habe folgende Problem.
In einer Adressdatei sind in der Spalte Vornamen auch weitere Merkmale enthalten.
z.B. Herbert und Anita ; F. ; Dr. med. Matthias; Firma; Andreas & Lotte; Prof.; usw
Jetzt möchte ich in einer zusätzlichen Spalte alle diese Einträge mit einen Fehlerkennzeichen versehen.
Ich habe versucht mit den Funktionen wenn, suchen, vergleich zu arbeiten.
Hat leider nicht funktioiert.
Wer hat dazu eine einfach Lösung?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:30:00
Ackermann
Also wenn jede Zelle in der ein ";" vorkommt Fehlerhaft ist, könnte es damit funktionieren:
Do Until ActiveCell.Offset(1, 0).Value = "" Cells.Find(What:=";", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate ActiveCell.Offset(0, 1).Value = "Fehler" Loop

AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:51:00
Ackermann
Oh ich habe vergessen dir zu sagen wie du das anwenden musst =)
Also, wenn du im Excel bist, drückst "ALT" + "F11"
danach "STRG" + "R"
dann einen Rechtsklick auf "Microsoft Excel Objekte"
gehst auf "Einfügen" und wählst dort "Modul"
dort fügst du dann folgendes ein:

Sub Fehler()
Do Until ActiveCell.Offset(1, 0).Value = ""
Cells.Find(What:=";", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Value = "Fehler"
Loop
End Sub



Dann gehst du in die Excel Datei, markierst die oberste Zeile der Spalte "Vorname", dann drückst du 

"ALT" + "F8", wählst "Fehler" und drückst ausführen.
Anzeige
AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:34:54
Ramses
Hallo
meinst du so
Tabelle2

 ABC
1Herbert und AnitaFehler 
2F.Fehler 
3Dr. med. MatthiasFehler 
4FirmaOK 
5Andreas & LotteFehler 
6Prof.Fehler 
7   

Formeln der Tabelle
ZelleFormel
B1=check_cell(A1)
B2=check_cell(A2)
B3=check_cell(A3)
B4=check_cell(A4)
B5=check_cell(A5)
B6=check_cell(A6)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das geht am einfachsten mit einer kleinen Funktion
"ALT"+"F11" drücken, dann bist du im VB-Editor
Rechte Maustaste auf "VBA-Projekt DeineMappe.xls"
Einfügen Modul
Diesen code dort einfügen
Function Check_Cell(tarC As Range) As String
    Dim errArr() As Variant
    Dim i As Integer
    'Array kann beliebig erweitert werden
    errArr = Array("und", "Prof.", "&", ".", ",", ";", "!", "?")
    For i = 0 To UBound(errArr)
        If InStr(1, tarC, errArr(i)) > 0 Then
            Check_Cell = "Fehler"
            Exit Function
        End If
    Next i

Gruss Rainer

Anzeige
AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:46:00
Berger
Hallo Ramses
Super, dass war die Lösung :-)))
Danke!

AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:53:36
Ramses
Hallo
da ist beim Kopieren aber was verloren gegangen :-)
Function Check_Cell(tarC As Range) As String
    Dim errArr() As Variant
    Dim i As Integer
    'Array kann beliebig erweitert werden
    errArr = Array("und", "Prof.", "&", ".", ",", ";", "!", "?")
    For i = 0 To UBound(errArr)
        If InStr(1, tarC, errArr(i)) > 0 Then
            Check_Cell = "Fehler"
            Exit Function
        End If
    Next i
    Check_Cell = "OK"
End Function

Gruss Rainer

Anzeige
AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:48:29
Uwe
Hi,
die Funktion von Rainer ist natürlich das Non Plus Ultra, aber da ich schon gewerkelt habe hier meine Formellösung:
=WENN(NICHT(ISTFEHLER(FINDEN(" ";A1)))+NICHT(ISTFEHLER(FINDEN(".";A1)))+NICHT(ISTFEHLER(FINDEN("/"; A1)))>0;"Fehler";"")
Kann natürlich noch erweitert werden (siehe Rainers Funktion)
Gruß
Uwe
(:o)

AW: Zelle auf Teilinhalte prüfen
18.03.2008 15:56:00
Ramses
Hallo Uwe
Daran hatte ich zuerst auch gedacht, aber mit dem ganzen nötigen "NICHT(ISTFEHLER" Zeug war es mir dann zu mühsam :-)
Da war die Funktion schneller zu schreiben, als die ganze Formel mit den bekannten Zeichen-Anforderungen :-)
Gruss Rainer

Anzeige
AW: Zelle auf Teilinhalte prüfen
18.03.2008 16:03:30
Uwe
Hi Rainer,
vor selbstgeschriebenen Funktionen habe ich immer noch ziemlichen Respekt, obwohl ich damit auch schon gearbeitet habe, aber eigentlich ist es ja wirklich einfacher als mit dem ganzen "Zeug" zu arbeiten.
Ich werde also in Zukunft etwas mutiger sein.
Gruß
Uwe
(:o)

302 Forumthreads zu ähnlichen Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Wenn/Dann mit vielen Bed. & je Bed. zwei Lösungen
Joerschi

Hallo Excel-Fans,
ich hänge grad ein einem Wenn/Dann-Problem.
Es sollen mehrere Bedingungen geprüft werden (also wahrscheinlich Einbindung der UND-Funktion) und wenn diese alle erfüllt sind, dann gibts ein Ergebnis A. Wenn nicht erfüllt, dann Ergebnis B.
Soweit klingts einfach - der...
12.02.2009 12:28:00
Thread-ID: 1050000
5 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
10
2
3
1
2
3
4
2
7
2
12
7
2
2
4
2
6
3
4
4
2
40
1