Problem 1
Ich bekomme es nicht hin den code so zu ändern, das er mir nur die Spalten A1-G1 kopiert.
Problem 2
Ich würde gerne das was danach Kopiert würd darunter erscheint.
Mir ist klar das der Code die gesamte spalte kopiert.
Dim iCounter, xCounter As Long
Set wkb1 = ThisWorkbook
Set wkb3 = Workbooks("Bestand Magazin")
Set wks3 = wkb3.Sheets("Kommission")
Application.ScreenUpdating = False
wkb1.Activate
xCounter = 1
For iCounter = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(iCounter) And xOpt = 1 Or xOpt = 2 Then
Set XBlatt = Sheets(ListBox1.List(iCounter, 0))
XZeile = Range(ListBox1.List(iCounter, 1)).Row
xCounter = xCounter + 1
XBlatt.Rows(XZeile).Copy
wks3.Rows(xCounter).PasteSpecial Paste:=xlPasteColumnWidths
wks3.Rows(xCounter).PasteSpecial Paste:=xlValues, operation:=xlNone,
skipblanks:=False, _
Transpose:=False
End If
Next iCounter
wks3.Activate
Application.ScreenUpdating = True
End Sub
Ich hoffe Ihr könnt mir helfen.
Gruss Hans aus Moers