Thema Datum  Von Nutzer Rating
Antwort
12.10.2020 14:22:37 Peter
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved

Ansicht des Beitrags:
Von:
Gast73050
Datum:
12.10.2020 15:02:44
Views:
828
Rating: Antwort:
  Ja
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

 


Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
Blau Prüfen von Werten innerhalb einer Zeile
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
13.10.2020 09:15:55 Gast81562
*****
NotSolved
13.10.2020 09:22:20 Peter
NotSolved
15.10.2020 13:49:45 Peter
NotSolved
15.10.2020 14:12:42 Gast34231
NotSolved
15.10.2020 14:18:00 Peter
NotSolved
15.10.2020 15:26:48 Gast27006
*****
NotSolved
15.10.2020 15:55:24 Gast27006
NotSolved
15.10.2020 15:56:34 Gast24777
NotSolved
15.10.2020 16:06:35 Gast88477
NotSolved
15.10.2020 16:18:28 Gast7846
NotSolved
15.10.2020 17:52:13 Gast27006
NotSolved
16.10.2020 09:24:34 Peter
NotSolved
15.10.2020 14:16:51 Peter
NotSolved
19.10.2020 09:52:24 Peter
NotSolved