ich möchte einen Range-Bereich variabel gestalten.
Die Zeile "With Range("I3:J9")" möchte ich sinngemäß so verändern:
" With ActiveCell(Offset 0,5):ActiveCell(Offset 0,6) " (Code ist so ja falsch)
Hilfe wäre nett.
Grüße Burghard
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRow, rngBereich As Range
Dim rngF As Range
Dim rngG As Range
Set rngBereich = Intersect(Range("B3:B73"), Target)
If rngBereich Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rngBereich In rngBereich.Cells
Set rngF = Range(Target.Offset(0, 4).End(xlUp).Offset(1, 0), Target.Offset(0, 4).End(xlUp). _
End(xlDown))
Set rngG = rngF.Offset(0, 1)
varRow = Application.Match(rngBereich.Value, rngG, 0)
If IsNumeric(varRow) Then
rngBereich.Value = rngF.Cells(varRow, 1).Value
Else
rngBereich.Value = Empty
End If
Next rngBereich
Application.EnableEvents = True
End Sub
Gruß Daniel