VBA - Auswahl von Treffer nach Kriterium
11.02.2023 13:11:46
Treffer
ich habe zu der Ausführung eines Makros eine Frage:
Das weiter unten angegeben Makro kopiert von "Auswahl1" nach "Ansicht1" bestimmte Daten:
Die Werte aus den Spalten 5 Min. vor "I3" bis 10 Min. nach "I3"
wobei in "I3" der "Richtwert" steht.
Sub b_KopierenHeimHeim()
Dim TB1 As Worksheet, TB2 As Worksheet
Dim Z1 As Integer, LR As Long, SP As Integer
Dim Zelle As String, RNG As Range, Such As String
'*****
Set TB1 = Sheets("Ansicht1")
Set TB2 = Sheets("Auswahl1")
Zelle = "I3"
Z1 = 10
'*****
Such = TB1.Range(Zelle)
LR = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
If WorksheetFunction.CountIf(TB2.Rows(Z1), Such) > 0 Then
SP = WorksheetFunction.Match(Such, TB2.Rows(Z1), 1)
Set RNG = TB2.Cells(Z1 + 1, SP - 5).Resize(LR - Z1 + 1, 16)
RNG.SpecialCells(xlCellTypeVisible).Copy TB1.Range("D9")
End If
End Sub
Das Makro funktioniert eigentlich wie gewünscht bis auf den "Umstand", dass wenn in "I3" eine Minutenzahl von unter 20 eingegeben ist,- dann kommt Fehlermeldung.
Meine Frage;
Wie ändere ich das Makro, so das ich in "I3" auch Werte von 6-19 eintragen kann?
Zur Beispielmappe:
https://www.herber.de/bbs/user/157784.xlsb
Kann ein Experte bitte mal drauf schauen und mir eine Lösung anbieten?!
Gruss
Fred