Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Ersetzen HTML Code

Suchen und Ersetzen HTML Code
12.03.2020 14:06:08
Maris
Hallo zusammen,
ich möchte einen ziemlich langen String in einer Excel Datei finden und ersetzten. Dieser String besteht aus HTML und enthält Umbrüche. Siehe Beispieltext:
{div class="alert is--error is--rounded"}
{div class="alert--icon""}{!-- Alert message icon --> {i class="icon--element icon--warning">{/ _
i>{/div"}
{div class="alert--content""}Bei diesem Text handelt es sich um ein Beispieltext. Bitte um  _
Hilfe wie dieser ersetzt werden kann. Bin für jede Hilfe dankbar!{/div"}
{/div}
Dieser Code befinde sich in sehr vielen Zellen einer Spalte und ich möchte Ihn durch "" nichts ersetzen. Mit den normalen Excel Boardmitteln geht das nicht.Ich mußte die Klammern ändern vom HTML da sonst dieser Post nicht dargestellt werden kann.
Geht das vielleicht über VBA?
Gruß
Maris

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Ersetzen HTML Code
12.03.2020 15:15:06
UweD
Hallo
Schlecht zu testen...
Versuch mal das hier
Durchsucht werden Texte in Spalte A
Sub html_raus()
    Dim TText As String, Z As Variant
    
    TText = "<div class=""alert is--error is--rounded""><div class=""alert--icon""""><!-- Alert message icon --> <i class=""icon--element icon--warning""> </i></div""><div class=""alert--content"""">Bei diesem Text handelt es sich um ein Beispieltext. Bitte um Hilfe wie dieser ersetzt werden kann. Bin für jede Hilfe dankbar!</div""></div>"


    If WorksheetFunction.CountA(Columns(1)) > 0 Then
        For Each Z In Columns(1).SpecialCells(xlCellTypeConstants, 2)
            Z = Replace(Z, TText, "")
        Next
    End If
End Sub

Bei TText musst du genau den gewünschten Text zwischen 2 " reinkopieren.
Dann jedes im Text befindliche " um ein Weiteres ergänzen.
Also steht da
&LTdiv class="alert is--error is--rounded"&GT
ändern in
&LTdiv class=""alert is--error is--rounded""&GT
LG UweD
Anzeige
AW: Suchen und Ersetzen HTML Code
12.03.2020 15:36:38
Maris
Hallo UweD,
ich weiß nicht ob was falsch mache, aber hier eine Mustermappe mit dem Code.Das HTML ist in Spalte 26 Z der verwendete Code in Y
https://www.herber.de/bbs/user/135805.xls
Gruß
Maris
AW: Suchen und Ersetzen HTML Code
12.03.2020 15:37:28
Maris
Konnte leider kein xlsm hochladen deswegen der Code in Spalte Y
AW: Suchen und Ersetzen HTML Code
12.03.2020 17:23:20
Maris
Also mit diesem Code geht es jetzt im Beispieltext. Bei den echten Texten habe ich auch Umlaute drin, da funktioniert es wiederum nicht. Kann das an den Umlauten liegen?
Anzeige
AW: Suchen und Ersetzen HTML Code
13.03.2020 09:11:33
UweD
Hallo nochmal
Ich denke, das Hauptproblem sind die Zeileumbrüche.
Evtl. hilft das ja
- Ich habe ein neues Blatt (Tausch) angelegt
- in Spalte A stehen die zu ersetzenden Texte drin
- Diese Texte werden dann per Schleife abgearbeitet
Sub html_raus()
    Dim Tb As Worksheet, TbI As Worksheet, LR As Integer, TText As String, Z As Variant
    Dim SpI As Integer, Sp As Integer, i As Integer
    
    Set Tb = Sheets("Tabelle2")
    Set TbI = Sheets("Tausch")
    SpI = 1 'Tauschtexte stehen in Spalte A 
    Sp = 26 'Tauschen in Z 
    
    
    LR = TbI.Cells(TbI.Rows.Count, SpI).End(xlUp).Row 'letzte Zeile der Spalte 
    
    If WorksheetFunction.CountA(Columns(Sp)) > 0 Then 'sind überhaupt Texte in der Spalte vorhanden 
        For i = 1 To LR
            TText = TbI.Cells(i, SpI) ' Tauschtext 
        
            For Each Z In Columns(Sp).SpecialCells(xlCellTypeConstants, 2).Cells
                Z.Value = Replace(Z.Value, TText, "")
            Next
        Next
    End If
    
End Sub

LG UweD
Anzeige

313 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
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
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3