"Index außerhalb des gültigen Bereichs"
11.02.2009 12:52:00
UweD
heute brauche ich mal eure Hilfe
Ich habe in den meisten meiner Makros eine Fehlerbehandlung eingebaut.
Sub Vorlage()
On Error GoTo Fehler
Dim TB1, TB2
Dim SP%, ZE&, LR%, LC&
Dim RR%, CC&
Set TB1 = Sheets("Tabelle1") 'aus bestimmtem Blatt
Set TB2 = ActiveSheet 'oder aus aktuellen Blatt
SP = 1 'Spalte A
ZE = 1 'Zeile 1
LR = TB2.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
LC = TB1.Cells(ZE, Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
RR = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
CC = TB2.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
Application.ScreenUpdating = False
'Ende Grundeinstellungen
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Jetzt nach Umstieg auf Excel 2007 habe ich das Problem, daß mir, obwohl während des Ablaufs kein Fehler angezeigt wird, am Ende des Makros die Meldung erscheint.
Lasse ich das Makro per Einzelschritt durchlaufen, wird bei den beiden Zeilen
RR=
CC=
im Überwachungsfenster der Fehler gesetzt.
"Index außerhalb des gültigen Bereichs"
Hängt wohl mit "SpecialCells(xlCellTypeLastCell)" zusammen.
Trat so in der alten Version nicht auf.
Kann mir jemand das erklären, oder einen Tipp geben, wie ich das abstelle
Danke und Gruß
UD
- - -
Helfe mir momentan so....
' ...
Err.Clear
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
ist aber nur eine Notlösung..