Range als Grafik und wieder einfügen
21.02.2005 15:42:21
Michael
ich versuche jetzt schon seit Stunden einen Bereich (1 Zeile hoch x Zeile lang)
zu per VBA zu verschieben.
z. B
In einer Tabelle sind die Zellen D8 bis G8 blau gefüllt.(es kann auch irgendeine Farbe sein)
Dieser Bereich soll jetzt frei verschoben werden können, auf z. B. L8 bis N8
(also die Zeile bleibt immer gleich).
Aber ich komme auf keine Lösung. Ich habe jetzt schon den ersten Bereich kopiert und als Grafik wieder eingefügt, aber beim verschieben der Grafik kann ich nicht feststellen wo auf dem Blatt ich mich befinden. Ich muss nämlich hinterher den Zeilen- und Spaltewert der Grafik habe.
Wie komm ich also an die Zeilen und Spaltenwerte der Grafik? oder gibt es einen anderen Weg (ohne Grafik) diesen Bereich zu erkennen und zu verschieben?
Schon mal Danke für die Hilfe
Gruß
Michael O.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim x, y, x1, länge As Integer
Dim farbwert, farbe As Double
Dim test As Variant
x = Target.Row
y = Target.Column
länge = y
farbe = Cells(x, länge).Interior.Color
farbwert = Cells(x, länge).Interior.Color
If farbwert = 16777215 Then Exit Sub
While farbe = farbwert
farbe = Cells(x, länge).Interior.Color
Cells(x, länge).Interior.Pattern = xlGrid
länge = länge + 1
Wend
Cells(x, länge - 1).Clear
With ActiveSheet
' Bereich fotografieren
.Range(Cells(x, y), Cells(x, länge - 2)).CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture
' Bild an gleicheinfügen
Range(Cells(x, y), Cells(x, länge)).Clear
.Paste _
Destination:=ActiveSheet.Range(Cells(x, y), Cells(x, länge))
End With
End Sub