VBA
26.04.2018 18:25:52
Felix
ich bin leider absoluter VBA Anfänger und hoffe ihr könnt mir helfen.
Ich habe eine Datei, in der ich in einigen Spalten die Werte löschen möchte (in manchen neue einfügen möchte) und die Zeilenüberschriften aus einer anderen Datei einfügen möchte (da sonst das ERP System die Datei nicht korrekt importiert).
Die Ursprungsdatei in der die Werte gelöscht bzw. ersetzt werden hat dabei immer einen anderen Dateinamen. Die Datei aus der die Kopfzeile kopiert werden soll heißt immer gleich und liegt immer am gleichen Platz.
Bis zum Öffnen der anderen Datei und kopieren der Werte habe ich es mit Makro Aufzeichnung und Durchkämpfen auch geschafft... dann klemmt es aber und ich finde die Lösung nicht.
Sub PN3_v2()
' PN3_v2 Makro
Dim myExcel As Object
Dim ext_wb As Object
Dim mySheet As Object
Range("Table[[Year]:[Months]]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("Table[Name]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("Table[Name]").Select
ActiveCell.FormulaR1C1 = "1"
Range("Table[Type]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("Table[Type]").Select
ActiveCell.FormulaR1C1 = "0"
Range("I3").Select
ActiveWindow.LargeScroll ToRight:=1
Columns("V:V").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.LargeScroll ToRight:=-2
'Application.screenupdate = False
Set myExcel = GetObject(, "Excel.Application")
Set ext_wb = Workbooks.Open("\\clusterfs\KFM\AX\VORLAGE\PN3.xlsx")
ext_wb.Sheets("Tabelle1").Range("A1:AL1").Copy
ext_wb.Close
==> hier fehlt m.E. jetzt die korrekte Funktion um das kopiert in die Zeile A1:AL1 des jetzt _
aktiven Workbooks einzufügen.
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Vielen Dank im voraus für Eure Hilfe,Felix