Thema Datum  Von Nutzer Rating
Antwort
Rot Wenn Bedingung dann in andere Zelle Schreiben
 01.02.2018 14:49:38 Nina
NotSolved
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:
Nina		 Datum:
01.02.2018 14:49:38		 Views:
914		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Bedingung dann in andere Zelle Schreiben
Hallo, ich bin noch am Anfang meiner Makro-Karriere und bei einem Teil meines neuen Makros hapert es noch ein bisschen... Das Makro soll in Spalte G die Zellen suchen, in denen unter anderem das Wort "Essen" enthalten ist und dann in Spalte H, aber der gleichen Zeile "9123" schreiben. Bisher sieht mein Code so aus, er sucht auch alle Zellen ab, aber schreibt irgendwie in keine Zelle "9123": Dim b As Integer For b = 2 To 10000 Rows(b).Select If Cells(b, 6).Value Like "*Essen*" Then Cells(b, 6).Offset(0, 1) = "9123" End If Next Vielen Dank für Eure Hilfe!

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