hi lotharwas meinst du mit dem ganzen code?
was das löschen und die fehlerentstehung angeht ist das der ganze code... das habe ich schon getestet. wenn der weg ist gehts.
aber hier mal der code des buttons der das löschen soll:
Private Sub CommandButton5_Click()
Worksheets("tabelle1").Select
Range("A15:Q59").Select
Selection.Delete shift:=xlUp
Worksheets("tabelle1").Range("A1").Activate
Dim Blatt As Worksheet
wert = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C43]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(19, 3).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C44]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(20, 3).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C45]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(21, 3).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C46]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(22, 3).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[E43]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(19, 5).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[E45]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(21, 5).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[E46]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(22, 5).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[G44]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(20, 7).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C52]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(28, 2).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C53]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(29, 2).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C54]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(30, 2).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C55]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(31, 2).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C56]
If IsNumeric(wert) Then summe = (summe + wert) / 2
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(32, 2).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[C57]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(33, 2).Value = summe
Worksheets("tabelle1 (2)").Range("G17").Copy
ActiveSheet.Paste Destination:=Worksheets("tabelle1").Range("D33")
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[H44]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(20, 8).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[H45]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(21, 8).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[H46]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(22, 8).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[H43]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(19, 8).Value = summe
summe = 0
For Each Blatt In ActiveWorkbook.Worksheets
wert = Blatt.[G43]
If IsNumeric(wert) Then summe = summe + wert
Next Blatt
ActiveWorkbook.ActiveSheet.Cells(22, 7).Value = summe
wert = 0
summe = 0
Application.DisplayAlerts = False
Worksheets("tabelle1").Activate
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name <> ActiveSheet.Name And Blatt.Range("C20") = 0 _
And Blatt.Range("L1") = 1 Then Blatt.Delete
Next
Application.DisplayAlerts = True
Range("A1").Select
Unload Me
UserForm8.Show
End Sub
da sind noch ein paar sachen drin die auf der tabelle1 summieren sollen...
ich kann auch gerne mal das ganze teil verschicken wen das jemand interessiert...
hoffentlich findet ihr den fehler.
henning