Bereich definieren

[JJürgen]

Hallo Gemeide,
habe diesen Code

Sub Eins()
Dim Y As Long
    Y = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row + 1
    ActiveSheet.Cells(Y, 4).Value = "1"
End Sub

Der Bereich in dem ich die 1 eingeben kann ist von D2:D10,

Wie kann ich das definieren dass D2 die Startzelle ist
und D10 die letzte Zelle ist?

Danach werde ich noch eine MSG anhängen.

Hilfe wäre super

Gruss

[Kuwer]

Hallo,

Code:

Sub Eins()
  Dim lngZ As Long
  With ActiveSheet.Range("D2:D10")
    lngZ = Application.WorksheetFunction.CountBlank(.Cells)
    If lngZ Then
      .Cells(.Cells.Count + 1 - lngZ).Value = 1
    Else
      MsgBox "Bereich ist voll"
    End If
  End With
End Sub

Gruß, Uwe

[JJürgen]

Danke Uwe

[snb]

Code:

Sub M_snb()
  With Cells(Rows.Count, 4).End(xlUp)
    If .Row < 10 Then .Offset(1) = 1
  End With
End Sub