Thema Datum  Von Nutzer Rating
Antwort
14.03.2017 14:37:34 gogos
NotSolved
14.03.2017 14:56:17 Lukas
NotSolved
14.03.2017 15:08:59 Gast2018
NotSolved
Blau Spalten Vergleichen und bestimmte Werte übernehmen
 14.03.2017 15:39:35 Lukas
NotSolved
14.03.2017 16:20:16 Gast39544
NotSolved
15.03.2017 16:59:02 Lukas
NotSolved

Ansicht des Beitrags:
Von:
Lukas		 Datum:
14.03.2017 15:39:35		 Views:
623		 Rating:
     
Antwort:
  Ja
Thema:
Spalten Vergleichen und bestimmte Werte übernehmen

Sorry hatte da ja einige Fehler^^

Versuch den mal


Sub testen()
Dim objWks_T1  As Worksheet, objWks_T2 As Worksheet
Dim x As Integer, y As Integer, lz As Integer, lz2 As Integer
 
Set objWks_T1 = ThisWorkbook.Worksheets("Daten")
With objWks_T1
    lz = .Cells(Rows.Count, "F").End(xlUp).Row
End With
 
Set objWks_T2 = ThisWorkbook.Worksheets("XY")
With objWks_T2
    lz2 = .Cells(Rows.Count, "F").End(xlUp).Row
End With


 
 For x = 2 To lz
      For y = 5 To lz2
           If objWks_T1.Cells(x, 6).Value = objWks_T2.Cells(y, 6).Value Then
               With objWks_T1
                    objWks_T2.Cells(y, 14).Value = .Cells(x, 10).Value
                End With
           End If
      Next y
 Next x
 
End Sub

 

Lukas

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
14.03.2017 14:37:34 gogos
NotSolved
14.03.2017 14:56:17 Lukas
NotSolved
14.03.2017 15:08:59 Gast2018
NotSolved
Blau Spalten Vergleichen und bestimmte Werte übernehmen
 14.03.2017 15:39:35 Lukas
NotSolved
14.03.2017 16:20:16 Gast39544
NotSolved
15.03.2017 16:59:02 Lukas
NotSolved