Offset als Range
11.11.2015 14:14:16
DanielMa
ich bin bei folgender Aufgabenstellung:
Ich lasse den Wert der angewählten Zelle auslesen. Dieser wird in einer Tabelle eines anderen Tabellenblattes gesucht.
Wird er gefunden, so müssen die acht danebenstehenden Felder kopiert werden und an einer anderen Stelle eingefügt werden.
Mein Problem liegt an dem Punkt, an dem ich angeben muss, was kopiert wird.
Ich dachte da an die Offsetfunktion, bei der ich eine Range von Offset(0,1) bis (0,8) angebe, ausgehend von dem gefundenen Wert.
Mein bisheriger Code:
Sub Historie()
Dim wert As Variant
wert = ActiveCell
If IsNumeric(wert) Then
With Worksheets("Historie").Range("B63:B90")
Set c = .Find(wert, LookIn:=xlValues)
'kann man mit folgenden Zeilen etwas anfangen?
'c.Address.Offset(0, 1)
'c.Address.Offset(0, 8)
'.Range........Copy
.Range("B59:J59").PasteSpecial xlPasteValuesAndNumberFormats
End With
Else
Exit Sub
End If
End Sub
Vielen Dank im Voraus :)Liebe Grüße,
Daniel