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

Zellen suchen und kopieren

Forumthread: Zellen suchen und kopieren

Zellen suchen und kopieren
01.06.2015 08:51:00
York
Hallo zusammen,
Ich habe folgendes Problem.
Ich habe eine Datenbank A die Daten aus der Datenbank B bekommen soll.
Ich kopiere aus A eine Nummer, suche sie in B und kopiere den Teil den ich brauche und füge ihn bei A wieder ein. Da diese Aufgabe öfter vorkommt, möchte ich mir jetzt ein Makro dazu fertig machen, allerdings habe ich kaum Erfahrungen mit Makros. Ich habe mir ein Makro aufgenommen, damit man mein Problem vielleicht noch besser verstehen kann.
Hier der Quelltext:

Sub Macro1()
' Macro1 Macro
Range("P2").Select
Selection.Copy
Windows("Mobiltelefonliste_092014_NEU.xlsx").Activate
Columns("P:P").Select
Selection.Find(What:="491713015039", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("E82:O82").Select
Range("O82").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Gassco Vertragsübersich - Copy.xls").Activate
Range("E2").Select
ActiveSheet.Paste
End Sub

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen suchen und kopieren
01.06.2015 09:05:08
York
Ich habe noch vergessen zu sagen, dass das ganze bei knapp über 160 Einträgen erfolgen soll/muss.

AW: Zellen suchen und kopieren
01.06.2015 09:06:45
York
Ich habe noch vergessen zu sagen, dass das ganze bei knapp über 160 Einträgen erfolgen muss/soll.

AW: Zellen suchen und kopieren
01.06.2015 12:57:42
fcs
Hallo York,
hier ein entsprechendes Makro.
Du kannst in Spalte P eine oder mehrere Zellen selektieren.
Das Makro sucht dann in einer Schleife nach alle Werte und kopiert für die gefundenen Nummern die Daten jeweils nach Spalte E in der Zeile.
Gruß
Franz 
Sub Suchen_Mobil_Telefondaten()
Dim varSuchwert, rngSuche As Range
Dim rngFinden As Range, rngCopy As Range, rngZiel As Range
Dim wkbQuelle As Workbook, wksQuelle As Worksheet
Dim wkbZiel As Workbook, wksZiel As Worksheet
Dim strMsgTitle As String, strMsgPrompt2 As String, strQuelle As String
strMsgTitle = "Suchen neue Mobil-Telefonnummer"
strMsgPrompt2 = "(Wiederholen nur sinnvoll wenn mehrere Zellen selektiert wurden)"
strQuelle = "Mobiltelefonliste_092014_NEU.xlsx" 'Dateiname der Quelldatei/zu durchsuchenden  _
Datei
On Error GoTo Fehler
Set wkbZiel = ActiveWorkbook 'Gassco Vertragsübersich - Copy.xls
Set wksZiel = ActiveSheet
Set wkbQuelle = Workbooks(strQuelle)
Set wksQuelle = wkbQuelle.Worksheets(1) 'Index-Nummer ggf. anpassen
For Each rngSuche In Selection.Cells 'Selection = 1 Zelle oder mehrere Zellen in Spalte P
varSuchwert = rngSuche.Value
If IsEmpty(varSuchwert) Then
If MsgBox("Zelle " & rngSuche.Address & " enthält keinen Wert" & vbLf _
& strMsgPrompt2, _
vbRetryCancel, strMsgTitle) = vbCancel Then
GoTo Fehler
End If
Else
Set rngFinden = wksQuelle.Columns("P:P").Find(What:=varSuchwert, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
If rngFinden Is Nothing Then
If MsgBox("Nummer """ & varSuchwert & """ in [" & wkbQuelle.Name & "]" _
& wksQuelle.Name & "!P:P"" nicht gefunden" & vbLf _
& strMsgPrompt2, _
vbRetryCancel, strMsgTitle) = vbCancel Then Exit For
Else
'zu kopierenden Zellbereich setzen
With wksQuelle
Set rngCopy = .Range(.Cells(rngFinden.Row, 5), .Cells(rngFinden.Row, 15))
End With
'Zielzelle setzen
Set rngZiel = wksZiel.Cells(rngSuche.Row, 5)
'Daten kopieren
rngCopy.Copy Destination:=rngZiel
Application.CutCopyMode = False
End If
End If
ResumeNext:
Next rngSuche
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 9 'Wert in indexliste nicht gefunden - Arbeitsmappe
MsgBox "Datei """ & strQuelle & """ ist noch nicht geöffnet!", _
vbOKOnly, strMsgTitle
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description, _
vbOKOnly, strMsgTitle
End Select
End With
End Sub

Anzeige
AW: Zellen suchen und kopieren
01.06.2015 13:03:23
York
Also einzelne Nummern scheinen zu klappen, allerdings arbeitet sich das Makro nicht selbstständig durch alle Nummern durch

AW: Zellen suchen und kopieren
01.06.2015 13:22:20
York
Danke für die schnelle Antwort, soweit funktioniert das auch :) Jetzt muss es nur noch von alleine alle Nummern prüfen und nicht jede einzeln.

AW: Zellen suchen und kopieren
01.06.2015 14:16:42
York
Habe es kapiert, ich muss alle Nummer makieren :D Sorry, ein typischer Montag :D

Anzeige
AW: Zellen suchen und kopieren
02.06.2015 08:36:26
York
Eine Frage hätte ich doch noch und zwar soll der Bereich E bis O gelöscht werden, wenn keine Nummer vorhanden ist. Wie ersetze ich die Fehlermeldung so, dass der gewünschte bereich gelöscht wird?

AW: Zellen suchen und kopieren
02.06.2015 13:07:29
fcs
Hallo York,
      If rngFinden Is Nothing Then
'        If MsgBox("Nummer """ & varSuchwert & """ in [" & wkbQuelle.Name & "]" _
& wksQuelle.Name & "!P:P"" nicht gefunden" & vbLf _
& strMsgPrompt2, _
vbRetryCancel, strMsgTitle) = vbCancel Then Exit For
'Daten in Spalten E:O in Zeile in Zieltabelle löschen
With wksZiel
.Range(.Cells(rngSuche.Row, 5), .Cells(rngSuche.Row, 15)).ClearContents
End With
Else

Gruß
Franz

Anzeige
AW: Zellen suchen und kopieren
02.06.2015 14:32:21
York
Du bist der Beste!, danke dir :)

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
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 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
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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