Hallo,
ich habe ein Excel-Tool erstellt in dem viele Dynamische Bereiche sind.
Da dieses auch einige EXCEL NooBs nutzen müssen wollte ich über ein Makro das ganze dynamisch gestallten.
Das Makro soll eine Liste Löschen und einige Formeln dann wieder reinkopieren.
Sprich alles auf Anfang setzen.
in der Zelle B21 steht die Anzahl der Zeilen die geändert werden sollen.
Über "b21" wird Dynamische.verschieben gesteuert.
Makro6 Makro
'
'
Range("A29:F200,H29:J200,M29:M200,P29:Q200").Select
Range("P200").Activate
ActiveWindow.SmallScroll ToRight:=7
Range("A29:F200,H29:J200,M29:M200,P29:Q200,U29:V200,AB29:AB200").Select
Range("AB200").Activate
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("E23:F23").Select
Selection.Copy
Range("E29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E29:F200"), Type:=xlFillDefault
Range("E29:F200").Select
ActiveWindow.SmallScroll Down:=-243
Range("B28").Select
Range("g29").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("g29").Select
Selection.AutoFill Destination:=Range("g29:g200"), Type:=xlFillDefault
Range("g29:AF200").Select
ActiveWindow.SmallScroll Down:=-177
Range("A28").Select
End Sub
Das ist der alte Code aus dem Recorder. Alle Zellen mit (..200) müssten Dynamisch sein. Position lässt sich ja einfach ermitteln mit "(b21)+28"
Habe mich jetzt schon im Web doof gesucht aber entweder habe ich es ständig überlesen oder finde es nicht.
Wäre super wenn mir jemand weiterhelfen kann.
Gruß
Patrick