Excel VBA Varailable Spaltenauswahl

Question

Ich versuche derzeit, ein Makro zu beenden, das eine Liste aller Personen in 1 Liste zusammenfassen und alle verschiedenen Informationen für Menschen über alle Listen anzeigen wird.

Ich bin zu dem Punkt gekommen, wo ich alle Listen zusammen habe, und alles, was ich jetzt tun muss, ist die richtigen Daten auszuwählen und zu kompilieren.

Mein aktueller Code:

Sheets("Sheet2").Select 
Columns("E:AI").Select 
Selection.Copy 
Sheets("Sheet1").Select 
Range("E1").Select 
ActiveSheet.Paste 

Ich versuche, die Spalten Zeile zu ersetzen, so dass es eine variable Länge auswählen.

Columns("E").Select 
Range(Selection, Selection.End(x1toRight)).Select 
Range(Selection, Selection.End(x1Down)).Select 
Selection.Copy 

Wenn das Makro mit der ersten zweiten Zeile in meinem aktualisierten Code bekommt, erhalte ich einen Laufzeitfehler ‚1004‘: Anwendung definiert oder Objekt definierte Fehler.

Wenn ich es zeilenweise durchlaufe, scheint es ein Problem mit den Spalten ("E") zu geben, die die gleichen Daten auswählen wie zuvor, als es Spalten ("E: AI") waren.

Jede Hilfe würde sehr geschätzt werden.

Answer 1

Nicht genau, was Sie versuchen zu tun, aber diesen Code bis E1 -> letzte Spalte und letzte Zeile gefüllt.

Sie müssen es an Ihre Bedürfnisse anpassen. Ich nahm an, dass Ihr Tisch quadratisch ist, wenn Sie den Code nicht ändern.

Ich habe die Zeilen in Spalte E gezählt, wenn das nicht das ist, was Sie ändern wollen.
Ich suchte auch nach der letzten Spalte in Zeile 1. Ändern Sie das, wenn das nicht stimmt.

LastCol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column ' here you need to change '1' to what row to look at 
LastRow = Cells(Rows.Count, "E").End(xlUp).Row ' change "E" to fit your need 
Range("E1:" & Split(Cells(1, LastCol).Address(True, False), "$")(0) & LastRow).Select