Private Sub cmd_excel_Click()
  Dim oExl As New excel.Application
  Dim Mappe As New excel.Workbook
  Dim Blatt As New excel.Worksheet
 
  MousePointer = 11
  On Error Resume Next
  Set oExl = New excel.Application
  Set Mappe = oExl.Workbooks.Add
  Set Blatt = Mappe.Worksheets.Add
 
  For z = 2 To Grid1.Cols
    If Grid1.Columns(z).Visible = True Then
      oExl.ActiveSheet.Cells(1, z - 1).Value = Grid1.Columns(z).Caption
    End If
  Next z
  Blatt.Range("A1:R1").Font.Bold = True
 
  For i = 1 To Grid1.Rows
    For z = 1 To Grid1.Cols
      If Grid1.Columns(z).Visible = True Then
        oExl.ActiveSheet.Cells(i + 1, z - 1).Value = Grid1.text(i, z)
      End If
    Next z
  Next i
 
  oExl.Sheets(1).Select
  oExl.Sheets(1).name = "test"
 
  oExl.Visible = True
  MousePointer = 0
  Set oExl = Nothing
End Sub

cu puppet

Wer ?berall seinen Senf dazu gibt, kommt schnell in den Verdacht ein W?rstchen zu sein!