Ich möchte aus einer Excel Tabelle eine Zeile anwählen und dann diese Zeile (Datensatz) separat als Datenblatt ausdrucken bzw. abspeichern unter anderem Namen. Wie funktioniert das in Excel? Danke für einen Tip.
Gruss Heiner
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wbkTarget As Workbook
If Target.Rows.Count = 1 And Target.Cells.Count = Columns.Count Then
With Cells(Target.Row, 1).Resize(, Cells(Target.Row, Columns.Count).End(xlToLeft). _
Column)
Set wbkTarget = Workbooks.Add
.Copy wbkTarget.Sheets(1).Range("A1")
ActiveWindow.SelectedSheets.PrintOut
wbkTarget.SaveAs ThisWorkbook.Path & "\Datensatz Zeile " & Target.Row & ".xlsx"
wbkTarget.Close
End With
End If
End Sub
Viele Grüße