VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 11:37:25	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 12:10:36	Gast8163
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 12:35:42	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 13:25:45	Gast56918
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 14:22:25	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 15:09:43	Gast68239
letzte Teil in etwas besserem Deutsch ;o)	19.05.2014 15:11:58	Gast23935
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 16:43:56	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 17:22:24	Gast3719
Nachtrag:	19.05.2014 17:23:48	Gast27941
Nachtrag:	19.05.2014 19:16:36	Corina
Nachtrag:	19.05.2014 20:11:09	Gast61166
Nachtrag 2:	19.05.2014 20:13:37	Gast59302
Nachtrag:	20.05.2014 02:11:10	Trägheit
Nachtrag:	20.05.2014 02:14:17	Gast171
Nachtrag:	20.05.2014 02:19:09	Gast47584
Erstmal durchwühlen :)	20.05.2014 08:48:32	Corina
Funktioniert einwandfrei	20.05.2014 12:04:09	Corina
Funktioniert einwandfrei	20.05.2014 13:34:25	Gast34851
Anmerkung: seufz ^^	20.05.2014 13:36:03	Gast92132
vergiss das wieder mit der Schriftfarbe...	20.05.2014 14:07:52	Gast4790
Hmm..	20.05.2014 16:55:57	Corina
Hmm..	21.05.2014 01:02:20	Gast30287
Funktioniert einwandfreier	21.05.2014 04:34:36	Hmm..Hmm..
Funktioniert einwandfreier	21.05.2014 09:05:18	Corina
Funktioniert einwandfreier	21.05.2014 09:05:19	Corina
Ok, jetzt habe ich es kaputt gemacht :(	21.05.2014 10:49:15	Corina
Ok, jetzt habe ich es kaputt gemacht :(	21.05.2014 11:14:37	Hmm..Hmm..
Fully qualify the reference	21.05.2014 13:47:27	Corina
Fully Furchtbar	21.05.2014 14:27:23	Hmm..Hmm..
Fully Furchtbar	21.05.2014 15:32:33	Gast95016
Fully Furchtbar	21.05.2014 16:12:52	Corina
Fully Furchtbar	21.05.2014 16:41:02	Trägheit
Ergänzungshalber	21.05.2014 16:48:15	Gast85266
Nur noch halb furchtbar:)	21.05.2014 17:10:03	Corina
Nur noch halb furchtbar:)	21.05.2014 17:26:09	Gast35846
Nur noch halb furchtbar:)	21.05.2014 17:40:14	Gast99977
Nur noch halb furchtbar:)	22.05.2014 09:01:10	Corina
Nur noch halb furchtbar:)	22.05.2014 13:53:40	Trägheit
Falscher Code	22.05.2014 13:56:24	Gast96342
DANKE!	22.05.2014 14:14:34	Corina
DANKE!	22.05.2014 14:19:27	Trägheit
Nur noch halb furchtbar:)	21.05.2014 17:10:05	Corina
Bitte so abändern:	21.05.2014 15:20:49	Gast85291
Alternative Lösung	21.05.2014 18:14:22	Trägheit

Ansicht des Beitrags:

Von:
Corina

Datum:
19.05.2014 12:35:42

Views:
1832

Rating:

Antwort:

Thema:
Checkboxen (FormControl) umbenennen - Änderung

Hello,

hm, ich meine deinen Einwand zu verstehen, allerdings benötige ich die Checkboxnamen (die übrigens nie gleich sind) für eine weitere Überprüfung. Die Namen werden mit den Einträgen aus einer Liste abgeglichen. Wenn eine Übereinstimmung vorliegt, dann wird ein Häckchen gesetzt:

Sub CompareCheckboxNames()
'Check/uncheck checkboxes in "Checklist Structure" for existing entries in "Risk Category Checklist"
Dim ws As Worksheet
Dim SrchRng
Dim shp As Object
Dim myText As String
Dim c As Range

On Error GoTo ErrHandler

