Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einträge suchen, kopieren und wo anders einfügen

Einträge suchen, kopieren und wo anders einfügen
13.10.2005 14:15:01
Andre
Hallo zusammen!
Ich habe eine Tabelle(A) mit ca. 1000 Positionen.
Nun möchte ich in einer neuen Excel-Tabelle(B) den Wert von einer der Positionen (aus Tabelle(A)) eingeben (z.B. xdh53), diesen Wert soll er jetzt in Spalte "A" von Tabelle (A) suchen und mir den Inhalt der gesamten Zeile in die Zeile "6" der Tabelle(B)schreiben.
Ich weiß nicht ob das überhaupt möglich ist, aber wenn ja, dann kann es nur jemand in diesem Forum wissen!!
Ich würde mich sehr über eine Lösung freuen!
Vielen Dank schonmal im Voraus!!
Gruß
Andre

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge suchen, kopieren und wo anders einfügen
14.10.2005 19:44:11
joko0803
Hallo Andre,
versuch es mal mit diesem Code ...

Sub Kopieren()
Dim Bereich As Range
Dim shtTarget As Worksheet
Dim Tabelle1 As Worksheet
Dim Spalte As Single
A = "Tabelle1"
B = "Tabelle2"
ZeileTabB = 6
Const Titel = "Zeilen Kopieren"
Const Msg = ("Nach welchem Wert wollen Sie suchen?  (Case-sensitive)")
Dim i As Long
Dim tofind As Variant
tofind = InputBox(prompt:=Msg, Title:=Titel)
If tofind = "" Then Exit Sub
Application.ScreenUpdating = False
Set Tabelle1 = Sheets(A)
Adresse = Cells.Find(What:=tofind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Address
If CStr(Tabelle1.Range(Adresse)) = tofind Then
Tabelle1.Range(Adresse).EntireRow.Copy
Set shtTarget = Sheets(B)
shtTarget.Activate
Rows(ZeileTabB).Select
ActiveSheet.Paste
End If
Application.ScreenUpdating = True
End Sub

Gruß
John
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige