Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellinhalt suchen und die ganze Zeile kopieren

Zellinhalt suchen und die ganze Zeile kopieren
27.02.2007 12:33:00
Peter
Hallo Zusammen,
wie kann ich folgende Aufgabe ohne VBA lösen?
In der Tabelle 1, in der ersten Spalte, Zelle A1 habe ich eine Zahl z.B. 123 stehen.
In der Tabelle 2 habe ich z.B. inder Zelle C4 ebenfalls 123 stehen. Nun möchte ich die ganze Zeile 4 automatisch in die Tabelle 1, neben A1 kopieren.
Wie mache ich das?
Vielen Dank im voraus
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt suchen und die ganze Zeile kopieren
27.02.2007 15:29:17
marcl
Hallo Peter,
es ist nicht das Beste, aber versuch mal das:

Sub Makro1()
such = ActiveCell ' Suchbegriff in Tabelle 1
Sheets("Tabelle2").Select
Columns("A:A").Select
Selection.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Copy ' Zeile markieren und kopieren
Sheets("Tabelle1").Select
Rows(ActiveCell.Row).Select
ActiveSheet.Paste 'einfügen
End Sub

Gruß
marcl
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige