Private Function GetSpezialColumn(Byval sColTitle As String, Optional Byval _
  ByRow As Long = 1) As Long
   Dim oR As Excel.Range
   Dim nCol As Long
 
   ActiveSheet.Rows(ByRow).Select
   For Each oR In Application.Selection
      nCol = nCol + 1   
      If Vartype(oR) = 8 Then 'String
         If Ucase(oR.Value) = Ucase(sColTitle) Then
             GetSpezialColumn = nCol : Exit Function
         End If
      End If
   Next
End Function