Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in anderer Tabelle suchen (VBA) und kopieren

Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 11:02:28
Staudigl
Hallo liebes Forum,
ich habe folgendes Problem und bin nicht unbedingt versiert im Umfang mit VBA. Grundkenntnisse sind da, aber ich komme nicht weiter:
Ich möchte in Arbeitsblatt 1 einen Button mit einem Makro versehen, dass folgendes auslöst:
Lese den Wert aus BU2 in Arbeitsblatt 2 aus und suche diesen in Arbeitsblatt 1 Spalte D. Wenn gefunden, dann kopiere den reinen Text aus Spalte K (Arbeitsblatt 1) in BU2 aus Arbeitsblatt 2. Wenn der Suchparameter nicht gefunden wird, dann soll nix passieren.
Das Ganze muss als Schleife für alle Zeilen einzeln ablaufen, sprich in BU2 anfangen bis zu BU1000.
Ich denke die Grundlogik müsste lauten:
For i=2 to 1000
If Suche=true Then Copy
Next i
Ich kann diese Logik aber leider nicht in Code ummünzen. Ich hab zwar das Buch "Excel-VBA für Dummies" vor mir, aber scheinbar bin ich noch nicht so weit ;-)
Danke für eure Hilfe.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 11:18:35
Alexander
Hallo Nino,
meinst du so etwas?
Sub suche()
Dim i As Long
Dim k As Long
For i = 2 To 1000
For k = 2 To 1000
If Sheets(2).Cells(i, 73).Value = Sheets(1).Cells(k, 4).Value Then
Sheets(2).Cells(i, 73).Value = Sheets(1).Cells(k, 11).Value
End If
Next k
Next i
End Sub
Gruß Alex

AW: Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 11:37:53
Staudigl
Hi Alexander,
vielen Dank für deine Hilfe.
Leider funktioniert es noch nicht einwandfrei. Er kopiert oftmals jetzt nicht den passenden Text rüber bzw. auch, wenn der Suchparameter nicht gefunden wurde. Wie kann ich das noch beheben?
Er soll den Text rüber kopieren, den er in Spalte K des Arbeitsblattes 2 findet, der in der Zeile steht, in der er den Suchparameter gefunden hat. Sprich: Wert aus BU5 (Arbeitsblatt 1) findet er in Zeile 37 Spalte D. Dann soll er Spalte K Zeile 37 in BU5 kopieren. Wenn er einen Parameter gar nicht finden konnte, soll er einfach nix machen und die BU-Zeile so lassen wie davor.
Hoffe, das ist verständlich genug.

Anzeige
AW: Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 11:53:37
Alexander
Hallo,
habe ich dich richtig verstanden?
Gesucht wird der Wert aus Spalte BU Arbeitsblatt 1 in Spalte D Arbeitsblatt 1,
ausgegeben wird der Wert in der gleichen Zeile wo der Wert ins BU stand aber in Spalte K Arbeitsblatt 2
Gruß Alex

AW: Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 12:20:06
Staudigl
Hi,
nein nicht ganz.
Ein Beispiel:
Arbeitsblatt 2 Spalte BU Zeile 6. Dieser Wert wird gesucht in der kompletten Arbeitsblatt 1 Spalte D.
Wenn der Wert zum Beispiel in Zeile 29 gefunden wird, wird der Wert aus Arbeitsblatt 1 Spalte K Zeile 29 kopiert und in Arbeitsblatt 2 Spalte BU Zeile 6 eingefügt.
Finder er den Wert nicht, passiert nix und die nächste Zeile (hier also Zeile 7) wird abgeglichen. Usw.
Danke für deine Mühe!

Anzeige
AW: Daten in anderer Tabelle suchen (VBA) und kopieren
31.03.2015 12:31:38
Alexander
Hallo,
Ich hoffe es klappt jetzt
Sub suche()
Dim i As Long
Dim k As Long
For i = 2 To 1000
For k = 2 To 1000
If Sheets(2).Cells(i, 73).Value = Sheets(1).Cells(k, 4).Value Then
Sheets(2).Cells(i, 73).Value = Sheets(1).Cells(k, 11).Value
GoTo gefunden
End If
Next k
gefunden:
Next i
End Sub
Gruß

300 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 Beiträge
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
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 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
2
7
2
2
1
4
4
3
6
2
1
3
4
2
5
4
1
4
3
2
1
8
5
3
5