Thema Datum  Von Nutzer Rating
Antwort
07.10.2015 14:13:58 KimmichzBar
Solved
Blau ActiveX-Elemente in Bereich löschen
 07.10.2015 16:58:10 Gast61681
NotSolved
08.10.2015 09:19:26 KmmichzBar
NotSolved
08.10.2015 09:19:38 KimmichzBar
NotSolved
08.10.2015 10:45:27 Gast13003
NotSolved
08.10.2015 12:18:16 Gast56190
NotSolved
08.10.2015 15:18:15 KimmichzBar
NotSolved
08.10.2015 15:35:56 Gast37704
NotSolved

Ansicht des Beitrags:
Von:
Gast61681		 Datum:
07.10.2015 16:58:10		 Views:
1645		 Rating:
     
Antwort:
  Ja
Thema:
ActiveX-Elemente in Bereich löschen

Hallo,

da könntest Du sowas machen:

Option Explicit

Public Sub test()
 Dim objOLEObject As OLEObject
 Dim colCheckBoxes As Collection
 Dim lngRow As Long, lngCount As Long
 For lngRow = 1 To Selection.Rows.Count ' ggF für Selection den Bereich angeben...
    lngCount = 0
    Set colCheckBoxes = New Collection
    For Each objOLEObject In ActiveSheet.OLEObjects
       With objOLEObject
            If .progID = "Forms.CheckBox.1" And _
              .TopLeftCell.Row = Selection.Rows(lngRow).Row Then
              Call colCheckBoxes.Add(Item:=objOLEObject)
              If .Object.Value Then _
                lngCount = lngCount + 1
            End If
       End With
    Next
    If colCheckBoxes.Count = lngCount Then
      For Each objOLEObject In colCheckBoxes
           objOLEObject.Delete
      Next
    End If
    Set colCheckBoxes = Nothing
  Next
End Sub

Gruß,

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
07.10.2015 14:13:58 KimmichzBar
Solved
Blau ActiveX-Elemente in Bereich löschen
 07.10.2015 16:58:10 Gast61681
NotSolved
08.10.2015 09:19:26 KmmichzBar
NotSolved
08.10.2015 09:19:38 KimmichzBar
NotSolved
08.10.2015 10:45:27 Gast13003
NotSolved
08.10.2015 12:18:16 Gast56190
NotSolved
08.10.2015 15:18:15 KimmichzBar
NotSolved
08.10.2015 15:35:56 Gast37704
NotSolved