LZ Fehler 1004 "Eine Tabelle kann keine andere Tabelle ...

Günther · 2024-06-27T14:34:31+00:00

Hallo VBA Profis, ich bins mal wieder. Leider mal wieder ein Problem. Seit gestern erhalte ich den Laufzeitfehler 1004 mit dem Hinweis "Eine Tabelle kann keine andere Tabelle überlappen". Keine Ahnung woher diese Meldung kommt bzw. was diese bedeutet. Ich hoffe irgend Jemand hat hierfür eine Idee/Lösung. Ob dieser Makro Ausschnitt aussagekräftig ist, kann ich nicht sagen. Aber die ganze Datei anzuhängen geht nicht, da diese zu groß ist. Sub Datenschnitt_Kurzuebersicht() ' 'Application.DisplayAlerts = False 'Application.ScreenUpdating = False Sheets("Kurzuebersicht").Select 'Rows("5:5").Select Range("A7").Select Application.CutCopyMode = False 'Hier kommt der Fehler ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$7:$AK$374"), , xlYes).Name _ = "tbl_kurzuebersicht" Range("tbl_kurzuebersicht[#All]").Select ...... Grüße Günther

Hi

dein Code fügt dem Tabellenblatt ein neues Listobject hinzu (ListObjects.Add)
das darfst du nur ausführen, wenn sich dort nicht schon ein solches befindet.
du müsstest also prüfen, ob der Code nicht schon gelaufen ist, bspw mit IF Sheets(...).ListObjects.Count = 0 THEN

oder du selektierst zuerst mal das Listobjekt und prüfst, ob das einen Fehler gibt.
wenn ja, erstellst du es, wenn nicht ist es vorhanden und du kannst weiter machen:

on Error Resume next

Range("tbl_kurzuebersicht[#All]").Select

if err > 0 then 

    on error goto 0

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$7:$AK$374"), , xlYes).Name _

    = "tbl_kurzuebersicht"

    Range("tbl_kurzuebersicht[#All]").Select

else

    on error goto 0

end if

Gruß Daniel

Hallo Daniel,
Danke für Deinen Beitrag. Jetzt lief das Makro zwar weiter, aber jetzt kommt ein paar Zeilen weiter der nächste Fehler

Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument.
Habe ich was falsch gemacht? Siehe unten bei 'Hier kommt jetzt der Fehler

Sub Datenschnitt_Kurzuebersicht()
'
'Application.DisplayAlerts = False
'Application.ScreenUpdating = False

' Datenschnitt_Kurzuebersicht Makro
'
Sheets("Kurzuebersicht").Select
'Rows("5:5").Select
' Selection.RowHeight = 180
Range("A7").Select
Application.CutCopyMode = False
' ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$7:$AK$387"), , xlYes).Name _
' = "tbl_kurzuebersicht"

On Error Resume Next
Range("tbl_kurzuebersicht[#All]").Select
If Err > 0 Then
On Error GoTo 0
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$7:$AK$374"), , xlYes).Name _
= "tbl_kurzuebersicht"
Range("tbl_kurzuebersicht[#All]").Select
Else
On Error GoTo 0
End If

ActiveWindow.SmallScroll Down:=-12
ActiveSheet.ListObjects("tbl_kurzuebersicht").TableStyle = "TableStyleMedium3"
ActiveSheet.ListObjects("tbl_kurzuebersicht").TableStyle = "TableStyleLight21"
Range("A9").Select

'Datenschnitte einfügen, positionieren und Style anpassen
'Range("C10").Select
Range("A1").Select

'Hier kommt jetzt der Fehler
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("tbl_kurzuebersicht") _
, "Workstation-ID").Slicers.Add ActiveSheet, , "Workstation-ID", _
"Workstation-ID", 9, 414.75, 144, 198.75

Gruß
Günther

LZ Fehler 1004 "Eine Tabelle kann keine andere Tabelle ...

Forumthread: LZ Fehler 1004 "Eine Tabelle kann keine andere Tabelle ...

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial