Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 12:02:34
An e-Mail Empfänger senden - BCC aus Liste
06.11.2025 08:28:51
VLOOKUP ... mal wieder
06.11.2025 07:28:20
Fragen zur bedingten Formatierung per VBA (Index/Bereich)
05.11.2025 15:53:39
Zeilenweise addieren ohne ausgeblendete Werte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wort suchen und kopieren

Forumthread: Wort suchen und kopieren

Wort suchen und kopieren
21.07.2020 08:36:39
Michel
Guten Morgen in die Runde,
ich brauche mal wieder Eure großartige Hilfe...
Ich möchte mittels VBA ein Wort in einer Tabelle suchen und wenn das gefunden ist, eine neue Spalte links davon einfügen. Für diese Anforderung habe ich bereits einen Code:
  • Cells.Find(What:="date_end", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.Insert Shift:=xlToRight

    • Nun möchte ich gerne das gefundene Wort auch noch kopieren und genau ein Feld nach links in die neu eingefügte Spalte einfügen. Da sich das gesuchte Wort jedoch nicht immer an der gleichen Stelle befindet, kann ich keinen Zellbezug für den Code benutzen.
    Freue mich über Anregungen.
    VG Michel
    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Wort suchen und kopieren
    21.07.2020 10:26:10
    Werner
    Hallo,
    meinst du so: 
    Sub aaa()
Dim raFund As Range
Set raFund = Cells.Find(what:="date_end", LookIn:=xlValues, _
lookat:=xlPart, searchorder:=xlByRows)
If Not raFund Is Nothing Then
Columns(raFund.Column).Insert shift:=xlToRight
raFund.Offset(, -1) = raFund
End If
Set raFund = Nothing
End Sub
    Gruß Werner
    Anzeige
    AW: Wort suchen und kopieren
    21.07.2020 10:30:20
    Michel
    Hi Werner,
    wow ja. Genau so meinte ich es.
    Vielen Dank!!!
    VG
    Michel
    Gerne u. Danke für die Rückmeldung. o.w.T.
    21.07.2020 10:39:17
    Werner
    ;

    Forumthreads zu verwandten Themen

    String suchen und kopieren
    Daniel

    Hallo,
    ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
    Ich brauche ein etwas allgemeineren Code.
    Ok was ich habe sind folgende Inputdaten:
    .............A......B.........C.............D
    1
    2............
    12.08.2008 14:55:00
    Thread-ID: 1001221
    9 Beiträge
    Zeile suchen und löschen bzw kopieren
    Henner

    Hallo VBAler,
    ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
    10.09.2008 16:56:00
    Thread-ID: 1008851
    5 Beiträge
    Zahlenfolge suchen und in neue Tabelle kopieren
    Günter

    Hallo,
    ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
    In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
    04.12.2008 00:39:00
    Thread-ID: 1030003
    4 Beiträge
    Anzeige
    Datensätze suchen und löschen / Kopieren
    Holger

    Hi,
    ich möchte gerne folgendes per Makro erledigen:
    Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
    In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder bess...
    31.01.2009 10:51:00
    Thread-ID: 1045602
    6 Beiträge
    Anzeige
    Doppelte Inhalte suchen und kopieren
    Joachim

    HI,
    ich habe eine Tabelle mit verschiedenen Einträgen in Spalte B. Diese habe ich seither farblich markiert (Spalte B) :
    Dim lngRow As Long
    lngRow = Cells(Rows.Count, "B").End(xlUp).Row
    Dim I As Integer, xx As Integer
    Dim szCompare As String
    For I = 5 To lngRow
    szCom...
    08.02.2009 13:07:42
    Thread-ID: 1048280
    8 Beiträge
    Anzeige
    wert in zeile suchen und spalte kopieren
    Astrid

    Hallo Fachleute,
    Ich stecke bei folgendem Excel problem fest:
    Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
    11.03.2009 12:41:00
    Thread-ID: 1059072
    9 Beiträge
    Anzeige
    Text durchsuchen und Teile herauskopieren
    Andy

    Schönen guten Abend!
    Ich habe folgendes "Problem":
    Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere F...
    17.03.2009 20:40:05
    Thread-ID: 1061211
    3 Beiträge
    Text durchsuchen und Ergebnisse herauskopieren
    Andy

    Schönen guten Tag!
    Ich habe folgendes "Problem":
    Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Fel...
    18.03.2009 11:09:52
    Thread-ID: 1061327
    2 Beiträge
    Werte In Tab 2 suchen und nach Tab 1 kopieren
    Peter_weber

    Liebe Experten,
    versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
    Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
    Also
    - ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
    15.04.2009 09:50:31
    Thread-ID: 1068812
    5 Beiträge
    Formel für Zahlen suchen und kopieren
    Song

    Hallo zusammen,
    wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
    Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
    Danke!
    15.05.2009 11:53:40
    Thread-ID: 1075397
    13 Beiträge
    Bereich suchen und kopieren
    Lars

    Hallo Leute,
    ich habe eine kleines Problem beim Kopieren von Zellbereichen und möchte dieses gerne via Makro lösen.
    In meiner Datei (siehe Beispiel) stehen in den Zellen A bis E Daten welche ich gerne runterkopieren möchte. Allderdings sollte das Makro den nächsten Eintrag erkennen und...
    23.06.2009 17:10:37
    Thread-ID: 1083877
    3 Beiträge
    In Tabelle Suchen und Bereich kopieren - Bitte Hil
    Marc

    Hallo,
    auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
    Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
    Dim Zelle as Range
    Dim customers as Range
    Set customers = Workbooks("Cus...
    25.06.2009 20:52:35
    Thread-ID: 1084450
    4 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige