AW: Nullwerte in Userform Textbox ausblenden
05.12.2011 18:14:00
Sascha
Hallo Hajo,
Das hab ich mir schon gedacht.
Aber wie mache ich das?
Die Textboxen sind mit jeweils TB1 - TB51 beschriftet.
Gibt es einen Befehl in dem man sagt dass All diese TB`s die Nullwerte als "leer" darstellen sollen?
so werden Daten eingelesen:
Sub Fuellen(ByRef UF As UserForm, ByVal Nr As Integer, Optional bolNeu As Boolean, Optional Zei _
As Integer)
'Daten einlesen
Dim Spa As Integer, Anz As Integer
Application.EnableEvents = False
With ActiveSheet
If bolNeu = False Then
Anz = .Cells(34, 1).End(xlUp).Row - 2 'Vorgesehen Daten ab Zeile 3, Zeile 34 muss _
beschriftet sein
Nr = IIf(Anz = 0, 0, Nr)
UF.Links_Rechts.Max = Anz
If Anz > 0 Then
For Spa = 2 To 51 'Lesen Vorgesehen bis Spalte 51
UF.Controls("TB" & Spa).Value = Format(.Cells(Nr + 2, Spa).Value, "###0. _
0")
Next Spa
End If
Else
For Spa = 2 To 28 'einlesen vorgesehen bis Spalte 28, Spalte 1 _
bleibt erhalten
UF.Controls("TB" & Spa).Value = Format(.Cells(Zei, Spa).Value, "###0.0")
Next Spa
UF.Controls("TB1").Value = Date
If Range("C2") > "" Then 'TB2 ergibt Fehler wenn Zelle C2 leer ist ( _
MSW5)
UF.Controls("TB3").SetFocus
End If
End If
End With
UF.TBDaten.Value = Nr & " / " & Anz
Application.EnableEvents = True
End Sub
LG Sascha