Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und nebenstehende Werte kopieren

Suchen und nebenstehende Werte kopieren
08.04.2020 12:59:10
Lasse

Hey Leute,
hoffe jemand von euch kann mir helfen:
Habe in der Spalte E einen Wert mit der "find-Funktion" gesucht. Dieser wurde gefunden und im nächsten Schritt würde ich sehr gerne rechts von der gefundenen Zelle die nächsten 40 Zellen die Werte kopieren und jede Zelle mit einer freien Zelle Abstand in ein anderes Datenblatt kopieren.
Dh:
Gefunden in Zelle E8 --> Kopieren von F8 bis AY8
F8 --> F8 (Tabellenblatt 2)
G8 --> H8 (Tabellenblat 2)
Vielen Dank im Voraus :)
Lasse

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und nebenstehende Werte kopieren
08.04.2020 14:22:40
Werner
Hallo,
die Beschreibung ist etwas verwirrend.
Wie kommst du zum Beispiel dazu, dass es von F8 bis AY8 40 Zellen sind?
Ich habe dich so verstanden: 
Public Sub aaa()
Dim strSuche As String, raFund As Range
Dim i As Long
strSuche = "Suchbegriff"
Application.ScreenUpdating = False
Set raFund = Worksheets("Tabelle1").Columns("E").Find(what:=strSuche, _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
With Worksheets("Tabelle2")
raFund.Offset(, 1).Resize(, 40).Copy
.Cells(raFund.Row, "F").PasteSpecial Paste:=xlPasteValues
For i = 46 To 7 Step -1
.Cells(raFund.Row, i).Insert shift:=xlToRight
Next i
End With
Else
MsgBox "Der Suchbegriff " & strSuche & " wurde nicht gefunden."
End If
Set raFund = Nothing
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
Rückmeldung ist wohl ein Fremdwort. o.w.T.
13.04.2020 13:16:59
Werner
AW: Rückmeldung ist wohl ein Fremdwort. o.w.T.
13.04.2020 13:20:36
Lasse
Hallo Werner,
tut mir leid, dass ich nicht geantwortet habe. Hatte viel um die Ohren..
Vielen Dank, ich habe es anders gelöst aber weiß deine Mühe zu schätzen :-)
Lg
AW: Rückmeldung ist wohl ein Fremdwort. o.w.T.
13.04.2020 14:14:11
Werner
Hallo,
tolle Antwort, aber den Sinn eines Forums hast du wohl nicht verstanden.
Was hälst du denn davon, die Forenteilnehmer an deiner Lösung teil haben zu lassen?
Es könnte ja durchaus sein, dass jemand hier auf der Suche nach einer Lösung eines gleichen/ähnlichen Problems ist. Dem hilfst du mit der Aussage "ich habe es anders gelöst" ungemein weiter.
Gruß Werner

300 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
4
3
5
7
8
2
1
4
12
2
3
1
4
2
2
2
4
3
5
7
4
2
1
5