Service: Excel-VBA: Zellinhalte durch andere Zellinhalte ersetzen
In einem Exel-Forum wurde folgende Frage gestellt:
Ich habe eine Zelle in der ein Code steht z.B. 001-S-60.
In einer vollkommen anderen Tabelle sind alle diese Codes enthalten aber als Hyperlinks.
Nun bin ich auf der Suche nach einem VBA code,
der diesen Code (z.B. 001-S-60) in der "Hyperlink" Tabelle findet und den orginalen Code mit dem "Hyperlink" Code ersetzt.
Die Lösung:
Public Sub ReplaceStringsInRange(ByRef targetRange As Range, ByRef sourceRange As Range)
Dim targetCell As Range
Dim sourceCell As Range
For Each targetCell In targetRange
For Each sourceCell In sourceRange
If sourceCell.Text Like "*" & targetCell.Text & "*" Then
targetCell.Value = sourceCell.Value
Exit For
End If
Next
Next
End Sub
Dabei ist der erste Aufrufparameter der Funktion der Bereich eines beliebigen Arbeitsblattes in dem die Codes stehen (also z. B. '001-S-60').
Der zweite Aufrufparameter der Funktion ist der Bereich eines beliebigen (anderen) Arbeitsblattes in dem die dazugehörigen Hyperlinks stehen (also z. B. 'www.meinweb.de/produkte/001-S-60.htm').
Hinweise
Das Ganze funktioniert natürlich auch für jede beliebige andere Zeichenkettenkombination, die nichts mit Hyperlinks und Codes zu tun hat.
Arbeitsmappe mit vollständigem Beispielcode
|
Vielleicht auch interessant für Sie: VBA-Extension Tool. Produktivitätssteigerung für VBA durch Vereinfachung von Routinearbeiten. |
Wider dem Blindflug!
Wenn Sie wissen wollen, was so alles auf Ihrem PC passiert!
Einfach - Schnell - Günstig!
Tischrechner als Software.
Jetzt herunterladen und kostenlos testen!
Effektiver Arbeiten!
Tastenkombinationen können PC-Arbeit erheblich beschleunigen.
Kleine Helfer für Sie:
Eine Reihe von kostenlosen Online-Berechnungen zur Erleichterung der täglichen Arbeit.
Wissenswertes!
Sicherheit im PC-Bereich
Es existiert eine kostenlose, einfache und äußert effektive Methode, fast alle Viren, Trojaner, Würmer ...