Thema Datum  Von Nutzer Rating
Antwort
24.03.2014 11:22:08 Martin
Solved
Blau Textbox deaktivieren und je nach dem mit einem bestimmten Text füllen
 24.03.2014 13:59:56 Gast56314
Solved
24.03.2014 17:28:15 Martin
Solved

Ansicht des Beitrags:
Von:
Gast56314		 Datum:
24.03.2014 13:59:56		 Views:
1362		 Rating:
     
Antwort:
 Nein
Thema:
Textbox deaktivieren und je nach dem mit einem bestimmten Text füllen

Hi Martin,

so ? ??

Option Explicit

Private Sub lbAbschluss_Click()
  Me.tbAbschluss.Visible = True
  If Me.lbAbschluss.ListIndex = 7 Then _
  Me.tbAbschluss.Visible = False
End Sub

Private Sub UserForm_Initialize()

With Me.lbAbschluss
.AddItem "noch nicht abgeschlossen" 'Listindex = 0
.AddItem "nicht mehr erschienen"
.AddItem "Ziel erreicht"
.AddItem "Neues Problem / Ziel, Neuer Fokus"
.AddItem "Wegzug"
.AddItem "Triage Sozialdienst"
.AddItem "Triage KESB"
.AddItem "Beratung noch nicht abgeschlossen"  ' = ergo 7
End With
 
End Sub

Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("A65565").End(xlUp).Row + 0
 
 Cells(z, 16) = Me.lbAbschluss.Value
 If Me.lbAbschluss.ListIndex <> 7 Then _
 Cells(z, 17) = Me.tbAbschluss.Text
        
 
Unload Me
End Sub

 

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
24.03.2014 11:22:08 Martin
Solved
Blau Textbox deaktivieren und je nach dem mit einem bestimmten Text füllen
 24.03.2014 13:59:56 Gast56314
Solved
24.03.2014 17:28:15 Martin
Solved