Wenn ich folgendes Makro starte, paßt alles. die richtigen Werte werden gelöscht.
Die Überschrift in der Zeile 1 bleibt erhalten.
Wenn ich dieses Makro jedoch ein zweirts Mal starte, sind zwar die richtigen Werte gelöscht aber auch die Eintrag in der 1. Zeile in der gelöschten Spalte.
Wieso wird hier die 1. Zeile gelöscht, obwohl diese im code gar nicht angespochen wird?
Die Überschrift soll auch nach dem zweiten und dritten Stasrt des Makros erhlaten bleiben. Wo liegt hier bitte der Fehjler im Code?
Sub NeuPosDel()
Application.EnableEvents = False
'On Error GoTo WEITER
Dim bereich As Range
Dim bereich1 As Range
Dim wks As Worksheet
Dim wks1 As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Ausprägungen")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Leistungen")
Set bereich = wks.Range("B3:J" & wks.Range("B65536").End(xlUp).Row)
Set bereich1 = wks1.Range("G2:G" & wks1.Range("G65536").End(xlUp).Row)
With bereich1
.Clear
End With
Sheets("Ausprägungen").Select
With bereich
.Clear
.NumberFormat = "@"
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Set bereich = Nothing
Range("J2").Select
'WEITER:
Application.EnableEvents = True
End Sub
Danke
Josef