verfaßt von crowsname, Arnsberg, 08.02.2021, 10:51:30
> Greifen die Rechner allesamt auf dieselben Excel-Dateien auf dem Server zu?
>
> Wenn das jeweils separat erfolgt, als was ist denn wsh_z deklariert?
Hallo,
sorry das ich mich jetzt erst zurück melde.
Ja, alle greifen auf die gleichen Dateien auf dem Server zu. Teilweise haben die Rechner Excel 16 / 19 oder 365.
Das ist der gesamte Code:
Sub PayPalAufbereitungDatenKopieren()
Workbooks.Open "\\SERVER-PC\SrvDaten\Buchhaltung\2021\PayPal Berechnen.xlsm"
Workbooks("PayPal Berechnen.xlsm").Activate
Worksheets("PayPal").Activate
Dim letzten As Long
'Prüfen ob Daten eingetragen sind und dann ggf. löschen oder Fehlermeldung ausgeben'
If Range("A11").Value = "" Then
Else
letzten = Range("A65536").End(xlUp).Row
Range("A11:N" & letzten).Clear
End If
'Sicher gehen, dass die richtige Mappe geöffnet und aktiviert ist'
Workbooks.Open "\\SERVER-PC\SrvDaten\Buchhaltung\2021\PayPal Aufbereitung.xlsm"
Workbooks("PayPal Aufbereitung.xlsm").Activate
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
'Festlegen aus welchem Tabellenblatt welche Daten wohin verschoben werden soll'
Set wsh_q = ActiveWorkbook.Worksheets("Tabelle1")
Set wsh_z = Workbooks.Open(ActiveWorkbook.Path & "\PayPal Berechnen.xlsm").Worksheets("PayPal")
var_q = Split("c,d,e,f", ",")
var_z = Split("a,k,j,l", ",")
letzte = wsh_q.Range("A65536").End(xlUp).Row
str_r = "#1:#" & letzte
'Durchlauf bis alle Spalten durchlaufen sind'
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
End Sub
--
MfG
Michael
-------------------------------------
Personal Training und Ernährungsberatung
http://www.dein-bpc.de
Natürliche Baustoffe:
http://www.auro-online.de
Getreidemühlen und Zubehör:
http://www.getreidemuehlen.de
Sport in Arnsberg:
http://www.personaltraining-nh.de/Home
gesamter Thread: