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
Blau Automatische Checkboxnamen generieren
 14.04.2014 12:58:08 Gast89452
NotSolved
14.04.2014 14:14:59 Corina
NotSolved
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:
Gast89452		 Datum:
14.04.2014 12:58:08		 Views:
1149		 Rating:
     
Antwort:
  Ja
Thema:
Automatische Checkboxnamen generieren

Hallo,

tut mir sehr leid, aber ich konnte nicht genauer werden, weil mir diesmal seltsamerweise die Zeile mit dem Fehler nicht angezeigt wird. Ich weiß außerdem nicht, was der Fehlercode ist und wo ich ihn finde. Kannst du mir bitte an der Stelle weiterhelfen? Die Fehlermeldung hatte ich (wenigstens eine Sache :)), dann fehlt nur noch der Code, den ich nur minimal an meinen Bereich angepasst habe :

Option Explicit
 
Sub test_formular()
   
  Dim names() As Variant
  Dim shp As Excel.Shape
  Dim i As Long
   
  'Namen können auch aus einer Range kommen
  names = Worksheets("Lists").Range("I")
   
  With Worksheets("Checklist Structure")
     
    For Each shp In .Shapes
      If shp.Type = msoFormControl Then
        If shp.FormControlType = xlCheckBox Then
          If i <= UBound(names) Then
            Debug.Print Format$(i + 1, "00") & ": " & shp.OLEFormat.Object.Caption & " => " & names(i)
            shp.OLEFormat.Object.Caption = names(i)
            i = i + 1
          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
   
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
Blau Automatische Checkboxnamen generieren
 14.04.2014 12:58:08 Gast89452
NotSolved
14.04.2014 14:14:59 Corina
NotSolved
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