Liste durchsuchen und ergebniszeilen in neues Blat
17.04.2007 13:46:13
richard
ich war vor ca. 2,5 Jahren schon häufiger gast hier und mußte heute mit erschrecken feststellen, dass mein Wissen von damals nur noch sehr rudimentär ist.
Ich habe folgendes Problem:
Es gibt eine Liste mit ca. 3500 Zeilen Spaltes gehen bis Z
Ich würde gerne für Anwender eine Komfortable Suchmaske erstellen. Auf einem extra Blatt wird der zu suchende Begriff eingetragen. Dann werden alle Zeilen, in denene dieser Wert vorkommt, aus der Original Liste rauskopiert, und untereinander ausgewiesen (es wäre schön, wenn man nicht die ganze Zeile kopieren würde, sondern nur bestimmte Spalten. Also nicht Komplette Zeile 13, sondern A:13, D:13, F:13)
Das ist der Code, den ich bislang hab. Dabei funktioniert noch nicht das einlesen des Eingabebefehls und mir ist noch unklar, wie ich die Anzahl der Schleifen für den Kopiervorgang steuern kann. Man müßte ja vorher irgendwie die Anzahl an Zeilen ermitteln, in denen der Suchbegriff vorkommt.
Bin für jeglich Hilfe dankbar
Private Sub CmdSuchen_Click()
Dim EingabeWert
Dim SuchWert
Dim i, n
'Eingabewert auslesen
EingabeWert = Worksheets("Transfer").Range("G6")
'MsgBox (SuchWert)
n = ?
For i = 1 To n
Sheets("A+B+C NW").Select
Selection.Find(What:="*" & Eingabewert & "*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Copy
Sheets("Transfer").Select
Rows("13:" & 13 + i).Select
ActiveSheet.Paste
Next i
End Sub
gruß richard