|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.10.2020 14:22:37 |
Peter |
|
|
 Prüfen von Werten innerhalb einer Zeile |
12.10.2020 15:02:44 |
Gast73050 |
|
|
|
12.10.2020 15:04:26 |
volti |
|
|
|
13.10.2020 07:43:10 |
Peter |
|
|
|
13.10.2020 09:15:55 |
Gast81562 |
|
|
|
13.10.2020 09:22:20 |
Peter |
|
|
|
15.10.2020 13:49:45 |
Peter |
|
|
|
15.10.2020 14:12:42 |
Gast34231 |
|
|
|
15.10.2020 14:18:00 |
Peter |
|
|
|
15.10.2020 15:26:48 |
Gast27006 |
|
|
|
15.10.2020 15:55:24 |
Gast27006 |
|
|
|
15.10.2020 15:56:34 |
Gast24777 |
|
|
|
15.10.2020 16:06:35 |
Gast88477 |
|
|
|
15.10.2020 16:18:28 |
Gast7846 |
|
|
|
15.10.2020 17:52:13 |
Gast27006 |
|
|
|
16.10.2020 09:24:34 |
Peter |
|
|
|
15.10.2020 14:16:51 |
Peter |
|
|
|
19.10.2020 09:52:24 |
Peter |
|
|
Von:
Gast73050 |
Datum:
12.10.2020 15:02:44 |
Views:
708 |
Rating:
|
Antwort:
|
Thema:
Prüfen von Werten innerhalb einer Zeile |
|
Hallo Peter,
man könnte in einer Schleife alle Zellen des Blattes durchgehen und mit der Replace-Funktion den Suchbegriff ersetzen.
Ich habe trozdem mal einen anderen Weg als Idee gewählt, der über die Find-Funktion geht, das sollte schneller gehen.
Sub Ersetze()
Dim oFinde As Range, WSh As Worksheet
Dim sSuch1 As String, sSuch2 As String, sErsetz As String
Dim sErsteAdresse As String
sSuch1 = "Apfel": sSuch2 = "Birne": sErsetz = "Apfelkuchen"
Set WSh = Sheets("Tabelle2")
Set oFinde = WSh.UsedRange.Find("Apfel", LookIn:=xlValues)
If Not oFinde Is Nothing Then
sErsteAdresse = oFinde.Address
Do
Set oFinde = WSh.UsedRange.FindNext(oFinde)
If oFinde Is Nothing Then Exit Do
If oFinde.value Like "*" & sSuch2 & "*" Then
oFinde.value = Replace(oFinde.value, sSuch1, sErsetz)
End If
Loop While Not oFinde Is Nothing And oFinde.Address <> sErsteAdresse
End If
End Sub
Probiere es einfach mal aus...
viele Grüße
Karl-Heinz
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.10.2020 14:22:37 |
Peter |
|
|
Prüfen von Werten innerhalb einer Zeile |
12.10.2020 15:02:44 |
Gast73050 |
|
|
|
12.10.2020 15:04:26 |
volti |
|
|
|
13.10.2020 07:43:10 |
Peter |
|
|
|
13.10.2020 09:15:55 |
Gast81562 |
|
|
|
13.10.2020 09:22:20 |
Peter |
|
|
|
15.10.2020 13:49:45 |
Peter |
|
|
|
15.10.2020 14:12:42 |
Gast34231 |
|
|
|
15.10.2020 14:18:00 |
Peter |
|
|
|
15.10.2020 15:26:48 |
Gast27006 |
|
|
|
15.10.2020 15:55:24 |
Gast27006 |
|
|
|
15.10.2020 15:56:34 |
Gast24777 |
|
|
|
15.10.2020 16:06:35 |
Gast88477 |
|
|
|
15.10.2020 16:18:28 |
Gast7846 |
|
|
|
15.10.2020 17:52:13 |
Gast27006 |
|
|
|
16.10.2020 09:24:34 |
Peter |
|
|
|
15.10.2020 14:16:51 |
Peter |
|
|
|
19.10.2020 09:52:24 |
Peter |
|
|