Weitere Suchtreffer in einer Tabelle finden
12.08.2003 10:14:29
Stefan Denis Schwarz
mit folgendem Makro suche ich im aktiven Arbeitsblatt einen Namen und kopiere die ganze Zeile, in der der Name steht, in Arbeitsblatt "Tabelle2". Wie kann ich nun erreichen, dass, wenn weitere gleiche Namen gefunden werden, deren Zeilen auch in Arbeitsblatt "Tabelle2" kopiert werden, und zwar immer jeweils in die nachfolgende Zeile?
Vielen Dank im Voraus schonmal für die Hilfe.
Grüße, Stefan
Sub Makro1()
' Makro1 Makro
' Makro am 07.08.2003 von Stefan Denis Schwarz aufgezeichnet
' Tastenkombination: Strg+Umschalt+A
Dim neuName As String
neuName = InputBox("Geben Sie den Nachnamen des Anrufers ein!")
Cells.Find(What:=neuName, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -5).Range("A1:K1").Copy
Sheets("Tabelle2").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Application.CutCopyMode = False
Range("A1:K1").Copy
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1:K1").Font.Bold = True
Columns("A:A").EntireColumn.AutoFit
End Sub