kopieren per VBA-----Code anbei
26.09.2004 10:04:54
Peter S.
irgendwo hab ich im moment nen block....bei untenstehendem code bleibt er in der zeile .....PasteSpecial stehen; er stört sich anscheinend am ComboBox3.Value + 1, komischerweise in der zeile drüber das ComboBox3.Value akzeptiert er, alo den Kopierbefehl, jedoch nicht das einfügen?
Private Sub CommandButton7_Click()
Dim z As Integer, myArr As Variant
Application.ScreenUpdating = False
Sheets("Bearbeitung").Activate
z = Range("B52").End(xlUp).Row
Cells(z + 1, 2) = ComboBox3.Value + 1
myArr = Sheets("Bearbeitung").Range("B46:B52")
Sheets(ComboBox3.Value).Range("A4:H1000").Copy
Sheets(ComboBox3.Value + 1).Range("A4").PasteSpecial Paste:=xlPasteValues
Sheets(ComboBox3.Value + 1).Range("A4").PasteSpecial Paste:=xlPasteFormats
ComboBox3 = ""
ComboBox3.List = myArr
Sheets("Bearbeitung").Activate
Application.ScreenUpdating = True
End Sub
Wer kann mir bitte helfen?
Danke
Peter S.