Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Weitere Suchtreffer in einer Tabelle finden

Weitere Suchtreffer in einer Tabelle finden
12.08.2003 10:14:29
Stefan Denis Schwarz
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Weitere Suchtreffer in einer Tabelle finden
12.08.2003 10:45:49
Regina
Hallo Stefan,
probiers mal hiermit ist aus dem Archiv

Sub MultiSelect()
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:", , "test")
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
Selection.Copy
Sheets("Tabelle2").Range("a1").PasteSpecial Paste:=xlAll
End Sub

Gruß Regina

Anzeige
AW: Weitere Suchtreffer in einer Tabelle finden
12.08.2003 11:50:59
Stefan Denis Schwarz
Hallo Regina,
vielen Dank! Das hat mir sehr geholfen.
Liebe Grüße, Stefan

278 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige