Indsæt værdi i filteret rækker vba

Det kunne for eksempel gøres med denne lille makro:

Sub Indsaet()
Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 2 To LastRow
If Rows(x).Hidden = False Then Cells(x, 16) = 1
Next
End Sub

Uuuuuuh, pas MEGET på, at definere variabler som 'Integer' - ISÆR, så man arbejder med rækker!

En integer variabel kan ikke holder værdier større end 32768, og der er over 1 million rækker i Excel!
Din kode vil give fejl, hvis 'UsedRange' er på mere en 32768 rækker!

Desuden findes 'Integer' ikke længere i VBA, og er blot bibeholdt for bagug kompatibilitet - internt i VBA-maskinen opfattes 'Integer' som en 'Long', og derfor bliver koden faktisk også hurtigere ved, at definere variablen som 'Long' (der både er hurtigere, og som kan klare samtlige af Excels rækker).

Kort og kort: Brug ALDRIG 'Integer', men ALTID 'Long'.

Hej Dan,
Tak for din feedback

Mange tak for hjælpen begge to, det virker som det skal