Syntax-Hilfe zur Worksheet_Change
02.10.2007 20:19:27
Klaus
ich brauche eine Syntax-Hilfe zur Worksheet_Change:
Wenn ich innerhalb [G6:G35] eine Änderung eingebe, soll in der Range
Target.Offset(0,First) : Target.Offset(0,Last) die Target.Value eingetragen werden.
First und Last habe ich als Integer-Variable bereits ausgelesen.
Wie bekomme ich die Range zusammen? Bisher habe ich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FColumn As Integer
Dim First As Integer
Dim Last As Integer
FColumn = Range("B1").Value
First = FColumn
Last = FColumn + 12
If Not Intersect(Target, [G6:G35]) Is Nothing Then
If Target.Count = 1 Then Range("A1").Value = Date
End If
If Target.Count = 1 Then Target.***Range von First bis Last*** = Target.Value
End Sub
***Range von First bis Last*** ist der Knackpunkt
Für Hilfe Dank im voraus
Klaus
Anzeige