Dim Index1, Index2 As Integer
        Index1 = Me.DataGrid.CurrentCell.ColumnNumber
        Index2 = Me.DataGrid.CurrentCell.RowNumber
 
        Dim Text2 As String
        Try
            If Me.DataGrid.Item(Index2, Index1) > "" Then
                Text2 = Me.DataGrid.Item(Index2, Index1)
            End If
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
        Me.Label2.Text = Text2
        Me.lblSpalte.Text = "Spalte " & Index1.ToString
        Me.lblZeile.Text = "Zeile " & Index2.ToString

Hänk

(Wer früh aufsteht hat mehr vom Tag)