Thema Datum  Von Nutzer Rating
Antwort
01.02.2018 14:49:38 Nina
NotSolved
01.02.2018 18:41:57 Gast19376
NotSolved
Rot Wenn Bedingung dann in andere Zelle Schreiben
 01.02.2018 18:58:02 123456
Solved
02.02.2018 08:29:32 Nina
NotSolved

Ansicht des Beitrags:
Von:
123456		 Datum:
01.02.2018 18:58:02		 Views:
530		 Rating:
     
Antwort:
 Nein
Thema:
Wenn Bedingung dann in andere Zelle Schreiben

'Welcome to the Excel developer reference
Sub RefReplace()
Dim Sh As Worksheet
Dim c As Range, fa As String
Const strSearch As String = "Essen"
Const strReplace As String = "9123"

   Set Sh = ActiveSheet
      With Sh
         'used range in column(G)
         With .Range(.Cells(2, 7), .Cells(.Rows.Count, 7).End(xlUp))
            Set c = .Find(What:=strSearch, _
               LookIn:=xlValues, _
               LookAt:=xlPart, _
               MatchCase:=True)
            If Not c Is Nothing Then
               'remember first reference
               fa = c.Address
               Do
                  'replace one cell right
                  c.Offset(, 1).Value = strReplace
                  'keep searching as
                  Set c = .FindNext(c)
               'exit condition
               Loop While Not c Is Nothing And c.Address <> fa
            End If
         End With
      End With
   Set Sh = Nothing
End Sub

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
01.02.2018 14:49:38 Nina
NotSolved
01.02.2018 18:41:57 Gast19376
NotSolved
Rot Wenn Bedingung dann in andere Zelle Schreiben
 01.02.2018 18:58:02 123456
Solved
02.02.2018 08:29:32 Nina
NotSolved