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