Code Snippet "VBA Excel"

Buchstabe der letzten benutzten Spalte eines Arbeitsblatts

Function funLetterOfLastUsedColumn(ByVal varWorksheet) As String
  Dim strColumnAddress As String
  
  strColumnAddress = ThisWorkbook.Worksheets(varWorksheet).Range("A1") _
    .SpecialCells(xlLastCell).EntireColumn.Address(False, False)
  funLetterOfLastUsedColumn = _
    Left(strColumnAddress, InStr(strColumnAddress, ":") - 1)
End Function