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:
484
Rating: Antwort:
 Nein
Thema:
Spalten aus unterschiedlichen Tabellen vergleichen und füllen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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