Thema Datum  Von Nutzer Rating
Antwort
25.09.2013 10:28:04 werdi
NotSolved
Blau dynamische Tabelle mit checkboxen
25.09.2013 12:36:27 Gast6384
NotSolved

Ansicht des Beitrags:
Von:
Gast6384		 Datum:
25.09.2013 12:36:27		 Views:
700		 Rating:
     
Antwort:
  Ja
Thema:
dynamische Tabelle mit checkboxen

Hallo zusammen,

mittlerweile habe ich eine andere, elegantere Variante gefunden, wo ich schon mal nicht mehr auf die Anzahl der Checkboxen angewiesen bin.

 

Sub Makro2()
'
' Makro2 Makro
'

'
    
    
    Dim r As Integer
    Dim c As Integer
    Dim N As Integer
    Dim Zellposition As String
    
    Application.ScreenUpdating = False

    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    
    N = WorksheetFunction.Max(Columns(1))
    r = N + 3
    
    Rows(N + 3).Select
    Selection.Insert Shift:=xlDown
    Range("A" & N + 3).Select
    ActiveCell.FormulaR1C1 = N + 1
    
    For c = 3 To 7
    Cells(r, c).Select
    Zellposition = ActiveCell.Address
    ActiveSheet.CheckBoxes.Add((c - 1) * 60, (r - 1) * 15, 60, 17.25).Select

    
    With Selection
        .Value = xlOff
        .LinkedCell = Zellposition
        .Display3DShading = True
        .Placement = xlMoveAndSize
    End With
 
    Next
    
    Range("C" & r).Select
    Application.ScreenUpdating = False
End Sub

Allerdings wird das .Placement = xlMoveAndSize konsequent ignoriert...

Weiss jemand Rat?

Vielen Dank,

Gruss, Werdi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.09.2013 10:28:04 werdi
NotSolved
Blau dynamische Tabelle mit checkboxen
25.09.2013 12:36:27 Gast6384
NotSolved