With Excel.Selection
                .HorizontalAlignment =  .xlCenter
                .VerticalAlignment = .xlBottom
                .ReadingOrder = .xlContext
                ...
                ...
                ...
              End With

Zitat:

Der öffentliche Member xlCenter für den Typ Range wurde nicht gefunden

.HorizontalAlignment =  Excel.Constants.xlCenter

Zitat:

Der öffentliche Member Constants für den Typ ApplicationClass wurde nicht gefunden

    Public Function excelexport(ByVal dgv As DataGridView, Optional ByVal _
      FillHiddenMode As Boolean = True) As Boolean
        Try
            Dim Excel As Excel.Application    ' Verweis auf Excel-Application
            Dim EXMappe As Excel.Workbook     ' Excel Arbeitsmappe
            Dim EXBlatt As Excel.Worksheet    ' Excel Blatt ( Die angezeigte 
            ' Tabelle)
            Dim AZ As Integer                 ' Nimmt die Zeilenanzahl auf
            Dim anzahlzeile As Long
            Dim anzahlspalte As Long
 
 
            ' neue Instanz von Excel erstellen und ggf. sofort anzeigen
            Excel = New Excel.Application()
            Excel.Visible = Not FillHiddenMode
 
            ' neue Mappe hinzufügen
            EXMappe = Excel.Workbooks.Add()
 
            ' aktuelles Blatt anzeigen
            EXBlatt = EXMappe.ActiveSheet
 
            With dgv
                ' Spaltenüberschriften übertragen
                For Spalte As Integer = 0 To .Columns.Count - 1
                    EXBlatt.Cells(1, Spalte + 1).Value = .Columns( _
                      Spalte).HeaderText
                Next
 
                ' Anzahl Datenzeilen
                AZ = .Rows.Count
                If .AllowUserToAddRows = True Then
                    ' Leerzeile abziehen
                    AZ = AZ - 1
                End If
 
                ' Datenzeilen übertragen
                For Zeile As Integer = 0 To AZ - 1
                    anzahlzeile = anzahlzeile + 1
                    For Spalte As Integer = 0 To .Columns.Count - 1
                        anzahlspalte = anzahlspalte + 1
                        EXBlatt.Cells(Zeile + 2, Spalte + 1).Value() = _
                          .Rows(Zeile).Cells(Spalte).Value.ToString
                        Application.DoEvents()
 
                    Next
                    anzahlspalte = 0
                Next
            End With
 
            AZ = Me.dgvrechnung.RowCount
 
            EXBlatt.Cells.Select()
            EXBlatt.Cells.EntireColumn.AutoFit()
            EXBlatt.Range("D2:L" & AZ).Select()
            With Excel.Selection
                .HorizontalAlignment = .xlCenter
                .VerticalAlignment = .xlBottom
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = .xlContext
                .MergeCells = False
            End With
 
 
            ' Excel jetzt anzeigen
            If FillHiddenMode Then Excel.Visible = True
            Return True
 
        Catch ex As Exception
            ' Fehler
            MsgBox("Fehler beim Übertragen der Daten nach Excel!" & vbCrLf & _
              ex.Message, MsgBoxStyle.Exclamation)
            Return False
        End Try
    End Function