Übersetzung VBA Quellcode

Hallo zusammen,
benötige bitte eine Unterstützung von einem Doltmetscher :)
Dim rq
Dim r As Long
For r = 3 To lRowZ
rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole).Row
wsQ.Range(Cells(rq, "J"), Cells(rq, "AC")).Copy wsZ.Cells(r, "H") 'xx hier soll er ab Spalte J bis AC alle Werte in die Datei kopieren wo das Makro gestartet wird.
Next r
xx= Die Datei aus der die Werte herauskopiert werden:
https://www.herber.de/bbs/user/147997.xlsx
Ist quasi wie ein Sverweis..
Diese Datei wird täglich aktualisiert, das heisst ich muss immer den vergangenen Tag als Spalte immer löschen.
Gestern war der 1. Tag....heute ist der 2. und ich lösche den 1. Tag als komplette Spalte.
Wenn ich dann den Makro ausführe bekomme ich genau an dieser Stelle eine Fehlermeldung:
rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole).Row
Was heisst diese Zeile? Warum bekomme ich die Fehlermeldung wenn der Tag 1 bei beiden Excel Dateien, sowohl wo das Makro gestartet wird als auch in der Quelle die Spalte lösche?
Danke für jede Unterstützung.
VG
Memo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe,
ja ihr habt natürlich recht...das war nichts ganzes...
hier der kompl. Code


Sub OpenFile(btnNo As Byte) ' gilt für beide CommandButtons 1 und 2
Dim wbZ As Workbook
Set wbZ = ActiveWorkbook
Dim wsZ As Worksheet
Set wsZ = wbZ.ActiveSheet
Dim lRowZ As Long
lRowZ = wsZ.Cells(Rows.Count, 2).End(xlUp).Row
Dim wbName As Variant
wbName = Application.GetOpenFilename("Exceldateien (*.xlsx*), *.xls*", , "Wähle die Datei aus")
If wbName  False Then
Application.ScreenUpdating = False
Dim wbQ As Workbook
Set wbQ = Workbooks.Open(wbName)
Application.ScreenUpdating = True
Else
MsgBox "Keine gültige Datei ausgewählt"
Exit Sub
End If
Application.ScreenUpdating = False
If btnNo = 1 Then
Call Btn1(wbQ, wsZ, lRowZ)
Else
Call Btn2(wbQ, wsZ, lRowZ)
End If
Application.ScreenUpdating = True
wbQ.Close False
End Sub


Sub Btn1(wbQ As Workbook, wsZ As Worksheet, lRowZ As Long) ' hier startet der Button 1
With wbQ
Dim wsQ As Worksheet
Set wsQ = .Worksheets(1)
Dim lRowQ As Long
lRowQ = wsQ.Cells(Rows.Count, 3).End(xlUp).Row
Dim rngQ As Range
Set rngQ = wsQ.Range(wsQ.Cells(8, 3), wsQ.Cells(lRowQ, 3))
End With
Dim rq
Dim r As Long
For r = 3 To lRowZ
rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole).Row
wsQ.Cells(rq, "AD").Copy wsZ.Cells(r, "D")
Next r
End Sub


Sub Btn2(wbQ As Workbook, wsZ As Worksheet, lRowZ As Long) ' hier startet der Button 2
With wbQ
Dim wsQ As Worksheet
Set wsQ = .Worksheets(1)
Dim lRowQ As Long
lRowQ = wsQ.Cells(Rows.Count, 5).End(xlUp).Row
Dim rngQ As Range
Set rngQ = wsQ.Range(wsQ.Cells(6, 5), wsQ.Cells(lRowQ, 5))
End With
Dim rq
Dim r As Long
For r = 3 To lRowZ
rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole).Row
wsQ.Range(Cells(rq, "J"), Cells(rq, "AC")).Copy wsZ.Cells(r, "H")
Next r
End Sub

Grüße
Memo

rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole).Row wsQ.Range(Cells(rq, "J"), Cells(rq, "AC")).Copy wsZ.Cells(r, "H") ' ersetzen durch Dim rq As Range '..... Set rq = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole) If Not rq Is Nothing Then wsQ.Range(wsQ.Cells(rq.Row, "J"), wsQ.Cells(rq.Row, "AC")).Copy wsZ.Cells(r, "H") End If

Dim rq Dim r As Long Dim Zelle As Range For r = 3 To lRowZ Set Zelle = rngQ.Find(wsZ.Cells(r, 2), , , xlWhole) If Not Zelle Is Nothing Then 'xx wenn der Suchwert gefunden worden ist rq = Zelle.Row wsQ.Range(wsQ.Cells(rq, "J"), wsQ.Cells(rq, "AC")).Copy wsZ.Cells(r, "H") 'xx hier soll er ab ... End If Next r

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Übersetzung VBA Quellcode

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread