Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit VBA vorangehendes Zeichen löschen

Forumthread: mit VBA vorangehendes Zeichen löschen

mit VBA vorangehendes Zeichen löschen
18.02.2014 15:05:59
Micha
Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden dürfen.
Wie kann man das mittels VBA lösen?
Vielen Dank für die Hilfe und viele Grüße
Micha

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA vorangehendes Zeichen löschen
18.02.2014 15:22:11
UweD
Hallo
meinst du das so?
Sub raus()
Dim TXT$, R1$, R2$, Neu$
'Beispieldaten
TXT = "1234+abcdxxxyyy"
R1 = "+"
R2 = "xxx"
Neu = Replace(TXT, R1, "")
Neu = Replace(Neu, R2, "")
MsgBox Neu
End Sub
Gruß UweD

AW: mit VBA vorangehendes Zeichen löschen
18.02.2014 16:09:11
Micha
Hallo Tino und Uwe,
bitte entschuldigt, dass ich mich nicht präziser ausgedrückt habe. Der Text in der Zelle wäre zum Beispiel so:
"+bla+bla/bla/xxx/bla+bla+bla"
Jetzt soll nur das + direkt vor dem xxx und das xxx selbst weg. Den xxx Teilstring zu löschen ist kein Problem, aber das + will nicht.

Anzeige
AW: mit VBA vorangehendes Zeichen löschen
18.02.2014 16:27:37
Tino
Hmmm, hab ich nen Sehfehler? In deinem Bsp. steht kein + direkt vor dem xxx.
+bla+bla/bla/xxx/bla+bla+bla
Sollte dein Zellinhalt so aussehen
+bla+bla/bla+xxx/bla+bla+bla"
dann ändere in dem Code der Tabelle doch einfach die Zeile
Replace(Cells(Ze, Sp), "+", "")
in
Replace(Cells(Ze, Sp), "+xxx", "")
Damit würden + und xxx, wenn in dieser Reihenfolge, ersetzt.
Gruß Tino

Anzeige
AW: mit VBA vorangehendes Zeichen löschen
18.02.2014 17:56:13
Micha
Hi Tino,
genau das ist ja das Problem: mit direkt davor meine ich das erste + was links von xxx steht.
zur Erklärung: In dem vorgegebenen String stehen die + für "und" Verknüpfungen und die "/" für "oder" Verknüpfungen.
Viele Grüße
Micha

noch offen...
18.02.2014 18:42:17
Tino
Hi Micha,
hab da auch keine Idee, wie das Problem dann zu lösen wäre.
Deshalb offen
Gruß Tino
PS.: Eine Bsp.-Mappe wäre sicher hilfreich um zu sehen wie deine Tabelle aufgebaut ist.

Anzeige
AW: noch offen...
18.02.2014 19:03:17
Micha
Hi Tino,
trotzdem danke :)
Hier eine kleine Beispielmappe:
https://www.herber.de/bbs/user/89342.xlsm
Die Werte in Spalte A sollen in C gelöscht werden, inklusive dem ersten + das links neben dem Suchstring steht. Der neue String soll dann in Spalte D ausgegeben werden.
Für jede Hilfe wäre ich MEGA dankbar!
Grüße
Micha

Anzeige
AW: noch offen...
19.02.2014 09:00:35
UweD
Hallo nochmal
Wenn ich das richtig verstanden habe, soll das + was am nächsten VOR dem Suchbegriff steht weg und der Suchbegriff selbst.
Sieht dann so aus
Userbild
Dann versuch mal dieses. 
Sub Plus_weg()
On Error GoTo Fehler
Dim TB, TMP, i&, RA$, Wo%, Oft%
Dim LR&
Dim stCalc%
With Application
.ScreenUpdating = False
stCalc = .Calculation
.Calculation = xlCalculationManual
End With
Set TB = ActiveSheet
LR = TB.Cells(Rows.Count, 3).End(xlUp).Row 'letzte Zeile der Spalte
TB.Range("D2:D" & LR).ClearContents
For i = 2 To LR
TMP = TB.Cells(i, 3)
RA = TB.Cells(i, 1) 'was soll weg
Wo = InStr(TMP, RA) 'wo steht der Suchbegriff
If Wo > 0 Then
Oft = Len(Left(TMP, Wo - 1)) _
- Len(Application.Substitute(Left(TMP, Wo - 1), "+", "")) 'wie oft ist das +  _
vor dem SB vorhanden
TMP = Application.Substitute(TMP, "+", "", Oft) ' das letzte + vor dem SB wird gelö _
scht
End If
TB.Cells(i, 4) = Application.Substitute(TMP, RA, "") ' der SB selbst wird gelöscht
Next
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
With Application
.ScreenUpdating = True
If .Calculation  stCalc Then .Calculation = stCalc
End With
End Sub

Gruß UweD

Anzeige
AW: noch offen...
19.02.2014 12:49:47
Micha
Hi UweD,
vielen Dank!! Das funktioniert super!
Ich möchte jetzt noch einen Loop einbauen, dass zuerst xxx und dann abc der Suchbegriff sind und nach denen in allen Zellen gesucht wird. Da das abc aber zum Beispiel nicht in allen Zellen vorhanden ist, kommt ein Fehler hoch. An welcher Stelle kann ich den am besten abfangen?
Vielen Dank noch mal!
Grüße
Micha

Anzeige
AW: noch offen...
19.02.2014 13:33:51
UweD
Hallo
in welcher Spalte (oder wo) steht denn der 2. Suchbegriff? Oder ist der Fix immer abc?

AW: noch offen...
19.02.2014 13:35:06
Micha
Hi,
nein der ist nicht immer abc, aber steht in der gleichen Spalte wie das xxx.
grüße
Micha

AW: noch offen...
19.02.2014 13:36:47
UweD
verstehe ich nicht?
mach nach mal eine Neue Datei

Anzeige
AW: noch offen...
19.02.2014 13:45:44
Micha
hey,
in Spalte 3 sollen zuerst alle xxx gesucht und mit dem vorangehenden + gelöscht werden und dann nochmal das gleiche für abc. In Zeile 2 würde dann nur das xxx fehlen, 3 wäre komplett leer und in 4 würde das abc fehlen.
Danke für deine Hilfe!!
Micha
https://www.herber.de/bbs/user/89355.xlsm

Anzeige
AW: noch offen...
19.02.2014 14:08:31
UweD
Das ist mir zu hoch.
Mach doch mal Beispiele, die auch funktionieren würden..
Am besten Vorher und wie es werden soll...
Das Makro durchläuft so alle Zeilen und tauscht ZEILENWEISE
oder meinst du das so?
Tabelle1
 ABCD
1gesucht 1gesucht 2KombinationKombination neu
2xxxabc'+123/2abc/345/+346/xxx+yyy123/2abc/345/346/xxx+yyy

Tabellendarstellung in Foren Version 5.49


Anzeige
AW: noch offen...
19.02.2014 18:36:33
Micha
Hi Uwe,
ich glaube wir schreiben an einander vorbei. Ich habe jetzt aber alles so bauen können wie ich es benötige. Vielen vielen Dank für deine Hilfe mit dem +, ohne dich hätte ich das nie hingekriegt!
Viele Grüße
Micha

Forumthreads zu verwandten Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Formel in bestimmte Zellen per makro schreiben??
lisa

Hallo
Ich konnte bislang noch nicht in der Recherche finden und wende mich deshalb an EUCH Spezis.
Vieleicht könnte ihr mir helfen.
In meiner Spalte B steht immer nur in bestimmten Zellen ein Wert, nämlich Ergebnis!
In der Spalte F stehen Werte. Nun möchte ich aber ohne die Wer...
09.11.2009 13:43:49
Thread-ID: 1115507
9 Beiträge
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge
Range definieren bestimmte zellen herauslöschen
Matthias

Hallo,
ich bewundere dieses Forum und habe hier schon zahlreiche Stunden mit Makros lernen und verstehen verbracht. Mittlerweile kann ich auch schon selbst einigermaßen "programmieren" doch bei diesem Projekt versagen meine Kenntnisse total.
In Spalte A habe ich aus einem Warenwirtschaf...
07.08.2010 16:34:44
Thread-ID: 1171074
21 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
Anzeige
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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