Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile suchen und unterhalb kopieren

Zeile suchen und unterhalb kopieren
25.05.2018 07:35:49
Urs
Guten Morgen zusammen
Trotz langer Recherche und minimaler VBA-Kenntnisse ist es mir nicht gelungen für folgendes Problem ein Makro zu definieren:
In einer bestehenden Tabelle soll in sämtlichen Tabellenblättern in Spalte 26 nach dem Wert 12/12 gesucht werden. Wenn in einer Zeile der Wert enthalten ist, so soll diese direkt darunter (nicht ans Tabellenende) kopiert werden und der gesuchte Wert in der kopierten Zeile durch 12/12 FB ersetzt werden.
Über eine Lösung wäre ich Euch sehr dankbar, handelt es sich doch um 15'000 Einträge in unzähligen Blätter.
Grüsse Urs
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage..
25.05.2018 09:31:40
UweD
Hallo
- was soll dann kopiert werden die ganze Zeile oder nur die eine Zelle genau unter dem Fund
- Wohin soll das kopiert werden? In ein anderes Blatt?
Hast du mal eine Musterdatei?
LG UweD
AW: Nachfrage..
25.05.2018 11:13:00
Urs
Hallo
Danke der Nachfrage. Es soll die ganze Zeile unter den Fund kopiert werden (also im selben Blatt)
Musterdatei unter: https://www.herber.de/bbs/user/121818.xlsx
Anzeige
AW: Zeile suchen und unterhalb kopieren
25.05.2018 10:10:05
Gerd
Hallo Urs!
Angenommen, die ganze Zeile soll drunterkopiert werden:
Sub Urs()
Dim WS As Worksheet, C As Range, Adr1 As String
For Each WS In ThisWorkbook.Worksheets
Set C = WS.Columns(26).Find("12/12", after:=WS.Columns(26).Cells(1), lookat:=xlWhole,  _
LookIn:=xlValues)
If Not C Is Nothing Then
Adr1 = C.Address
Do
C.Offset(1).EntireRow.Insert xlDown, 0
C.EntireRow.Copy C.Offset(1).EntireRow
C.Offset(1) = "FB12/12"
Set C = WS.Columns(26).FindNext(C)
Loop Until C.Address = Adr1
End If
Next
Set C = Nothing
End Sub

Gruß Gerd
Anzeige
AW: Zeile suchen und unterhalb kopieren
25.05.2018 11:47:11
Urs
Tschau Gerd
Das war super. Funktioniert einwandfrei (ausser das das Ganze fast 20 Minuten dauert bei so vielen Einträgen).
Herzlichen Dank
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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