#444294 Excel VBA Laufzeitfehler 91 (Objektvariable oder With-Blockvariable... (pc.sw.office)

verfaßt von crowsname, Arnsberg, 08.02.2021, 10:53:04

> was steht in ActiveWorkbook.Path drin?

Hallo,

sorry das ich mich jetzt erst zurück melde.

Hier 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: