hatte am 24/25.5. ins Forum gesetzt, da ich überhaupt nicht
weiterkomme nochmals der Hilfeaufruf.
Da ich das Makro nicht so verändern kann, bin ich auf EURE HILFE angewiesen.
Ich möchte nur diese Abfrage irgendwie am Schluss einbauen,
egal ob eine oder mehrere Spalten Checkbox Grau sein.
If ActiveSheet.Columns("N:N").ColumnWidth 'Me.controls.Value ("Checkbox" & LoI = True)
danke im Voraus,
mfg walli
Private Sub UserForm_Activate()
Dim obj_chk As MSForms.CheckBox ' Variable für Objekt _
Checkbox
Dim LoJ As Long
Dim LoK As Long
Dim LoI As Long
Dim loZaehler As Long
Dim InI As Integer
Dim Razelle As Range
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
LoJ = 0
LoK = 5
InI = 0
loZaehler = 0
' Schleife über die Einträge
' -1 da erst in Spalte B begonnen wird
For LoI = 1 To IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End( _
xlToLeft) _
. _
Column, Columns.Count) - 1 ' 16 Spalten
Set obj_chk = Me.controls.Add("Forms.checkbox.1", "Checkbox" & LoI, True)
' Eigenschaften der erstellten Checkbox zuweisen
With obj_chk
If LoK = 5 Then
.Left = 30 ' Position links
LoK = 10
ElseIf LoK = 10 Then ' 2 spalte
.Left = 120 ' Position links
LoK = 15
ElseIf LoK = 15 Then ' 2 spalte
.Left = 210 ' Position links
LoK = 20
ElseIf LoK = 20 Then ' 2 spalte
.Left = 300 ' Position links
LoK = 5
End If
.Top = 35 + 30 * loZaehler + 1 ' Position oben
.Width = 150 ' Breite
.Height = 25 ' Höhe
.Tag = LoI + 1 ' Spalte
.Caption = ActiveSheet.Cells(2, LoI + 1) ' Beschriftung aus Zeile _
_
2 _
und Spalte Loi+1
.Value = ActiveSheet.Columns(LoI + 1).Hidden ' Hidden-Status Spalte
End With
ReDim Preserve COption(0 To InI) ' Neudimensionierung des _
_
_
Array
Set COption(InI).CheckBox = obj_chk ' CheckBox zur Klasse _
zusammenfassen
InI = InI + 1 ' Zähler für das Array
LoJ = LoJ + 1
If LoK = 5 Then loZaehler = loZaehler + 1
Next LoI
loZaehler = loZaehler + 1
If LoJ Mod 2 = 0 Then loZaehler = loZaehler - 1
If loZaehler