anschließen an zelle

Forumthread: anschließen an zelle
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: anschließen an zelle

11.11.2005 00:17:05

joel

hallo alle,
ich nochmal,
also, nun klappt das mit diesem code ja ganz gut, dass ich nach einer abfrage eine gefundene zelle erstzen kann:
...
Set z = ZBlatt.Range("b:b").Find(what:=QBlatt.Range("f10"), LookAt:=xlWhole)
ZBlatt.Cells(z.Row, 2).Formula = ActiveCell.Formula
...
nun soll aber in die zellen rechts bzw links von dieser ersetzten ziel-zelle der wert von quelle-"f10:f15" und quelle-"g18" eingefügt werden!?
wäre schön, wenn mir dabei auch noch jemand weiterhelfen kann.
gruß
joel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: anschließen an zelle (2)

11.11.2005 02:29:44

Luc:-?
AW: Klammer vergessen...,8)).Formula -- owT

11.11.2005 02:33:19

Luc:-?
AW: Klammer vergessen...,8)).Formula -- owT

11.11.2005 18:28:03

joel01
AW: OK und Erfolg! -- owT

12.11.2005 02:55:22

Luc:-?

AW: anschließen an zelle (2)

11.11.2005 02:29:44

Luc:-?

Hallo Joel,
wie ich bereits letztens angedeutet habe sollte das bspw. so gehen:


With ZBlatt
.Cells(z.Row, 2).Formula = ActiveCell.Formula
.Cells(z.Row, 1).Formula = QBlatt.Range("G18").Formula
.Range(.Cells(z.Row, 3), .Cells(z.Row, 8).Formula = QBlatt.Range("F10:F15").Formula
End With

Grüße Luc :-?

AW: Klammer vergessen...,8)).Formula -- owT

11.11.2005 02:33:19

Luc:-?

:-?

AW: Klammer vergessen...,8)).Formula -- owT

11.11.2005 18:28:03

joel01

nun hab´s auch ich verstanden ;-)
dank für die hilfe zu so später stunde,
schönes we

AW: OK und Erfolg! -- owT

12.11.2005 02:55:22

Luc:-?