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:
693		 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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