Problem mit Suchfunktion in vba
23.11.2006 08:35:42
Alexander
ich möchte eine Suchfunktion!
Wie folgt:
In Sheet 'Sammeln' habe ich eine Liste, drei Spalten, aus der er den Wert aus Zelle 1 und Zelle 3 in Sheet Import_Kunde finden soll und dann die Zeile ausschneiden in Sheet 'Import_Kunde'.
Problem für ist aber, die Beiden Werte, die er finden soll stehen in der selben Zeile, in verschiedenen Spalten und können mehrmals vorkommen, aber in anderen kombinationen.
Es kann also nicht vorkommen, das in zwei oder Zeilen die selben daten stehen, nur andere.
lz_Lief = Letzte Zeile
Tabelle 'Sammeln'
Spalte 1 Spalte 2 Spalte 3
123456 445544554 55545587
1225458 457855455 63556554
12545588 5455875 85454567
Tabelle 'Import_Kunde'
Spalte F (Wert aus Spalte 3) Spalte T (Wert aus Spalte 1)
55545587 123456
85454567 12545588
Mein Code:
For t = lz_Lief To 4 Step -1
Such = Cells(t, 1).Text 'Suche setzten
Such2 = Cells(t, 3).Text 'Suche setzten
With Worksheets("Import_Baur").Range("F1:T5000")
Set c2 = .Find(Such2, LookIn:=xlValues)
Set c = .Find(Such, LookIn:=xlValues)
If Not c Is Nothing And Not c2 Is Nothing Then
firstaddress = c.Address
firstaddress2 = c2.Address
If firstaddress firstaddress2 Then
!!!!!!!!!!!!!!!!
!!!!!Leider sinddie immer Unterschiedlich $T$246 und $F$246
!!!!!!!!!!!!!!!!!
Set c = .FindNext(c)
firstaddress = c.Address
Application.Run "Ausschneiden"
Else
Application.Run "Ausschneiden"
End If
End If
End With
Next t
End Sub
Sub Ausschneiden()
Bereich = Mid(firstaddress, 4, 4)
Sheets("Import_Baur").Select
Rows(Bereich).Select
Selection.Cut
Sheets("verplant").Select
Range("a" & t).Select
ActiveSheet.Paste
Sheets("Sammeln").Select
Rows(t).Delete Shift:=xlUp