Thema Datum  Von Nutzer Rating
Antwort
16.09.2016 14:22:32 Jens
NotSolved
Blau Checkbox verknuepfen
17.09.2016 10:15:03 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117
Datum:
17.09.2016 10:15:03
Views:
562
Rating: Antwort:
  Ja
Thema:
Checkbox verknuepfen

Moin Jens,

du "struggeled " durch das Web und findest Code, der zwar schon "out of date", aber heute noch funktioniert.

Egal, wen juckt was morgen - für heute tut's

Sub struggeled()     'perfect
Dim chk As CheckBox
Dim lCol As Long
Dim lngRow As Long
Dim strName As String
lCol = 1 'number of TopLeftCell.column

   For Each chk In ActiveSheet.CheckBoxes
      If chk.TopLeftCell.Column = lCol Then
         If chk.TopLeftCell.Row > lngRow Then
            lngRow = chk.TopLeftCell.Row
            strName = chk.Name
         End If
      End If
   Next chk
   
   With ActiveSheet.CheckBoxes(strName)
      .LinkedCell = .TopLeftCell.Address(0, 0)
   End With
End Sub

LG

 

PS

..... denn das Range-Objekt  Cells(x,y) hat keine solche Eigenschaft!


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
16.09.2016 14:22:32 Jens
NotSolved
Blau Checkbox verknuepfen
17.09.2016 10:15:03 Gast70117
NotSolved