|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Abgleich CheckBox-Namen mit Spalteneinträge |
15.04.2014 10:15:38 |
Corina |
|
|
|
15.04.2014 12:54:44 |
Holger |
|
|
|
15.04.2014 13:32:53 |
Gast15716 |
|
|
|
15.04.2014 18:38:46 |
Gast68648 |
|
|
|
15.04.2014 18:42:31 |
Gast74327 |
|
|
|
15.04.2014 18:57:47 |
Gast86647 |
|
|
|
16.04.2014 09:08:55 |
Corina |
|
|
|
16.04.2014 09:10:04 |
Corina |
|
|
|
16.04.2014 11:05:14 |
Gast61557 |
|
|
|
16.04.2014 11:06:26 |
Gast56441 |
|
|
|
16.04.2014 13:40:21 |
Corina |
|
|
|
17.04.2014 10:39:35 |
Gast28994 |
|
|
|
17.04.2014 10:39:52 |
Gast89598 |
|
|
|
17.04.2014 14:46:07 |
Corina |
|
|
|
17.04.2014 15:28:44 |
Gast83463 |
|
|
|
17.04.2014 16:47:15 |
Corina |
|
|
|
17.04.2014 17:31:38 |
Gast83279 |
|
|
Von:
Corina |
Datum:
15.04.2014 10:15:38 |
Views:
2853 |
Rating:
|
Antwort:
|
Thema:
Abgleich CheckBox-Namen mit Spalteneinträge |
|
Guten Morgen!
Es ist mal wieder soweit: Benötige Hilfe mit dem verfassten Code -.- Ähm dabei geht es um Folgendes: Die Namen der Checkboxen sollen mit den Einträgen einer Spalte (auch den unsichtbaren bzw. gefilterten) abgeglichen werden. Falls der Name in der Spalte vorhanden ist, soll in der Checkbox ein Häckchen gesetzt werden.
Bei dem nachfolgenden Code bekomme ich in der markierten Zeile (bei With) die Fehlermeldung 91 "Object variable or With block variable not set". Ich verstehe nicht wieso und bitte euch an der Stelle um Hilfe. Falls noch weitere auffällige Fehler drin sind, wäre es großartig, wenn mir jemand ein HInweis geben könnte.
Besten Dank!
Private Sub CompareCheckboxNames()
Dim ws As Worksheet
Dim rngSubcategory As Range
Dim shp As Excel.Shape
Dim myText As String
On Error GoTo ErrHandler
Set ws = Worksheets("Risk Category Checklist")
Set rngSubcategory = ws.Range("G:G")
Set myText = shp.OLEFormat.Object.Name.Characters.Text
With Worksheets("Checklist Structure")
For Each shp In .Shapes
If shp.Type = msoFormControl Then
If shp.FormControlType = xlCheckBox Then
If rngSubcategory.Value = myText Then
shp.OLEFormat.Object.Value = True
Else
shp.OLEFormat.Object.Value = False
End If
Exit For
End If
End If
Next
End With
Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.number)
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Abgleich CheckBox-Namen mit Spalteneinträge |
15.04.2014 10:15:38 |
Corina |
|
|
|
15.04.2014 12:54:44 |
Holger |
|
|
|
15.04.2014 13:32:53 |
Gast15716 |
|
|
|
15.04.2014 18:38:46 |
Gast68648 |
|
|
|
15.04.2014 18:42:31 |
Gast74327 |
|
|
|
15.04.2014 18:57:47 |
Gast86647 |
|
|
|
16.04.2014 09:08:55 |
Corina |
|
|
|
16.04.2014 09:10:04 |
Corina |
|
|
|
16.04.2014 11:05:14 |
Gast61557 |
|
|
|
16.04.2014 11:06:26 |
Gast56441 |
|
|
|
16.04.2014 13:40:21 |
Corina |
|
|
|
17.04.2014 10:39:35 |
Gast28994 |
|
|
|
17.04.2014 10:39:52 |
Gast89598 |
|
|
|
17.04.2014 14:46:07 |
Corina |
|
|
|
17.04.2014 15:28:44 |
Gast83463 |
|
|
|
17.04.2014 16:47:15 |
Corina |
|
|
|
17.04.2014 17:31:38 |
Gast83279 |
|
|