VBA hilfe
14.11.2022 14:05:25
Klaus
kann man diesen Code kleiner machen ? und kann man diesen Fehler von der Datei entnehmen ( Daten xls soll geschlossen werden ), ob diese zwischendatei gespeichert wird.
Danke an alle
Sub Makro5()
' Makro5 Makro
Workbooks.Open Filename:="L:\F\Daten.xls"
Cells.Select
Selection.Copy
Windows("Grunddatei.xlsb").Activate
Sheets("Eingabe").Select
Range("A1").Select
ActiveSheet.Paste
Range("E18").Select
Windows("Daten.xls").Activate
ActiveWindow.Close
Sheets("Eingabe").Select
Columns("E:E").Select
Selection.Copy
Sheets("Auswertung").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$9243").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("A:C").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B6").Select
Columns("A:A").EntireColumn.AutoFit
End Sub