trotz Fehlerwert weiter ...
15.10.2020 15:36:31
Fred
Hallo Excel,- VBA Experten,
Es sollen Zeilen im Blatt "Aktuell" abgearbeitet werden.
Werte in entsprechenden Zeilen dienen als Kriterium für eine Filterung in Blatt "Referenzen".
Gefilterte Daten sollen nach "Aktuell" in entsprechende Zeilen kopiert werden.
ich habe mir einen Code "gebastelt" der sicherlich nicht optimal geschrieben ist,- aber funktioniert. WENN das Kriterium für den Filter nicht gerade "#WERT!" lautet.
Vieleicht verwirrend,- hier mal der Code:
Sub schleife1()
Dim wksAKT As Worksheet
Dim wksREF As Worksheet
Dim lngLastRow As Long
Dim lngC As Long
Set wksAKT = ActiveSheet
Set wksREF = ActiveWorkbook.Worksheets("Referenzen")
Application.ScreenUpdating = False
With wksAKT
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngC = 10 To lngLastRow
.Cells(lngC, 15).Copy .Cells(4, 5)
.Cells(lngC, 16).Copy .Cells(4, 6)
.Cells(lngC, 20).Copy .Cells(4, 7)
.Cells(lngC, 21).Copy .Cells(4, 8)
Call filter_1
wksREF.Range("S3:AD3").Copy
wksAKT.Cells(lngC, 24).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next lngC
End With
Application.ScreenUpdating = True
End Sub
der u.a. aufgerufene Code filter_1
On Error Resume Next
Worksheets("Referenzen").ShowAllData
On Error GoTo 0
Worksheets("Referenzen").Activate
'filtert
Set Bereich = Worksheets("Referenzen").UsedRange
Rows(9).AutoFilter Field:=43, Criteria1:=Sheets("Aktuell").Range("E4")
Rows(9).AutoFilter Field:=44, Criteria1:=Sheets("Aktuell").Range("F4")
Rows(9).AutoFilter Field:=48, Criteria1:=Sheets("Aktuell").Range("G4")
Rows(9).AutoFilter Field:=49, Criteria1:=Sheets("Aktuell").Range("H4")
Application.CutCopyMode = False
Worksheets("Aktuell").Activate
Kann mir bitte jemand diesen Code entsprechend ändern, so das dieses Makro trotz nicht ausführender Filterung, weiter läuft?
Gruss
Fred