PDA

Vollständige Version anzeigen : Laufzeitfehler '1004' Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen


ASD.GP
19.07.2014, 19:48
Verehrte Forumsteilnehmer,
hier ein Fehler den ich nicht lösen kann.

Public Sub ddcDeliktAend_onAction(control As IRibbonControl, strDelikt As String, Index As Integer)
Dim TabellenbereichNeu As String
Set ShtStammdaten = Sheets("Stammdaten")
With ShtStammdaten
.visible = True
.Activate

'letzte benutzte Zelle in Stamm_Tabelle finden = .Cells(Rows.Count, Index + 1).End(xlUp).Row
'nach dem Ändern/Zugang/Löschen der Stamm_Tabelle (des Delikt)aktuelle Größe anpassen

TabellenbereichNeu = "$" & Index + 1 & "$2:$" & Index + 1 & "$" & .Cells(Rows.Count, Index + 1).End(xlUp).Row
MsgBox TabellenbereichNeu

'bis hier alles OK!
Inhalt TabellenbereichNeuWert: "$A$2:$A$9" - ohne ""
Inhalt strDelikt: "Stamm_Delikt" - ohne ""

.ListObjects(strDelikt).Resize Range(TabellenbereichNeu).Select '<--- Laufzeitfehler '1004':
'Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen

'Fehlerzeile wurde mit Makrogenerator erzeugt und funktioniert!
Original-Code:ActiveSheet.ListObjects("Stamm_Delikt").Resize Range( _
"$B$2:$B$9").select


End With
End Sub