Thema Datum  Von Nutzer Rating
Antwort
10.09.2019 18:46:13 Emin
Solved
Blau Spalten aus unterschiedlichen Tabellen vergleichen und füllen
 10.09.2019 23:03:37 Gast58577
Solved
11.09.2019 08:55:00 Gast6858
Solved

Ansicht des Beitrags:
Von:
Gast58577		 Datum:
10.09.2019 23:03:37		 Views:
355		 Rating:
     
Antwort:
 Nein
Thema:
Spalten aus unterschiedlichen Tabellen vergleichen und füllen		 
  Dim wksQuelle As Worksheet
  Dim wksZiel   As Worksheet
  Dim rng       As Range
  
  'Quelle und Ziel setzen
  Set wksQuelle = Tabelle1
  Set wksZiel = Tabelle2
  
  For Each rng In wksQuelle.UsedRange.Columns
    
    'Spalten-Index in Quelle
    Select Case rng.Column
      Case 2 'Spalte B nach Spalte C in Ziel
        wksZiel.Range("C1").Resize(rng.Rows.Count).Value = rng.Value
        
      Case 3 'Spalte C soll nach Spalte B in Ziel
        wksZiel.Range("B1").Resize(rng.Rows.Count).Value = rng.Value
        
      Case Else 'alle anderen Spalten
        wksZiel.Cells(1, rng.Column).Resize(rng.Rows.Count).Value = rng.Value
        
    End Select
    
  Next

Sollte so funktionieren.

So werden alle Spalten übernommen. Spalte C und B werden vertauscht ins Ziel übertragen.

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
10.09.2019 18:46:13 Emin
Solved
Blau Spalten aus unterschiedlichen Tabellen vergleichen und füllen
 10.09.2019 23:03:37 Gast58577
Solved
11.09.2019 08:55:00 Gast6858
Solved