Hallo Community,

vorab Danke an alle die sich mit dem Thema beschäftigen.

Ich habe folgende Fragestellung:

Ich habe zwei Tabellen, in der einen die Spalten A, B, C mit jeweils Werten und in der anderen Tabelle A, C, B, allerdings ohne Werte.

Die frage ist, wie bekomme ich die Werte aus der ersten Tabelle in die andere Kopiert, ohne dabei die Spaltenstruktur zu verändern.

Ich hatte folgenden Ansatz, allerdings erfolglos

Sub SpaltenVergleichenUndFüllen()

  Dim lngSpalten As Long
  Dim lngSpaltenMax As Long
  'Worksheets definieren
  'Quelle und Ziel
  Dim wksQuelle As Worksheet
  Dim wksZiel As Worksheet
  
  'Quelle und Ziel setzen
  Set wksQuelle = Tabelle1
  Set wksZiel = Tabelle2
    
  'Wir wollen die Spalten aus der Quelle betrachten
  With wksQuelle
        
    lngSpaltenMax = .UsedRange.Columns.Count
        
    For lngSpalten = 1 To lngSpaltenMax
      
      'Hier weiß ich nicht mehr weiter.
      
    Next lngSpalten
  
  End With

End Sub

Ich freue mich über jede Hilfe und bedanke mich vorab an alle.

Viele Grüße

Emin