AW: Hallo Schnee, eine Frage noch
18.04.2008 08:37:21
Schnee
Hi Peter,
du bist mal wieder sehr ungenau.
Ich interpretiere einfach mal diese beiden Varianten daraus:
1.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Tabelle2")
.Cells.Delete
Sheets("Tabelle1").Rows(Target.Row).Copy Destination:=.Rows(9)
.Rows(9).Interior.ColorIndex = 3
End With
End Sub
(markierte Zeile wird in Reihe 9 auf Tab2 übernommen und eingefärbt)
2.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("Tabelle2")
.Cells.Delete
.Cells(9,1) = Target
.Rows(9).Interior.ColorIndex = 3
End With
End Sub
(markierte Zelle wird in A9 auf Tab2 eingefügt und die Zeile eingefärbt)
Viel Erfolg damit
Beste Grüße,
Schnee