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

Ansicht des Beitrags:
Von:
Gast19376		 Datum:
01.02.2018 18:41:57		 Views:
569		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Bedingung dann in andere Zelle Schreiben

"Like" ist gut, aber hier könnte "instr()" besser sein:

Dim b As long

For b = 2 To 10000

 If instr(1,Cells(b, 6), "Essen" > 0 Then Cells(b, 6).Offset(0, 1) = "9123"

Next

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