ich bekomme bei der Ausführung des folgenden codes die Fehlermeldung Anwndungs- oder Anwendungs oder objektdefinierter fehler... und zwar bei der kopierfunktion..
ich hoffe Ihr könnt mir sagen was ich hier verpasst habe!
Public varDateien1 As Variant
Public varDateien2 As Variant
Public wbk1 As Workbook
Public wbk2 As Workbook
Private Sub CommandButton1_Click()
Dim LstRow As Long
'Dim LstRowSp As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Set wbk1 = Workbooks.Open(Filename:=varDateien1(1))
LstRow = wbk1.Worksheets("Bestellliste").Cells(Rows.Count, 3).End(xlUp).Row
Set wbk2 = Workbooks.Open(Filename:=varDateien2(1))
wbk1.Sheets("Bestellliste").Range(Cells(Me.StartZ, Me.S1), Cells(LstRow, Me.S1)).copy _
Destination:=wbk2.Sheets("Bestellliste ").Range(Cells(Me.StartZ, Me.S2), Cells(LstRow, Me. _
_
S2))
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Public Sub FileA_Click()
' Dim varDateien1 As Variant
Dim tempStr As String
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'open File
varDateien1 = _
Application.GetOpenFilename("Datei (*.xls*),*.xls", False, "Bitte gewünschte Datei(en) _
markieren", False, True)
'Me.Label1 = CStr(varDateien1.Name)
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Private Sub FileB_Click()
' Dim varDateien2 As Variant
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'open File
varDateien2 = _
Application.GetOpenFilename("Datei (*.xls*),*.xls", False, "Bitte gewünschte Datei(en) _
markieren", False, True)
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.S1 = 3
Me.S2 = 3
Me.StartZ = 9
End Sub
Gruß Daniel