"Selection" so in Ordnung? oder ungüns
27.05.2022 15:33:31
Andreas
Option Explicit
Sub Bearbeiten_Neu()
' Daten in "Bearbeiten" durch "Bestand_Bearb." ersetzen
' es wird eine neues Blatt "Bearbeiten" erstellt
With Application
.DisplayAlerts = False
End With
Sheets("Bearbeiten").Delete
Sheets(" LEERBLATT Start").Copy Before:=Sheets(3)
Sheets(" LEERBLATT Start (2)").Name = "Bearbeiten"
With ActiveWorkbook.Sheets("Bearbeiten").Tab
.Color = 255
.TintAndShade = 0
End With
Sheets("Bestand_Bearb.").Select
Columns("A:L").Select
Selection.ClearContents
Sheets("Bestand_Bearb.").Select 'in "Bestand_Bearb." "A:N" Rahmen entfernen
Columns("A:N").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Hilfstabelle EINGABE").Select 'in "Hilfstabelle EINGABE" "A14:M23" leeren
Range("A14:M23").Select
Selection.ClearContents
With Application
.DisplayAlerts = True
End With
Sheets("Bearbeiten").Select 'ActiveCell in "Bearbeiten" "C1"
Range("C1").Select
End Sub
Gruß Andreas