Tweet
Hallo zusammen
bin in Sachen VBA noch nicht sehr erfahren und hab ein kleines Problem
Hab ein Tabellenblatt erstellt und muss per Makro 3 Spalten einfügen, was ja kein Problem ist.
Jedoch hat dieses Tabellenblatt immer unterschiedlich viel Zeilen, je nach Auswertung, und das Makro sollte so flexibel sein, die Werte in die 3 neuen Spalten so einzufügen, dass es immer nur bis zur letzten Zeile der benachbarten Spalte, geht. Also ich füge spalte B,C,D hinzu per Makro und er sollte die Daten in den Spalten bis zur letzten Zeile von A einfügen. Habe versucht einen Makro aufzuzeichnen aber da kommt dann als Range immer nur ein fixer wert:
Selection.Insert Shift:=xlToRight
Range("B8").Select
Selection.AutoFill Destination:=Range("B8:B841")Range("B8:B841").Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Rohdaten_2!R[-7]C[-2]:R[1274]C[2],3)"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C841")Range("C8:C841").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Rohdaten!R[-7]C[-3]:R[19822]C[2],3)"
Range("D8").Select
Selection.AutoFill Destination:=Range("D8: D841")Range("D8: D841").Select
das ist mein Code und die Zeile "Range("B8:B841").Select" sollte so geändert werden dass er er nicht bis zeile 841 sondern eben bis zur letzten Zeile mit Werten einfügt
ich hoffe es ist nicht zu kompliziert beschrieben
vielen dank im voraus!
MFG
bin in Sachen VBA noch nicht sehr erfahren und hab ein kleines Problem
Hab ein Tabellenblatt erstellt und muss per Makro 3 Spalten einfügen, was ja kein Problem ist.
Jedoch hat dieses Tabellenblatt immer unterschiedlich viel Zeilen, je nach Auswertung, und das Makro sollte so flexibel sein, die Werte in die 3 neuen Spalten so einzufügen, dass es immer nur bis zur letzten Zeile der benachbarten Spalte, geht. Also ich füge spalte B,C,D hinzu per Makro und er sollte die Daten in den Spalten bis zur letzten Zeile von A einfügen. Habe versucht einen Makro aufzuzeichnen aber da kommt dann als Range immer nur ein fixer wert:
Selection.Insert Shift:=xlToRight
Range("B8").Select
Selection.AutoFill Destination:=Range("B8:B841")Range("B8:B841").Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Rohdaten_2!R[-7]C[-2]:R[1274]C[2],3)"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C841")Range("C8:C841").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Rohdaten!R[-7]C[-3]:R[19822]C[2],3)"
Range("D8").Select
Selection.AutoFill Destination:=Range("D8: D841")Range("D8: D841").Select
das ist mein Code und die Zeile "Range("B8:B841").Select" sollte so geändert werden dass er er nicht bis zeile 841 sondern eben bis zur letzten Zeile mit Werten einfügt
ich hoffe es ist nicht zu kompliziert beschrieben
vielen dank im voraus!
MFG
Comment