Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Spalten Vergleichen und bestimmte Werte übernehmen |
14.03.2017 14:37:34 |
gogos |
|
|
|
14.03.2017 14:56:17 |
Lukas |
|
|
|
14.03.2017 15:08:59 |
Gast2018 |
|
|
|
14.03.2017 15:39:35 |
Lukas |
|
|
|
14.03.2017 16:20:16 |
Gast39544 |
|
|
|
15.03.2017 16:59:02 |
Lukas |
|
|
Von:
gogos |
Datum:
14.03.2017 14:37:34 |
Views:
1158 |
Rating:
|
Antwort:
|
Thema:
Spalten Vergleichen und bestimmte Werte übernehmen |
Hallo liebe Community,
ich möchte in der Tabelle 1(="Daten") in der Spalte F die Nummern durchgehen und diese mit der Tabelle 2 (="XY") Spalte F vergleichen. Sprich ich nehme die erste Nummer aus der tabelle 1 und suche diese in Tabelle 2 Spalte F. Stimmen die Nummern überein, soll der Code den Wert aus der Tabelle 1 Spalte J kopieren und in tabelle 2 Spalte N einsetzen.
PS: Die Werte fangen in der tabelle 1 ab der 2. Zeile an, und in der Tabelle 2 ab der 5. ZEile.
Hier mein bisheriger Einsatz.
Private Sub CommandButton1_Click()
Dim rngQuelle As Range
Dim rngZiel As Range
With ThisWorkbook.Sheets("XY")
For Each rngZiel In .Range("F1:F" & .Cells(.Rows.Count, 6).End(xlUp).Row)
On Error Resume Next
Set rngQuelle = ThisWorkbook.Sheets("Daten").Range("F:F").Find(What:=rngZiel)
On Error GoTo 0
If Not rngQuelle Is Nothing Then
rngQuelle.Offset(0, 4).Resize(1, 1).Copy
rngZiel.Offset(0, 8).Resize(1, 1).PasteSpecial Paste:=xlPasteValues
End If
Next
End With
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Spalten Vergleichen und bestimmte Werte übernehmen |
14.03.2017 14:37:34 |
gogos |
|
|
|
14.03.2017 14:56:17 |
Lukas |
|
|
|
14.03.2017 15:08:59 |
Gast2018 |
|
|
|
14.03.2017 15:39:35 |
Lukas |
|
|
|
14.03.2017 16:20:16 |
Gast39544 |
|
|
|
15.03.2017 16:59:02 |
Lukas |
|
|