ich hoffe ihr könnt mir helfen.
in einer tabelle stehen tarife, mit dieser folgenden suchabfrage suche ich tarife die dann in weiterer folge
in eine tabelle kopiert werden wenn etwas gefunden wird.das funktioniert prima.
aber wenn ich einen suchwert eingebe der nicht in der tabelle steht, erhalte ich immer einen fehler.
warum?
'suchbeginn
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim lngRow As Long
Dim strFind As String, strSearch As String
strSearch = InputBox("Suchbegriff:", , "German")
Set rngFind = Cells.Find(strSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
rngRows.Select ' hier ist der fehler markiert
'hier gehts dann weiter mit kopiern in eine andere tabelle
Selection.Copy
Cells(1, 1).Select
'TEST BEGINN
'EINFÜGEN
Sheets("Suchwerte").Select
Range("A1").Select
ActiveSheet.Paste
'spaltenberite einstellen
Columns("A:F").Select
Columns("A:F").EntireColumn.AutoFit
Range("B1").Select
Cells(1, 1).Select
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Range("B1:D75").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
danke bin für jede hilfe dankbar
gruss
christian (neu)