Set ws = Worksheets("Risk Category Checklist")
Set SrchRng = ws.Range("G:G") 'Subcategory column as search range

With Worksheets("Checklist Structure")
    For Each shp In .Shapes
        If shp.Type = msoFormControl Then
            If shp.FormControlType = xlCheckBox Then
                myText = shp.OLEFormat.Object.Name 'Displayed shape text
                Set c = SrchRng.Find(myText, LookIn:=xlValues)
                    If Not c Is Nothing Then
                        shp.OLEFormat.Object.Value = True 'check checkbox
                    Else
                        shp.OLEFormat.Object.Value = False 'uncheck checkbox
                    End If
                    
            End If
        End If
    Next shp
End With


Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.number)


End Sub

Was meinst du denn mit "Ergo einfach auf Checkbox "umstellen" B:-)"?

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
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 11:37:25	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 12:10:36	Gast8163
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 12:35:42	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 13:25:45	Gast56918
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 14:22:25	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 15:09:43	Gast68239
letzte Teil in etwas besserem Deutsch ;o)	19.05.2014 15:11:58	Gast23935
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 16:43:56	Corina
Checkboxen (FormControl) umbenennen - Änderung	19.05.2014 17:22:24	Gast3719
Nachtrag:	19.05.2014 17:23:48	Gast27941
Nachtrag:	19.05.2014 19:16:36	Corina
Nachtrag:	19.05.2014 20:11:09	Gast61166
Nachtrag 2:	19.05.2014 20:13:37	Gast59302
Nachtrag:	20.05.2014 02:11:10	Trägheit
Nachtrag:	20.05.2014 02:14:17	Gast171
Nachtrag:	20.05.2014 02:19:09	Gast47584
Erstmal durchwühlen :)	20.05.2014 08:48:32	Corina
Funktioniert einwandfrei	20.05.2014 12:04:09	Corina
Funktioniert einwandfrei	20.05.2014 13:34:25	Gast34851
Anmerkung: seufz ^^	20.05.2014 13:36:03	Gast92132
vergiss das wieder mit der Schriftfarbe...	20.05.2014 14:07:52	Gast4790
Hmm..	20.05.2014 16:55:57	Corina
Hmm..	21.05.2014 01:02:20	Gast30287
Funktioniert einwandfreier	21.05.2014 04:34:36	Hmm..Hmm..
Funktioniert einwandfreier	21.05.2014 09:05:18	Corina
Funktioniert einwandfreier	21.05.2014 09:05:19	Corina
Ok, jetzt habe ich es kaputt gemacht :(	21.05.2014 10:49:15	Corina
Ok, jetzt habe ich es kaputt gemacht :(	21.05.2014 11:14:37	Hmm..Hmm..
Fully qualify the reference	21.05.2014 13:47:27	Corina
Fully Furchtbar	21.05.2014 14:27:23	Hmm..Hmm..
Fully Furchtbar	21.05.2014 15:32:33	Gast95016
Fully Furchtbar	21.05.2014 16:12:52	Corina
Fully Furchtbar	21.05.2014 16:41:02	Trägheit
Ergänzungshalber	21.05.2014 16:48:15	Gast85266
Nur noch halb furchtbar:)	21.05.2014 17:10:03	Corina
Nur noch halb furchtbar:)	21.05.2014 17:26:09	Gast35846
Nur noch halb furchtbar:)	21.05.2014 17:40:14	Gast99977
Nur noch halb furchtbar:)	22.05.2014 09:01:10	Corina
Nur noch halb furchtbar:)	22.05.2014 13:53:40	Trägheit
Falscher Code	22.05.2014 13:56:24	Gast96342
DANKE!	22.05.2014 14:14:34	Corina
DANKE!	22.05.2014 14:19:27	Trägheit
Nur noch halb furchtbar:)	21.05.2014 17:10:05	Corina
Bitte so abändern:	21.05.2014 15:20:49	Gast85291
Alternative Lösung	21.05.2014 18:14:22	Trägheit