Fehler: Bei überlappenden Markierungen.....
03.06.2013 15:00:22
rieckmann
habe mal wieder einen Fehler in der Anwendung.
Laufzeitfehler 1004
Bei überlappenden Markierungen ist die Ausführung dieses Befehls nicht möglich.
Bei diesen Code (hier aus dem Forum) sollen alle Datensätze aus allen Tabellenblätter
ab Zeile 2 in ein Gesamt Tabellenblatt zusammengefügt werden.
Dabei kommt dieser Fehler in dieser Zeile zustande.
.Range("A:J").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Was kann das sein ?
Private Sub Worksheet_Activate()
Dim wks As Worksheet
Dim letzteZ As Long, x As Long
Application.ScreenUpdating = False
With Worksheets("Gesamt")
.Range(Rows(2), Rows(Rows.Count)).Delete
For Each wks In Worksheets
If wks.Name "Gesamt" Then
x = Sheets(wks.Name).Cells(Rows.Count, 1).End(xlUp).Row + 1
letzteZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If x > 2 Then
wks.Cells(2, 1).Resize(wks.UsedRange.Rows.Count - 1, 9).Copy .Cells(letzteZ, 1)
End If
End If
Next
.Range("A:J").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
End Sub
Gruß
Fred