Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text suchen, vergleichen und Ergebnis einsetzen

Text suchen, vergleichen und Ergebnis einsetzen
24.01.2007 12:10:28
Niels
Hallo Excel-Profis!
leider reichen meine VBA Kenntnisse nicht ein wahrscheinlich einfaches Problem zu lösen. Nach diversen Stunden gebe ich jetzt auf und suche hier Hilfe.
Ein Tabellenblatt enthält für verschiedene Kunden unterschiedliche Fehlertexte. Diese enthalten jedoch gemeinsame Kriterien. Daher will ich diesen bestimmte Fehlercodes zuordnen. Auf dem ersten Blatt im Beispiel
https://www.herber.de/bbs/user/39900.xls
sind die wiederkehrenden Fehler den Codes zugeordnet. Auf dem zweiten Blatt soll ein Macro nun die Zuordnung vornehmen und die Codes (aus dem ersten Blatt) in die dritte Spalte eintragen. Als Ergebniss sollte dann entsprechend in der dritten Spalte 3 2 2 stehen (von oben nach unten).
In der richtigen Datei sind dann über 2000 Zeilen abzuarbeiten.
Vielen lieben Dank schon mal im voraus
Niels

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text suchen, vergleichen und Ergebnis einsetzen
24.01.2007 14:34:30
IngGi
Hallo Niels,
sind die 3 Fehlercodes im ersten Tabellenblatt abschließend oder kommen da noch mehr dazu. Falls keine weiteren Fehlercodes hinzukommen, wäre das auch über folgende Formel lösbar:
 
 ABC
1KundeProblemCode
2123Der Betrag ist grösser als gesucht3
3456Kein Betrag ist gleich 252
4789Der Betrag ist gleich 2002
Formeln der Tabelle
C2 : =SVERWEIS(TEIL(B2;FINDEN("Betrag";B2);18);Codes!$A$2:$B$4;2;0)
C3 : =SVERWEIS(TEIL(B3;FINDEN("Betrag";B3);18);Codes!$A$2:$B$4;2;0)
C4 : =SVERWEIS(TEIL(B4;FINDEN("Betrag";B4);18);Codes!$A$2:$B$4;2;0)
 
Gruß Ingolf
Anzeige
AW: Text suchen, vergleichen und Ergebnis einsetzen
24.01.2007 14:56:53
Niels
Hallo Ingolf,
Danke für den Vorschlag. Leider gibt es 21 Fehlercodes und über 2000 Zeilen, denen diese Codes zugeordnet werden müssen. Außerdem habe ich mein Bespiel wohl zu einfach gehalten. Der Fahlertext ist sehr viel länger und enthält nicht immer das gemeinsame Wort "Betrag".
Daher müsste am besten ein Vergleich mit Hilfe der Zelleninhalte (aus dem Blatt "Codes") stattfinden. So ähnlich hatte ich auch versucht es zu lösen, bin aber inzwischen fast sicher, dass nur ein VBA Macro helfen kann.
Nochmals Dank für Deine Mühe
Niels
AW: Text suchen, vergleichen und Ergebnis einsetze
24.01.2007 16:30:37
Nils
Hallo,
Kannst es mal mit diesem Makro versuchen.
Zumindest bei der Beispieldatei funktioniert es.

Sub alleZellen()
Dim Zeile
Dim EndZeile
EndZeile = Cells.SpecialCells(xlCellTypeLastCell).Row
For Zeile = 2 To EndZeile
Cells(Zeile, 3).Select
Call Vergleich
Next Zeile
Cells(1, 1).Select
End Sub



Sub Vergleich()
Dim Zeile
Dim Spalte
Dim Text
Dim TextVergleich
Dim TabelleDaten
Dim TabelleCodes
Dim Ergebnis
Dim cZ
Dim cZEnde
TabelleDaten = ActiveSheet.Name
TabelleCodes = "Codes"
Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
Text = Trim(Cells(Zeile, 2).Value)
Ergebnis = ""
Sheets(TabelleCodes).Select
cZEnde = Cells.SpecialCells(xlCellTypeLastCell).Row
For cZ = 2 To cZEnde
TextVergleich = "*" & Trim(Cells(cZ, 1).Value) & "*"
If Text Like TextVergleich Then
Ergebnis = Ergebnis & Trim(Cells(cZ, 2).Value) & " "
End If
Next cZ
Sheets(TabelleDaten).Select
ActiveCell.Value = Trim(Ergebnis)
End Sub

Gruß Nils
Anzeige
AW: Text suchen, vergleichen und Ergebnis einsetze
25.01.2007 14:19:52
Niels
Super Nils,
vielen vielen Dank. Nach den notwendigen Änderungen hat das Macro perfekt mit meinen Listen funktioniert. Jetzt komme ich weiter.
Viele Grüße
Niels

314 Forumthreads zu ähnlichen Themen

Text in Lotos einsetzen
Walter

Guten Morgen Fachfrauen u. Männer,
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hi...
26.08.2008 11:25:52
Thread-ID: 1004731
12 Beiträge
Anzeige
Text in Namen ersetzen
Lorenz

Hallo!!
Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
20.01.2009 20:30:17
Thread-ID: 1041986
15 Beiträge
Formel und Text (Tage) einsetzen
Leon

Hi
Wie kann ich in einer Formel den Text (Tage) noch dazu schreiben:
Zelle A1/Zelle B2 gibt mir z.B Wert 39
Dahinter soll noch Tage stehen.
Kann mir Jemand helfen?
Gruß
Leon
06.02.2009 20:26:00
Thread-ID: 1047897
6 Beiträge
Anzeige
Doppelte Einträge in Formel nicht berücksichtigen
Claudia

Hallo zusammen,
in Spalte A (ab Zeile 2) befinden sich Kundennummern - viele davon mehrfach.
Kann mir jemand mit einer Formel helfen, dass jede Kundennummer nur einmal gezählt wird, sprich doppelte Einträge sollen nicht berücksichtigt werden.
Beispiel
1234
5423
1234
...
20.05.2009 10:30:17
Thread-ID: 1076270
9 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Text als Formel
chrissey

Hey Leut,
hab folgendes Problem:
Hab in Spalte C folgenden Text:
50*3,2+8,4
möchte nun diesen Text in Spalte F berechnet haben. Wie mach ich das,
weil =C1 oder ="="&C1 geht net.
Grüße und DANKESCHÖÖÖÖN schon mal
09.08.2009 18:29:54
Thread-ID: 1094551
5 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Formel als Text in Variable schreiben
Frank

Hallo zusammen,
in Zelle A1 habe ich eine einfache Formelverknüpfung in eine andere Datei. Sie sieht so aus:
='\\dfs\es-groups\cor\uhh\blabla\01_Forecast\2009\12_09\[datei.xls]2009'!A1
besteht die Möglichkeit die gesamte Formel (nicht das Ergebnis der Formel) in eine Textvariable zu...
27.11.2009 14:51:54
Thread-ID: 1120544
11 Beiträge
Anzeige

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
11
2
14
5
8
8
2
4
2
10
17
4
19
4
4
11
2
7
2
2
7
9
2
9
3