Makroerweiterung (von Hajo)
Hajo)
habe folgendes Makro von Makro, klappt alles SUPER.
Jetzt möchte ich noch eine Zusatzabfrage einbauen, siehe am Ende vom Makro.
Es sollte, wenn eine bestimmte Spaltenbreite erreicht ist, das die entsprechende
Combobox mit Enabled nicht ansprechbar/selktierbar ist.
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
mfg walli