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

Hallo Peter,

 

ich hatte da wohl etwas falsch interpretiert. Hier eine neue Variante, die hoffentlich Deinen Wunsch umsetzt.

Option Compare Text

Sub Ersetze2()
 Dim iZelle As Long, iSpalte As Long, iCheck As Integer
 Dim sSuch1 As String, sSuch2 As String, sErsetz As String
  
 sSuch1 = "Apfel": sSuch2 = "Birne": sErsetz = "Apfelkuchen"
 
 For iZeile = 1 To Cells(Rows.Count, "A").End(xlUp).Row
   iCheck = 0
   For iSpalte = 1 To Columns.Count
     If Cells(iZeile, iSpalte).Value Like ("*" & sSuch1 & "*") Then iCheck = (iCheck Or 1)
     If Cells(iZeile, iSpalte).Value Like ("*" & sSuch2 & "*") Then iCheck = (iCheck Or 2)
   Next iSpalte
   
   If iCheck = 3 Then
     For iSpalte = 1 To 100
       If Cells(iZeile, iSpalte).Value Like "*Apfel*" Then
          Cells(iZeile, iSpalte).Value = Replace(Cells(iZeile, iSpalte).Value, sSuch1, sErsetz)
       End If
     Next iSpalte
   End If
 
 Next iZeile
End Sub

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
12.10.2020 15:02:44 Gast73050
NotSolved
12.10.2020 15:04:26 volti
NotSolved
13.10.2020 07:43:10 Peter
NotSolved
Rot Prüfen von Werten innerhalb einer Zeile
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