Ausblenden von TextBox und Label in Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label TextBox


Excel-Version: 9.0 (Office2000)
nach unten

Betrifft: Ausblenden von TextBox und Label in Userform
von: Nancy
Geschrieben am: 16.05.2002 - 14:02:20

Hallo!

Also habe eine Userform (Lackdruck) mit 5 Labeln und je einer TextBox daneben.
In den Labeln sollen die Zellinhalte aus einem Tabellenblatt übernommen werden (funktioniert),
und :
Wenn in Zelle J24 nichts ist dann
sollen das Label1 und die TextBox7 ausgeblendet werden
sonst
sollen das Label1 und die TextBox7 eingeblendet werden

Was ich folgendermaßen gemacht habe:

If Err Or Tabelle1.Range("J24") = "" Then
Lackdruck.Label1.Visible = False
Lackdruck.TextBox7.Visible = False
Else
Lackdruck.Label1.Caption = Tabelle1.Range("J24").Value
Lackdruck.TextBox7.Visible = True
End If
Err = 0
On Error GoTo 0

Dann kommt das gleiche noch mal für Zelle J26......

If Err Or Tabelle1.Range("J26") = "" Then
Lackdruck.Label4.Visible = False
Lackdruck.TextBox3.Visible = False
Else
Lackdruck.Label4.Caption = Tabelle1.Range("J26").Value
Lackdruck.TextBox3.Visible = True
End If
Err = 0
On Error GoTo 0

...und danach noch für 3 weitere Zellen und die jeweilige TextBox + Label.

Funktioniert ja auch fast....nur nachdem der Fall einmal eintrat das etwas ausgeblendet wurde ist es das nächste mal wenn es eigentlich erscheinen sollte immer noch ausgeblendet!!!

Hoffe irgendwer hat ne Antwort???!!!

Gruss Nancy


nach oben   nach unten

Re: Ausblenden von TextBox und Label in Userform
von: Markus
Geschrieben am: 16.05.2002 - 14:19:00

Versuchs doch mal mit folgendem Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim nColumn As Integer

nColumn = Target.Cells(1, 1).Column

If (Sh.Name = "Tabelle1" And nColumn = 10) Then
If Range("J14").Text <> "" Then
Lackdruck.Label1.Visible = False
Else
Lackdruck.Label1.Visible = True

End If
End If
End Sub

Gruss Markus

nach oben   nach unten

Re: Ausblenden von TextBox und Label in Userform
von: Nancy
Geschrieben am: 16.05.2002 - 16:18:05

Hallo!

Danke für deine Hilfe! Mein Problem ist gelöst...hab aber jetzt ein neues..........

Gruss Nancy

P.S. Das Forum is cool


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Ausblenden von TextBox und Label in Userform"