Thema Datum  Von Nutzer Rating
Antwort
20.11.2012 04:00:41 Nick
NotSolved
20.11.2012 12:25:01 Lutz
Solved
21.11.2012 02:40:46 Nick
NotSolved
Blau Textbox aus Schleife befüllen
 20.11.2012 12:44:39 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
20.11.2012 12:44:39		 Views:
2198		 Rating:
     
Antwort:
  Ja
Thema:
Textbox aus Schleife befüllen

Hallo Nick,

werde aus deinen Angaben nicht ganz schlau, vielleicht hilft es ja so...

 Private Sub cmdOK_Click()
    Dim ObCb As Object
    Dim Zeile As Integer
    Dim Spalte As Integer

    'Namen ab Zeile 26 + 1 notieren
    Spalte = 26

    'Nächste freie Zeile suchen
    Zeile = Sheets("to-do").Range("z1").Value + 3

    'Wenn Checkbox = True dann Name in Zelle schreiben und dann Next
    For Each ObCb In Me.Controls
       If TypeName(ObCb) = "CheckBox" Then
          
          If ObCb.Value Then
             ' gecheckt Namen schreiben eine Spalte daneben
             Sheets("to-do").Cells(Zeile, Spalte + 1) = ObCb.Caption
          Else
             ' sonst Spalte daneben Wert löschen
             Sheets("to-do").Cells(Zeile, Spalte + 1) = ""
          End If
          ' nach jeder Checkbox eine Zeile weiter    
          Zeile = Zeile + 1
       End If
    Next
    Unload Me
End Sub

 

Gruß Detlev

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
20.11.2012 04:00:41 Nick
NotSolved
20.11.2012 12:25:01 Lutz
Solved
21.11.2012 02:40:46 Nick
NotSolved
Blau Textbox aus Schleife befüllen
 20.11.2012 12:44:39 Dekor
NotSolved