|
Hallo zusammen,
ich bin fast am Verzweifeln. Ich hab ein kleines Makro geschrieben, das das Sheet "Auswertung" nach dem Wort "Kosten:" durchsucht und die Inhalte aus den 5 Zellen darunter in dem Sheet "Kosten gesamt" in der Spalte A untereinander speichert.
Leider kommt bei mir immer der Laufzeitfehler 1004: Anwendungs- oder objektorientierter Fehler in dieser Zeile:
Sheets("Kosten gesamt").Cells(cRAG, 1).Value = rng.Offset(lngOffset, 0)
kann mir jmd sagen an was das liegt oder wie man es beheben kann?
Hier mal der ganze Code:
Sub Kosten()
Dim j As Long
j = 0
Dim cRAG As Long
cRAG = 2
Dim rng As Variant
Dim blätter As Variant
Dim lngOffset As Long
columnEndE = Cells(Rows.count, 5).End(xlUp).Row
Debug.Print ActiveSheet.Name
Sheets.Add
ActiveSheet.Name = "Kosten gesamt"
Sheets("Ressourcenarten").Cells(1, 1).Value = "gesamte Kosten"
'zählt wie oft das Wort "Kosten" in Tabelle "Auswertung" vorkommt
j = WorksheetFunction.CountIf(Sheets("Auswertung").UsedRange.Columns(5), "Kosten:")
For blätter = 13 To Sheets.count
For Each rng In Sheets(blätter).UsedRange.Range("E" & columnEndE & ":E2")
If rng.Value = "Kosten:" And cRAG < j * 5 Then
For lngOffset = 1 To 5
If Not IsEmpty(rng.Offset(lngOffset, 0)) Then
Sheets("Kosten gesamt").Cells(cRAG, 1).Value = rng.Offset(lngOffset, 0)
cRAG = cRAG + 1
End If
Next lngOffset
End If
Columns("A:A").EntireColumn.AutoFit
Next rng
Next blätter
End Sub
Wäre total nett wenn mir jmd helfen kann!
Danke und glg
Faye
|