Hallo zusammen,
Ich bin absoluter VBA Noob und hoffe, ihr versteht mich. Ich habe in einer Spalte mehrere Checkboxen. Ich habe mal das Makro einer Checkbox angehängt. Ich möchte diese Spalte in die nächste Spalte kopieren können. Aktuell spricht die Checkbox in der neuen Spalte aber nur die vorherige Spalte an, da ich keine variable Spalte in meine Range einbinden kann. Wie kann ich das machen?
Option Explicit
Public rngfiltercell As Range
Public Spalte As String
Sub Alle()
Spalte = Split(ActiveCell.Address, "$")(1)
ActiveSheet.Range("$A$14:$L$230").AutoFilter Field:=3, Criteria1:="<>"
For Each rngfiltercell In Range("M15:M" & Range("M65536").End(xlUp).Row).SpecialCells(12)
Range(rngfiltercell.Address).Value = "x"
Next
ActiveSheet.Range("$A$14:$L$230").AutoFilter Field:=3
End Sub
Der Bereich der für Spalte M definiert ist, soll variabel werden (Mit dem String "Spalte")
|