ich habe ein kleines Makro geschieben.
Beim durchlauf des Makros kommt jedoch eine Fehlermeldung, die ich nicht mehr nachvollziehen kann, d.h. ich weis einfach nicht wo der Fehler liegen soll. Erschwerend kommt noch hinzu, gestern hat es funktioniert.
Als Fehlermeldung kommt:
Laufzeilenfahler '1004'
Anwendungs- oder Objektdefinierter Fehler
Mein Code:
Dim AnfangNT, EndeLV, EndeNT
Dim AnfSp, EnSp
Dim j, i
Dim LZ, LS
Dim Bereich, Ziel
LS = Worksheets(1).Cells(6, Worksheets(1).Columns.count).End(xlToLeft).Column 'liefert die letzte belegte Spalte der Tabelle (bezogen auf Zeile 6)
LZ = Worksheets(1).Cells(Rows.count, 7).End(xlUp).Row 'liefert die letzte belegte Zeile der Tabelle
'Entfernt die Gliederungen
Range("B11").Select
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlBelow
.SummaryColumn = xlRight
End With
Selection.ClearOutline
'Feststellen der Entsprechenden Spaltennummern
For j = 1 To LS Step 1
If Cells(6, j).Value = "H-Kosten" Then
AnfSp = j
End If
If Cells(4, j).Value = "Gesamtübersicht" Then
EnSp = j
End If
Next j
'Kopieren der Gesamtübersicht und einfügen in selbige als Werte
Range(Cells(7, EnSp), Cells(LZ - 15, EnSp + 1)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
....
Beim Debuggen nach der Fehlermeldung wird die Range-Anweisung angezeit.
Range(Cells(7, EnSp), Cells(LZ - 15, EnSp + 1)).Select
Ich hoffe, jemand hat eine Idee???