Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1772to1776
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
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teilstring in Zellen suchen & löschen

Teilstring in Zellen suchen & löschen
18.07.2020 12:20:05
Michael
Hallo Zusammen,
in einer Excel-Liste muss ich in zwei bis drei Spalten in jeder Zelle den Inhalt prüfen:
wenn das Zeichen: _ gefunden wird, soll der Unterstrich und der Rest erntfernt werden.
zB.: Test_123 wird gefunden, _123 soll gelöscht werden. Übrig bleibt der String Test.
Vielen Dank für Eure Unterstützung
Michael

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilstring in Zellen suchen & löschen
18.07.2020 12:55:36
Herbert_Grom
Hallo Michael,
wenn in A1 dein String steht, kannst du das mit dieser Formel in B1 lösen:
=WENN(ISTFEHLER(FINDEN("_";A1));"";LINKS(A1;FINDEN("_";A1)-1))
Servus
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:12:59
Michael
Hallo Herbert,
da ich viele Zellen in einer Excel-Liste prüfen muss, kommt eigentlich nur eine VBA-Lösung in Betracht.
Für andere Aufgaben habe mir Deine Formel gerne notiert.
Vielen Dank und Gruß
Michael
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:16:36
Herbert_Grom
Hallo Michael,
ist das Ergebnis, so wie ich es gerechnet habe, richtig?
Servus
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:36:39
Herbert_Grom
Hallo Michael,
da du mir nicht antwortest, habe ich es mal so gemacht, wie ich es denke:
Sub DatenSamnmeln()
Dim iRowIn%, iRowOut%, iLastRow%
With Sheets(2)
iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For iRowOut = 2 To iLastRow
If Cells(iRowOut, 9)  Cells(iRowOut, 2) Then
If Cells(iRowOut, 8) = "" Then
If DateValue(.Range("B" & iRowOut).Value)
Servus
Anzeige
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:38:48
Herbert_Grom
Hallo Michael,
sorry, aber da war ich auf der falschen Baustelle!
Servus
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:46:37
Michael
Hallo Herbert,
kein Problem. Ich habe Code eh nicht verstanden!
Gruß
Michael
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:09:39
Daniel
Hi
Ersetze mit der Menüfunktion ERSETZEN _* durch nichts, Haken "gesamten Zellinhalt vergleichen nicht setzen.
Ersetzen kennt die Joker ? und *
Andere Möglichkeit, diese muss aber für jede Spalte einzeln angewendet werden:
Verwende DATEN - DATENTOOLS - TEXT IN SPALTEN mit dem Unterstrich als Trennzeichen und Übernehme nur die erste Spalte.
Gruß Daniel
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:15:04
Michael
Hallo Daniel,
ist auch eine VBA-Lösung möglich?
Gruß und vielen Dank
Michael
Anzeige
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:20:28
Daniel
Hi
Du kannst fast alles, was du über Excel-Menüfunktionen ausführen kannst, auch per Makro ausführen lassen.
Wenn du den notwendigen VBA-Befehl nicht kennst, hilft dir der Makrorecorder weiter.
Gruß Daniel
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:24:05
Michael
Hallo Daniel,
dann muss ich aber in der Excel-Liste mehrere Leerspalten einfügen.
Ich habe mich schon selber an einer VBA-Lösung versucht, leider klappt es einfach nicht so richtig.
Gruß
Michael
AW: Teilstring in Zellen suchen & löschen
18.07.2020 14:32:30
Daniel
Warum musst du dann Leerspalten einfügen?
Wie sieht dein Versuch aus?
Nööö…
18.07.2020 15:39:02
Günther
und "eigentlich ja" heißt bekanntlich "eigentlich nein". ;-)
Mit deiner 2016er-Version (oder neuer) kannst du ganz ohne VBA über Daten | Abrufen und transformieren gehen und dann über das Menü Transformieren alles nach einem definierten Trennzeichen abschneiden. Ohne Formel, ohne Code.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Teilstring in Zellen suchen & löschen
18.07.2020 13:55:20
Herbert_Grom
Hallo Michael,
wenn die zu prüfenden Spalten A & B sind, geht es damit:
Sub TeilStringLöschen()
Dim iLastRow%, iCount%
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For iCount = 1 To iLastRow
If InStr(1, Range("A" & iCount), "_")  0 Then Range("A" & iCount).Value = _
Left(Range("A" & iCount), InStr(1, Range("A" & iCount), "_") - 1)
If InStr(1, Range("B" & iCount), "_")  0 Then Range("B" & iCount).Value = _
Left(Range("B" & iCount), InStr(1, Range("B" & iCount), "_") - 1)
Next iCount
End Sub
Servus
Prima
18.07.2020 14:22:23
Michael
Hallo Herbert,
das Ergebnis und die Geschwindigkeit: SUPER
Vielen Dank für Deine schöne Lösung.
Gruß
Michael
Anzeige
AW: Teilstring in Zellen suchen & löschen
18.07.2020 14:17:00
Gerd 

range("a:c:).replace "_*", "", xlpart

Gruss Gerd, ungetestet
kurz und bündig
18.07.2020 14:27:13
Michael
Hallo Gerd,
sehr beindruckend, wir dieser kurze Code die Aufgabe löst!
Vielen Dank.
Michael
AW: kurz und bündig
18.07.2020 14:31:14
Daniel
Mit dem Recorder hättest du das selber rausgefunden und hättest nicht warten müssen, Bus dir das einer zeigt
nicht ganz
18.07.2020 14:54:19
Michael
aber nur fast: 
Sub Makro1()
Range("A1:A22").Select
Selection.Replace What:="_*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Na ja ...
18.07.2020 15:07:08
lupo1
Rekorder verwenden heißt nicht nur aufzeichnen, sondern auch am Ergebnis lernen.
Vor allem, was man von den Argumenten löschen kann.
Anzeige
AW: nicht ganz
18.07.2020 15:29:22
Daniel
Wichtig ist, dass du rausfindest, dass der Befehl "Replacee" heißt .
Der Rest ist Basiswissen, das man immer anwenden kann:
1. Select/Selection ist unnötig , wenn man den Befehl direkt an das Objekt anhängt
2. Man muss nicht immer alle Parameter eines Befehls angeben
3. Wenn man die Parameter in der richtigen Reihenfolge angibt, darf man die Benennung weglassen (what:=; replacement:=, ...)
Mit dem Reorder kannst du viel selberrausfinden, ohne jedesmal im Forumfragen zu müsssen.
Geuß Daniel

236 Forumthreads zu ähnlichen Themen

zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
3 Beiträge
Anzeige
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
Teilinhalte aus Zellen löschen
Der

Hallo da draußen,
ich möchte aus einer Zelle die ersten x Zeichen von links löschen und die Restlichen beibehalten. Mit dem Befehl left(cells(R,C),x) kann ich auf diese Zeichen zugreifen und sie auch auslesen. Wie kann ich sie nun löschen?
Danke für Eure Hilfe!
Grüße aus der Hauptst...
25.03.2009 15:20:24
Thread-ID: 1063841
9 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Alle Leerzeichen vorne und hinten löschen?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Zellen alle Leerzeichen des Zellinhalts vorne und hinten löschen?
Viele Grüße,
Selma
04.08.2009 10:23:57
Thread-ID: 1093411
3 Beiträge
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 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
2
5
4
7
9
8
1
3
2
2
2
3
7
4
9
5
6
5
2
4
2
6
3
6
12