Frage zur Offset-Eingenschaft des Range-Objekts
27.07.2006 10:47:17
stefanseevetal
Hab schon wieder ne kurze Frage:
Ich habe eine aus zwei (nebeneinanderliegenden) Zellen verbundene Zelle (z.B. CD4). Nun möchte ich unterhalb dieser Zelle in C7 einen Wert ablegen und in D7 auch (die Zellen daunter sind also nicht verbunden). Wenn ich das mit Offset mache, habe ich das Problem, dass der Wert, der eigentlich in D7 stehen soll, in E7 geschrieben wird wegen der verbundenen zelle oben. Beispiel-Code:
Dim suchbegriff As String, zelle
suchbegriff = Cells(2, 52)
Set zelle = ActiveSheet.Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
zelle.Offset(3, 0) = AnzahlSchaeden
zelle.Offset(3, 1) = Ausfallzeit
End If
Die Ausfallzeit wird leider durch die oben verbundene Zelle, in der der Suchbegriff steht, einen zuweit nach rechts geschrieben.
Danke und Gruß,
Stefanseevetal