Auswahlbereich begrenzen
05.10.2012 12:32:49
Tinu
Mit untenstehender Prozedur suche ich in einer vorbestimmten Spalte (intS) nach übereinstimmungen mit einer Textbox. Bei Übereinstimmung schreibe ich die entsprechende Zeile (Spalten A bis L) auf ein anderes Arbeitsblatt. Das ganze funktioniert, aber es hat einen Schönheitsfehler. In der durchsuchten Spalte hat es eine Überschrift, welche ich nicht auslesen möchte. Das heisst, ich möchte in der Spalte das Suchen erst in Zeile 5 beginnen. Dementsprechend müsste "With wksQ.Columns(intS)" angepasst werden, aber ich kriegs nicht hin.
Für Eure Hilfe bin ich sehr dankbar.
Grüsse aus der Schweiz
Tinu
With wksQ.Columns(intS)
Set Zelle = .Find(TextBox1.Text, LookIn:=xlValues, lookat:=xlPart)
If Not Zelle Is Nothing Then
FirstAddress = Zelle.Address
Do
wksZ.Cells(lngLast, 1).Value = wksQ.Cells(Zelle.Row, 1).Value
wksZ.Cells(lngLast, 2).Value = wksQ.Cells(Zelle.Row, 2).Value
wksZ.Cells(lngLast, 3).Value = wksQ.Cells(Zelle.Row, 3).Value
wksZ.Cells(lngLast, 4).Value = wksQ.Cells(Zelle.Row, 4).Value
wksZ.Cells(lngLast, 5).Value = wksQ.Cells(Zelle.Row, 5).Value
wksZ.Cells(lngLast, 6).Value = wksQ.Cells(Zelle.Row, 6).Value
wksZ.Cells(lngLast, 7).Value = wksQ.Cells(Zelle.Row, 7).Value
wksZ.Cells(lngLast, 8).Value = wksQ.Cells(Zelle.Row, 8).Value
wksZ.Cells(lngLast, 9).Value = wksQ.Cells(Zelle.Row, 9).Value
wksZ.Cells(lngLast, 10).Value = wksQ.Cells(Zelle.Row, 10).Value
wksZ.Cells(lngLast, 11).Value = wksQ.Cells(Zelle.Row, 11).Value
wksZ.Cells(lngLast, 12).Value = wksQ.Cells(Zelle.Row, 12).Value
lngLast = lngLast + 1
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address FirstAddress
End If
End With