Thema Datum  Von Nutzer Rating
Antwort
12.10.2020 14:22:37 Peter
NotSolved
12.10.2020 15:02:44 Gast73050
NotSolved
Rot Prüfen von Werten innerhalb einer Zeile
 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:
volti		 Datum:
12.10.2020 15:04:26		 Views:
853		 Rating:
     
Antwort:
  Ja
Thema:
Prüfen von Werten innerhalb einer Zeile

Kurze Anpassung. Hatte was vergessen.

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(sSuch1, 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

VG KH

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
12.10.2020 15:02:44 Gast73050
NotSolved
Rot Prüfen von Werten innerhalb einer Zeile
 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