Hallo Stephen,

wenn es darum geht, einen Text komplett mit Format zu übertragen, so muss man das über ein VBA-Makro machen. Dafür beötigt man aber noch mehr Angaben, als wie Du hier preisgegeben hast. Man müsste das Kriterium für die Wenn-Abfrage wissen und welcher Bereich wohin kopiert werden soll.
Mal als einfaches Beispiel wenn in Zelle A1 "Haus" steht, wird der Bereich B1:C1 aus Tabellenblatt 1 in Tabellenblatt 2 kopiert.

[b]If Sheets("Tabelle1").Range("A1")  = "Haus" then
Sheets("Tabelle1").Range("B1:C1").Copy Sheets("Tabelle2").Range("B1")
End if[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}