Wie kann man den nachfolgenden Code vereinfachen und kürzen?
Private Sub Bearbeiten_Click()
Dim intRow As Integer
If MultiPage1.Value = 0 Then
intRow = ListBox1.ListIndex + 2
With Sheets("Angebotsspeicher")
.Cells(intRow, 1).Copy 'Rechnungs-Nr.
Sheets("Rechnung").Range("E5").PasteSpecial Paste:=xlValues
.Cells(intRow, 2).Copy 'Kunden-Nr.
Sheets("Rechnung").Range("E4").PasteSpecial Paste:=xlValues
.Cells(intRow, 3).Copy 'Kunden-Name
Sheets("Rechnung").Range("B2").PasteSpecial Paste:=xlValues
.Cells(intRow, 4).Copy 'Straße
Sheets("Rechnung").Range("B3").PasteSpecial Paste:=xlValues
.Cells(intRow, 5).Copy 'PLZ & Ort
Sheets("Rechnung").Range("B4").PasteSpecial Paste:=xlValues
.Cells(intRow, 6).Copy 'Datum
Sheets("Rechnung").Range("E6").PasteSpecial Paste:=xlValues
.Cells(intRow, 7).Copy 'Betreff
Sheets("Rechnung").Range("B7").PasteSpecial Paste:=xlValues
.Range(.Cells(intRow, 8), .Cells(intRow, 31)).Copy 'lfd.-Nr.
Sheets("Rechnung").Range("A10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 32), .Cells(intRow, 55)).Copy 'Leistungsbeschreibung
Sheets("Rechnung").Range("B10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 56), .Cells(intRow, 79)).Copy 'Menge
Sheets("Rechnung").Range("D10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 80), .Cells(intRow, 103)).Copy 'E.-Preis
Sheets("Rechnung").Range("C10").PasteSpecial Paste:=xlValues, Transpose:=True
Selection.Rows.AutoFit
End With
End If
If MultiPage1.Value = 1 Then
intRow = ListBox2.ListIndex + 2
With Sheets("Rechnungsspeicher")
.Cells(intRow, 1).Copy 'Rechnungs-Nr.
Sheets("Rechnung").Range("E5").PasteSpecial Paste:=xlValues
.Cells(intRow, 2).Copy 'Kunden-Nr.
Sheets("Rechnung").Range("E4").PasteSpecial Paste:=xlValues
.Cells(intRow, 3).Copy 'Kunden-Name
Sheets("Rechnung").Range("B2").PasteSpecial Paste:=xlValues
.Cells(intRow, 4).Copy 'Straße
Sheets("Rechnung").Range("B3").PasteSpecial Paste:=xlValues
.Cells(intRow, 5).Copy 'PLZ & Ort
Sheets("Rechnung").Range("B4").PasteSpecial Paste:=xlValues
.Cells(intRow, 6).Copy 'Datum
Sheets("Rechnung").Range("E6").PasteSpecial Paste:=xlValues
.Cells(intRow, 7).Copy 'Betreff
Sheets("Rechnung").Range("B7").PasteSpecial Paste:=xlValues
.Range(.Cells(intRow, 8), .Cells(intRow, 31)).Copy 'lfd.-Nr.
Sheets("Rechnung").Range("A10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 32), .Cells(intRow, 55)).Copy 'Leistungsbeschreibung
Sheets("Rechnung").Range("B10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 56), .Cells(intRow, 79)).Copy 'Menge
Sheets("Rechnung").Range("D10").PasteSpecial Paste:=xlValues, Transpose:=True
.Range(.Cells(intRow, 80), .Cells(intRow, 103)).Copy 'E.-Preis
Sheets("Rechnung").Range("C10").PasteSpecial Paste:=xlValues, Transpose:=True
Selection.Rows.AutoFit
End With
End If
Unload Me
Range("C12").Select
Application.CutCopyMode = False
Rechnungssumme
End Sub