'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+ nur wenn eine Zeile vollkommen LEER ist, kann sie selektiert werden
'+ (ausgenommen davon ist die LETZTE Zeile #65536)
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Option Explicit

Private b_zeilen_sperren As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim lng_tempRow As Long
Dim i As Integer

lng_tempRow = Target.Row
If IsNull(b_zeilen_sperren) Then b_zeilen_sperren = False
If b_zeilen_sperren Then
    sperre_aus
    Exit Sub
    End If
Do
For i = 1 To 256
      If Not IsEmpty(Cells(lng_tempRow, i)) Then GoTo label_voll
      Next
Cells(lng_tempRow, Target.Column).Select
Exit Sub
label_voll:
lng_tempRow = lng_tempRow + 1
Loop Until lng_tempRow > 65536
'MsgBox "letzte Zeile ist schon gefüllt!"
Cells(65536, Target.Column).Select
End Sub


Public Sub sperre_aus()
b_zeilen_sperren = Not b_zeilen_sperren
End Sub