Thema Datum  Von Nutzer Rating
Antwort
11.04.2014 14:00:46 Corina
NotSolved
11.04.2014 14:57:30 Gast36725
NotSolved
11.04.2014 14:58:54 Gast78700
NotSolved
11.04.2014 15:23:25 Corina
NotSolved
11.04.2014 18:40:04 Gast68670
*****
NotSolved
14.04.2014 09:04:07 Corina
NotSolved
14.04.2014 12:36:54 Gast4466
NotSolved
14.04.2014 12:58:08 Gast89452
NotSolved
14.04.2014 14:14:59 Corina
NotSolved
Blau Automatische Checkboxnamen generieren
 14.04.2014 14:31:45 Gast59826
*****
Solved
14.04.2014 16:16:48 Corina
NotSolved
14.04.2014 16:46:26 Gast59943
NotSolved
15.04.2014 08:42:10 Gast96490
NotSolved

Ansicht des Beitrags:
Von:
Gast59826		 Datum:
14.04.2014 14:31:45		 Views:
845		 Rating:
     
Antwort:
 Nein
Thema:
Automatische Checkboxnamen generieren

Dann in etwa so:

Sub test_formular()
 
  Dim rngNames As Excel.Range
  Dim shp As Excel.Shape
  Dim i As Long
   
  On Error GoTo ErrHandler
  
  Set rngNames = Worksheets("Lists").Range("I1:I33")
  
  With Worksheets("Checklist Structure")
        
    For Each shp In .Shapes
      If shp.Type = msoFormControl Then
        If shp.FormControlType = xlCheckBox Then
          If i < rngNames.Cells.Count Then
            i = i + 1
            Debug.Print Format$(i, "00") & ": " & shp.OLEFormat.Object.Caption & " => " & rngNames.Cells(i).Value
            shp.OLEFormat.Object.Caption = rngNames.Cells(i).Value
          Else
            Exit For 'exit da keine Namen mehr übrig
          End If
        End If
      End If
    Next
      
    If i > 0 Then
      Call MsgBox("Fertig", vbInformation)
    Else
      Call MsgBox("keine Treffer", vbInformation)
    End If
    
  End With
  
Exit Sub
 
ErrHandler:
  Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.Number)
    
End Sub

 

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
11.04.2014 14:00:46 Corina
NotSolved
11.04.2014 14:57:30 Gast36725
NotSolved
11.04.2014 14:58:54 Gast78700
NotSolved
11.04.2014 15:23:25 Corina
NotSolved
11.04.2014 18:40:04 Gast68670
*****
NotSolved
14.04.2014 09:04:07 Corina
NotSolved
14.04.2014 12:36:54 Gast4466
NotSolved
14.04.2014 12:58:08 Gast89452
NotSolved
14.04.2014 14:14:59 Corina
NotSolved
Blau Automatische Checkboxnamen generieren
 14.04.2014 14:31:45 Gast59826
*****
Solved
14.04.2014 16:16:48 Corina
NotSolved
14.04.2014 16:46:26 Gast59943
NotSolved
15.04.2014 08:42:10 Gast96490
NotSolved