ich habe ein Problem, bei dem ich absolut nicht weiter komme und hoffe auf Eure Hilfe.
Ich habe eine Datei, in der ich die Auswertung eines Reports durchführen möchte. In den Reiter "Input_LeaseProfile" kopiere ich einen Report aus unserem internen System. Dieser Report ist riesig und vollkommen unübersicherlich. Deshalb kopiere ich zunächst die relevanten Spalten in den Reiter "Basis".
In diesem Reiter arbeite ich weiter und ermittle die letzte Zeile.
Ausgehend von der letzten Zeile wandere ich nach oben und lösche alle Zeilen, die
- in Spalte B, Spalte E und Spalte keinen Wert aufweisen ODER
- in Spalte B den Wert HNDRSNUK, Lease ID, Database: oder Database_HNDRSNUK aufweisen
Hierzu verwende ich folgenden Code:
Sheets("Input_LeaseProfile").Range("A:A,E:E,AA:AB,AD:AE,AI:AJ,AL:AM").Copy
Sheets("Basis").Columns("B:B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Basis").Select
lz = Cells(Rows.Count, 2).End(xlUp).Row
For t = lz To 1 Step -1
If Cells(t, 2).Value = "" And Cells(t, 5).Value = "" And Cells(t, 8).Value = "" Then
Rows(t).Delete shift:=xlUp
End If
If Cells(t, 2).Value = "HNDRSNUK" Or Cells(t, 2).Value = "Lease Id:" _
Or Cells(t, 2).Value = "Database:" Or Cells(t, 2).Value = "Database: HNDRSNUK" Then
Rows(t).Delete shift:=xlUp
End If
Next t
Das funktioniert auch alles bestens. Nun jedoch mein Problem:
In dem Reiter "Auswertung" werte ich mittels Summenprodukt die Angaben aus dem Reiter "Basis" aus. Den Bereich habe ich absolut gesetzt. Sobald ich jedoch das Makro laufen lassen, ändert sich der Bereich automatisch. Ich habe bereits versucht die Zelle zu schützen, aber das hilft auch nicht.
Hat vielleicht jemand von Euch eine Idee?
Vielen Dank im Voraus !
Viele Grüße
Judith