Hallo,
ich habe eine Tabelle in welcher tschechische Texte in den Zeilen stehen.
hier werden Sonderzeichen verwendet, die später im Browser nicht korrekt angezeigt werden.
Nun habe ich aber eine 2. Tabellenblatt in welcher diese Zeichen in der Spalte A stehen und in Spalte B der dazugehörige HTML-Befehl.
Da ich die Zeichen nicht manuell über Suchen und Ersetzen jedesmal erneut ändern will, möchte ich gerne darüber ein Macro haben.
Also Per Klick soll er A1 suchen und mit B1 ersetzen - dann A2 - B2 usw.
Bitte um Hilfe.
Vielen Dank.
ich habe eine Tabelle in welcher tschechische Texte in den
Zeilen stehen.
hier werden Sonderzeichen verwendet, die später im Browser
nicht korrekt angezeigt werden.
Nun habe ich aber eine 2. Tabellenblatt in welcher diese
Zeichen in der Spalte A stehen und in Spalte B der
dazugehörige HTML-Befehl.
Also Per Klick soll er A1 suchen und mit B1 ersetzen - dann A2
Hallo Michael,
nachfolgender Code gehört in ein Standardmodul. Ggfs. die beiden Blattnamen anpassen.
Gruß
Reinhard
Option Explicit
Sub Wechsel()
Dim Zelle As Range, Zei As Long, Z As Long, wks2 As Worksheet
Set wks2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Zei = wks2.Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Tabelle1")
For Each Zelle In .UsedRange
For Z = 1 To Zei
Zelle = Replace(Zelle, wks2.Cells(Z, 1).Value, wks2.Cells(Z, 2).Value)
Next Z
Next Zelle
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub