Thema Datum  Von Nutzer Rating
Antwort
13.02.2023 21:42:49 Redouan
*****
NotSolved
14.02.2023 00:23:20 ralf_b
NotSolved
Rot Zuordnung spalten
 14.02.2023 00:53:59 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
14.02.2023 00:53:59		 Views:
348		 Rating:
     
Antwort:
  Ja
Thema:
Zuordnung spalten		 
Sub Zuordnung()

    Dim Suche, rngCopyA As Range, i&, cnt&, x&
    
    ' man kanns auch mit den Variablen übertreiben.....

    Anz_Spalten = 3
    
    'beispielhaft Range zu Array
    Suche = Worksheets("Tabelle2").Range("A1:A500")
       
    Set A = Worksheets("Tabelle1")
    Set B = Worksheets("Tabelle4")
    lrowB = B.Cells(Rows.Count, 1).End(xlUp).row
            
    For i = lbound(Suche) To UBound(Suche)
        
        For cnt = 1 To A.Cells(Rows.Count, 1).End(xlUp).row
            
            If Suche(i,1) = A.Cells(cnt, 1).Value Then
                Set rngCopyA = A.Cells(cnt, 2).Resize(1, Anz_Spalten)
                
                For x = 1 To lrowB
                   If Suche(i,1) = B.Cells(x, 1).Value Then
                        B.Cells(x, "C").Resize(1, Anz_Spalten).Value = rngCopyA.Value
                   End If
                Next
           End If
       Next
    Next
    
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
13.02.2023 21:42:49 Redouan
*****
NotSolved
14.02.2023 00:23:20 ralf_b
NotSolved
Rot Zuordnung spalten
 14.02.2023 00:53:59 ralf_b
NotSolved