Thema Datum  Von Nutzer Rating
Antwort
Rot Daten über Arbeitsblätter verschieben
03.11.2022 11:25:26 marv
NotSolved
03.11.2022 13:07:33 marv
NotSolved
03.11.2022 13:18:58 Gast39473
NotSolved
04.11.2022 08:26:37 Marv
NotSolved
04.11.2022 09:47:08 Gast30873
NotSolved
04.11.2022 09:50:44 Mase
*****
Solved

Ansicht des Beitrags:
Von:
marv
Datum:
03.11.2022 11:25:26
Views:
190
Rating: Antwort:
  Ja
Thema:
Daten über Arbeitsblätter verschieben

Hi zusammen, 

Ich habe 2 Sheets

1.

Name Date1 Date2
Test1 23.01.2017 17.09.2019
Test2 17.09.2019 11.08.2022
Test3 11.08.2022 23.01.2017
Test4 12.07.2016 07.05.2020

2.

Name Bez Date1 Date2
Test8 udb106.e1001_ms_1516    
Test2 udb106.cocos_liste    
Test udb106.e1001_ms_1516    
Test2 udb106.E0011_Hunter_Lead    

 

Jetzt würde ich gerne die 2 daten von Sheet1 nach holen, sodass es so aussieht:

Name Bez Date1 Date2
Test8 udb106.e1001_ms_1516    
Test2 udb106.cocos_liste 27.01.2022 11.08.2022
Test udb106.e1001_ms_1516    
Test2 udb106.E0011_Hunter_Lead 27.01.2022 11.08.2022

 

Ich hatte es wie folgt versucht:

Dim i As Integer
i = 2

'arrNamen = Sheet 1
'arrNamen2 = Sheet 2

    For Each item In arrNamen2
 
    If IsError(Application.Match(item, arrNamen, 0)) Then
        
    Else
                        
        Cells(i, 3).Value = Worksheets("Sheet1").Cells(i, 2).Value
        Cells(i, 4).Value = Worksheets("Sheet1").Cells(i, 3).Value

    End If
    
     i = i + 1
           
    Next item

Allerdings bekomme ich dann nur die Daten kopiert und nicht die, die zu dem namen gehören: 

Name Bez Date1 Date2
Test8 udb106.e1001_ms_1516 23.01.2017 17.09.2019
Test2 udb106.cocos_liste 17.09.2019 11.08.2022
Test udb106.e1001_ms_1516 11.08.2022 23.01.2017
Test2 udb106.E0011_Hunter_Lead 12.07.2016 07.05.2020

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
Rot Daten über Arbeitsblätter verschieben
03.11.2022 11:25:26 marv
NotSolved
03.11.2022 13:07:33 marv
NotSolved
03.11.2022 13:18:58 Gast39473
NotSolved
04.11.2022 08:26:37 Marv
NotSolved
04.11.2022 09:47:08 Gast30873
NotSolved
04.11.2022 09:50:44 Mase
*****
Solved