Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zeile suchen und unterhalb kopieren

Forumthread: Zeile suchen und unterhalb kopieren

Zeile suchen und unterhalb kopieren
25.05.2018 09: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 11: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 13: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 12: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 13: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

Wert suchen in einer zweiten Tabelle
thomas3

Hallo zusammen,
ich gebe es auf. Seit Tagen versuche ich folgendes Problem zu lösen
In der Tabelle A stehen in der Spalte 28 Rechnungsnummern. Die sind 5 stellig. Gutschriften werden mit GS1-Rechnungsnummer angezeigt.
Beispiel : GS1-12345 steht in der Zeile 5
In der Tabelle 2 wi...
07.11.2009 19:46:45
Thread-ID: 1115260
5 Beiträge
Anzeige
Zeilennummer suchen
Dieter

Hallo,
ist würde gerne nach einer bestimmten Zelle suchen und mir dann die dazugehörige Zeilennummer ausgeben lassen.
Bsp:
In der Zeile 4, Spalte C steht Ertrag. Wenn ich nun in einem anderen Tabellenblatt nach Ertrag suche, möchte ich gerne den Wert 4 ausgegeben bekommen.
Danke...
16.11.2007 16:59:00
Thread-ID: 926750
4 Beiträge
Wert finden und Wert darunter ausgeben
Andre

Hallo liebes Forum,
ich benötige mal wieder eure Hilfe....
Ich möchte einen Wert, welcher in Zelle I:Variabel steht, in Blatt Key suchen.
Dann soll in diese Zelle der Wert zurückgegeben werden welcher sich direkt unter der Zelle des Suchergebnisses befindet.
Mit folgendem Code h...
28.01.2020 11:41:47
Thread-ID: 1736982
7 Beiträge
Zeilennummer per Code ausgeben.
Peter

Liebe Excel-Freunde,
ich habe nachfolgende Frage schon einmal gestellt und beantwortet bekommen. Jetzt aber noch einmal und zwar mit einer Einschränkung:
Ich habe eine Arbeitsmappe mit 2 worksheets (tab1 & tab2).
In tab1 habe ich in "G3" einen Wert, der in einer aufsteigend sort...
29.07.2008 20:32:00
Thread-ID: 997445
4 Beiträge
Feldansteuerung
Günther

Hallo zusammen,
habe folgendes Problem und kann momentan keine passende Lösung finden (Formel) :
In einer Zelle (A1) steht ein Wert (Zeilennummer).
Mit Hilfe dieser Zeilennummer möchte ich den zugehörigen Wert in der Spalte C auslesen und zur Verfügung stellen.
Beispiel:
A1...
23.04.2021 15:48:32
Thread-ID: 1827506
2 Beiträge
Anzeige
Modifizieren eines bestehenden VB-Codes
Quirin
Hallo zusammen,
ich habe folgenden Code der für meine Tabelle, der soweit funktioniert. Nun will ich die List mit ComboBoxen ergänzen.
Und zwar sollen die TextBoxen 2, 3, 4 und 6 durch ComboBoxen ersetzt werden, die über die Eingabemaske der UserFrom bedient werden sollen.
Die Inhalte d...
28.11.2022 09:53:20
Thread-ID: 1908856
7 Beiträge
Nachfrage ListBox nächster Wert
Matthias

Guten Morgen Zusammen,
ich habe vor einiger Zeit eine Frage gestellt und super beantwortet bekommen (von Franz). Leider habe ich nicht die Möglichkeit gefunden den Beitrag direkt zu beantworten oder hervorzuholen.
Es war dieser hier: "ListBox nächsten Wert suchen" von Matthias vom 13.11...
21.08.2020 12:39:15
Thread-ID: 1778051
2 Beiträge
Zelle ausgeben wenn Zeile bekannt
Marc

Hallo,
ich habe folgendes Problem:
Ich weiß die Zeilennummer einer Information und möchte gerne den Wert aus Spalte A ausgeben.
Also Zeile 33 ist bekannt (steht in Zelle C2) und ich möchte gerne den Wert A33 ausgeben.
Habe es mit = "A" & "C2" versucht, aber dann steht da nur...
08.01.2015 16:03:24
Thread-ID: 1401512
4 Beiträge
Letzte Zelle und Inhalt in Zelle
Stevie

Hi Zusammen,
ich habe folgendes Problem:
Ich habe eine Tabelle mit immer unterschiedlich vielen Zeilen.
Dieser Tabelle will ich in Spalte F weitere Werte anhängen, aber nur bis zur
letzen belegten Zeile.
Mein Code sieht bis dato so aus:
Sub Planungsnr()
Sheets("Puffe...
20.09.2007 11:48:00
Thread-ID: 909000
6 Beiträge
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 16:55:00
Thread-ID: 1001221
8 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.05.2026 12:45:17
VBA - ungewollte Zeitrechnung
18.05.2026 11:48:41
for each datei in dateiliste, Fehler 424:Objekt erforderlich
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum