Thema Datum  Von Nutzer Rating
Antwort
25.05.2016 11:33:12 Gast90211
NotSolved
Blau In 2 Tabellen identische Werte suchen und benennen
 25.05.2016 15:21:51 Gast12881
NotSolved

Ansicht des Beitrags:
Von:
Gast12881		 Datum:
25.05.2016 15:21:51		 Views:
542		 Rating:
     
Antwort:
  Ja
Thema:
In 2 Tabellen identische Werte suchen und benennen

Hallo T.V.!

Der folgende Code sollte das hinbekommen. Wenn der Wert mehrfach vorkommt, wird immer der erste WErt aus Blatt 2 genommen. VG

 

Option Explicit


Sub Werte_kopieren()
Dim zeilentab1 As Long
Dim suche As Variant
Dim zeiletab2 As Long
Dim i As Long

'beschriebene Zeilen in Blatt1 Spalte 1
zeilentab1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
'durch alle Zeilen
For i = 1 To zeilentab1
    'Wert der Zelle übernehmen
    suche = Worksheets(1).Cells(i, 1)
    'leere Zellen nicht suchen
    If suche <> "" Then
        'schauen ob es den Wert auch in Blatt 2 gibt
        If Application.WorksheetFunction.CountIf(Worksheets(2).Columns(1), suche) > 0 Then
            'Zeile suchen
            zeiletab2 = Worksheets(2).Columns(1).Find(suche).Row
            'eintragen
            Worksheets(1).Cells(i, 2) = Worksheets(2).Cells(zeiletab2, 2)
        End If
    End If
Next i

End Sub

 

Ihre Antwort
  • 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: Name: Email:



  • 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
25.05.2016 11:33:12 Gast90211
NotSolved
Blau In 2 Tabellen identische Werte suchen und benennen
 25.05.2016 15:21:51 Gast12881
NotSolved