Clipboard.SetDataObject(Me.DataGridView2.GetClipboardContent()) 
 
'sa = Stringvariable zum Zusammensetzen des Ihaltes der einzelenen Spalten im 
' Datagridview2
'Die formatierung mit & vbTab & soll die Spalten in Excel richtig einfügen
 
SA = SA + Me.DataGridView2.CurrentRow.Cells("datuma").Value.ToString & vbTab & _
  Me.DataGridView2.CurrentRow.Cells("konto").Value.ToString & vbTab & _
  Me.DataGridView2.CurrentRow.Cells("zweckausg").Value.ToString & vbTab & vbTab _
  & Me.DataGridView2.CurrentRow.Cells("Euro").Value.ToString & vbCrLf 
Me.DataGridView2.GetClipboardContent() 
 
Clipboard.SetText(SA) 
'excel anzeigen 
 
objExcel.Visible = True 
Dim oWbk As Microsoft.Office.Interop.Excel.Workbook 
'Kassabuch.xls anzeigen
oWbk = objExcel.Workbooks.Open(My.Application.Info.DirectoryPath & _
  "\Kassabuch.xls") 
 
' anschließend per  Strg+V die Zwischenablage einfügen
' jetzt sollen die Spalten in XLS richtig drinen stehen - tun sie aber nicht - 
' es stehtr immer nur 1 Zeile drinnen ?!
' Button Zwischenablage unsichtbar machen
Me.btnEinZwischenablage.Visible = False