Office: (Office 2013) Wenn zelle Text enthält dann

Hallo, ich möchte einen code schreiben mit dem ein bestimmter Text in eine Zelle geschrieben wird wenn in einer anderen Zelle ein bestimmtes Wort steht. Wenn in Tabelle1 Spalte B entweder Haus, Garten oder Fluss steht dann soll in Tabelle 2 Spalte A Tisch geschrieben werden. Steht aber etwas anderes drin dann schreibe Maus. Es gibt nur diese 4 Wörter.

Mein Code funktioniert wenn alles in Tabelle 1 steht, jetzt müsste der code nur angepasst werden. Eigentlich recht einfach, doch excel fügt den Text nicht ein, es passiert nichts.. Hier der Code:

Option Explicit*
Sub CopyTable()*
Dim x%, n%*

With Worksheets("Tabelle1")*
n = Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row*
*
For x = 1 To n*
If Len(Worksheets("Tabelle1").Cells(x, 2)) = "Haus" Then*
Worksheets("Tabelle2").Cells(x, 1).Value = "Tisch"*
End If*
Next x
End With
End Sub*

Ich würde mich über Hilfe freuen.
Gruß
Matthias

:)

 

der Code läuft nicht, entferne erstmal "*" durch nichts.
Es erfolgt keine Überprüfung auf die vorgegebenen Wörter. Instr()

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

 

Moin
Hab mal deine Angaben so uebernommen, ob diese stimmen kann ich nicht sehen.
Code:

gruss hary

 

Danke, ich probiers später aus.

 

Moin,

der Code tut, was er soll.
Code:

fragt nicht nach dem Inhalt, sondern nach der Länge des Zellinhaltes. Und die wird vielleicht 4 sein, aber niemals "Haus".

Anmerkung1: Stell bitte die Datei direkt hier ein, Dein Kopieren klebt an die Zeilen einen unnützen Stern.

Anmerkung2: With soll Schreibarbeit verringern. Es reicht dann, beim Bezug nur noch .Cells(... zu schreiben.

Anmerkung3: Du kennst die Else-Klausel? Und auch die Select Case-Anweisung?

 

Danke für die Hilfe. Natürlich kenne ich die else uns select case anweisung. Den code verwende ich noch an einer anderen Stelle in meiner Arbeitsmappe, da funktioniert es (Bedingung, wenn zelle leer dann) ja ist nicht das gleiche. Deswegen dachte ich dass es hier auch gehen müsste. Aber der Vorschlag von Hary ist besser.

 

ja, der Berücksichtigt aber nicht
Code:

Schreibe "Haus und Garten" in Zelle.

 

Moin Hajo
Das war die Vorgabe:

dann kann doch nur ein Wort drin stehen, oder?
und nicht: "Haus und Garten"
gruss hary

 

ich habe mich an den Betreff gehalten.

 

Ich habs verstanden, ok danke