Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und kopieren

Suchen und kopieren
20.01.2020 18:07:15
Mike
Hallo an alle Excel Spezialisten,
Ich brauche eure Hilfe. Ich bin absoluter Neuling in VBA (ist trotzdem super). Nun zu meinem Probleme. Ich habe im Blatt "1" von A4:KM4 Daten. Nun soll Excel in Blatt "2" den Zellenwert von Blatt "1" A4 in Blatt "2" von A1:A500 suchen, wenn gefunden, in diese stelle den Wert von Blatt "1" von A4:KM4 kopieren.
Jedenfalls Großen DANK für eure Hilfe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und kopieren
20.01.2020 19:45:09
Piet
Hallo
zwei Makros, die beide funktionieren, zum VBA lernen! Das erste mit der Find Mehtode, das zweite eine Standard For Next Schleife. Sollen mehr Werte als nur A4 kopiert werden muss das For Next Makro erweitert werden.
mfg Piet
Option Explicit
Dim rFind As Range, SuchTxt As String
Sub Daten_suchen_kopieren_Find()
Dim TB2 As Worksheet  'Tabelle2
Set TB2 = Worksheets("Blatt2")
'With Klammer vereinfacht Schreibweise
With Worksheets("Blatt1")
SuchTxt = .Range("A4").Value   'Suchlauf nach Suchtext
Set rFind = TB2.Columns(1).Find(What:=SuchTxt, After:=Cells(1, 1), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False)
'Fehlermeldung wenn Suchtext nicht gefunden wird
If rFind Is Nothing Then MsgBox SuchTxt & " nicht gefunden!": Exit Sub
'Suchtext kopieren und einfügen
If Not rFind Is Nothing Then
.Range("A4:KM4").Copy rFind
End If
End With
End Sub
Sub Daten_suchen_kopieren_ForNx()
Dim AC As Range, lz1 As Long
Dim TB2 As Worksheet  'Tabelle2
Set TB2 = Worksheets("Blatt2")
'Dasselbe über For Next Schleife
With Worksheets("Blatt1")
SuchTxt = .Range("A4").Value
lz1 = TB2.Cells(Rows.Count, 1).End(xlUp).Row
For Each AC In TB2.Range("A1:A" & lz1)
If AC.Value = SuchTxt Then
.Range("A4:KM4").Copy AC
Exit For
End If
Next AC
End With
End Sub

Anzeige
AW: Suchen und kopieren
20.01.2020 23:26:38
Mike
Vielen Dank für die Formeln und Erklärungen, doch leider kopiert er Formeln mit. Ich brauche aber nur den Inhalt ohne Formeln.
AW: Suchen und kopieren
21.01.2020 09:08:44
Mike
Hallo
zwei Makros, die beide funktionieren, zum VBA lernen! Das erste mit der Find Mehtode, das zweite eine Standard For Next Schleife. Sollen mehr Werte als nur A4 kopiert werden muss das For Next Makro erweitert werden.
AW: Suchen und kopieren
21.01.2020 11:24:31
guennih
Hallo, 
.Range("A4:KM4").Copy rFind

ersetzen durch 
.Range("A4:KM4").Copy
rFind.pastespecial xlPasteValues
und du erhältst am Ziel die Werte
Anzeige
AW: Suchen und kopieren
21.01.2020 15:40:37
Mike
Yes :-) Wirklich GROSSEN DANK an alle !!
AW: Suchen und kopieren
20.01.2020 19:58:36
Guennih
Aktiviere im Ribbon die Menügruppe "Entwicklertools"
Drücke "Makro aufzeichnen"
Führe obige Aktion durch
Drücke Aufzeichnung beenden
gehe zum VBA-Code und schau Dir das Ergebnis an
Ersetzte jetzt bei der Find-Funktion das Argument mit dem Inhalt von A4 durch 

Sheets("Tabelle1").Range("A4")

Wenn Du Glück hast, ist das alles! hängt ein bisschen davon ab was Du sonst noch so alles klickst
Den erhaltenen Code kannst Du ja nochmal hier zur Korrektur Ergänzung einstellen

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