Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makroerweiterung (von Hajo)

Makroerweiterung (von Hajo)
Hajo)
Guten Abend zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Abfrage für Checkbox, bitte ...
25.05.2010 20:10:59
walli
Guten Abend,
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 < als 6 Breit sind, sollte die entsprechende
Checkbox Grau sein.
If ActiveSheet.Columns("N:N").ColumnWidth <= 6.86 Then
'Me.controls.Value ("Checkbox" & LoI = True)
danke im Voraus,
mfg walli
Habe ja am 27.5. nochmals reingesetzt --))
28.05.2010 09:34:11
walli
Hallo zusammen,
habe Gestern u. Heute die Lösung erhalten, da
ich dies nochmals 27.05. reingesetzt hatt,
mfg walli
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige