Code Snippet "VBA Excel"

Funktionen, die aus einem Bereich erste und letzte Zeile oder Spalte auslesen

'*******************************************************************
'Funktionen, die aus einem Bereich erste und letzte Zeile oder Spalte auslesen
'Achtung: Funktioniert nicht mit Mehrfachmarkierungen
Function FirstRowInRange(ByVal objRange As Range)
  FirstRowInRange = objRange.Cells(1).Row
End Function

Function FirstColumnInRange(ByVal objRange As Range)
  FirstColumnInRange = objRange.Cells(1).Column
End Function

Function LastRowInRange(ByVal objRange As Range)
  LastRowInRange = objRange.Cells(objRange.Count).Row
End Function

Function LastColumnInRange(ByVal objRange As Range)
  LastColumnInRange = objRange.Cells(objRange.Count).Column
End Function