Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1840to1844
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
Inhaltsverzeichnis

Zeile kopieren wenn Wert gefunden

Zeile kopieren wenn Wert gefunden
12.08.2021 08:54:41
Hellgrimm
Guten Tag,
da ich zu dem Thema zwar schon viele Beiträge gefunden habe, aber leider nicht die richtige Lösung für mich gefunden habe,
hoffe ich das mir jemand helfen kann, da ich nicht wirklich gut in VBA bin.
Ich habe eine Projektliste die ich mit verschiedenen Makros ausgestattet habe.
Nun möchte ich folgendes Problem lösen:
Suche den genauen Text (nicht Formel) aus Tabellenblatt "Transition" Zelle "B3"
in Tabellenblatt "Übersicht" in Spalte B.
Wenn gefunden übertrage aus Tabellenblatt "Transition" Zeile C3-CM3 (Werte nicht Formeln) in vorher gefundene Zeile in Tabellenblatt "Übersicht" Spalte C-CM
https://www.herber.de/bbs/user/147570.xlsm
Ich hoffe ich habe es verständlich ausgedrückt.
Habe wahrscheinlich vorher schon einiges Umständlich gemacht, aber soweit funktioniert es, bis auf dieses Problem.
Vorab schonmal Vielen Dank.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren wenn Wert gefunden
12.08.2021 10:01:41
Werner
Hallo,

Public Sub suchen()
Dim raFund As Range, wsQuelle As Worksheet, wsZiel As Worksheet
Set wsQuelle = ThisWorkbook.Worksheets("Transition")
Set wsZiel = ThisWorkbook.Worksheets("Übersicht")
Set raFund = wsZiel.Columns("B").Find(what:=wsQuelle.Range("B3"), LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
wsQuelle.Range("C3:CM3").Copy
raFund.Offset(, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else
MsgBox "Suchbegriff " & wsQuelle.Range("B3") & " nicht gefunden."
End If
Set wsQuelle = Nothing: Set wsZiel = Nothing: Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: Zeile kopieren wenn Wert gefunden
12.08.2021 10:11:41
Hellgrimm
Hallo Werner,
ich danke dir tausendmal.
Es funktioniert wunderbar.
Gerne u. Danke für die Rückmeldung. o.w.T.
12.08.2021 11:03:38
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige