verfaßt von manes 
, Köln, 12.02.2021, 01:10:19
(editiert von manes, 12.02.2021, 01:10:52)
Hallo
> Beide Dateien liegen auf dem Server. Es greifen also alle Rechner auf die
> gleichen Dateien auf dem Server zu.
> Es wird von der PayPal Aufbereiten (die auf den Server liegt) in die PayPal
> Berechnen (die auf dem Server liegt) kopiert.
Ich glaube zwar nicht, dass evtl. unterschiedliche xls-Varianten eine Rolle spielen könnten, aber vielleicht hilft Aufräumen ein wenig.
Versuch es mal hiermit. Am Schluss werden die beiden geöffneten xls-Dateien wieder geschlossen und die Zieldatei dabei gespeichert. Ggf. weglassen.
Sub PayPalAufbereitungDatenKopieren()
Dim wb_q As Workbook
Dim wb_z As Workbook
Dim wsh_q As Worksheet
Dim wsh_z As Worksheet
Dim var_q As Variant
Dim var_z As Variant
Dim int_x As Integer
Dim str_r As String
Dim str_q As String
Dim str_z As String
Dim letzte As Long
Const cStr_Ordner As String = "\\SERVER-PC\SrvDaten\Buchhaltung\2021\"
Set wb_q = Workbooks.Open(cStr_Ordner & "PayPal Aufbereitung.xlsm")
Set wb_z = Workbooks.Open(cStr_Ordner & "PayPal Berechnen.xlsm")
Set wsh_q = wb_q.Worksheets("Tabelle1")
Set wsh_z = wb_z.Worksheets("Paypal")
With wsh_q
If .Range("A11") <> "" Then
letzte = .Range("A65536").End(xlUp).Row
.Range("A11:N" & letzten).Clear
End If
End With
var_q = Split("c,d,e,f", ",")
var_z = Split("a,k,j,l", ",")
str_r = "#1:#" & letzte
For int_x = 0 To UBound(var_q)
str_q = Replace(str_r, "#", var_q(int_x))
str_z = Replace(str_r, "#", var_z(int_x))
wsh_q.Range(str_q).Copy Destination:=wsh_z.Range(str_z).Offset(10)
Next
wb_q.Close
wb_z.Close savechanges:=True
End Sub
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: