Userform aufrufen
15.11.2006 07:38:58
Thomas
ich habe ein Problem mit einer Userform. Bei Aufrufen soll in der Tabelle automatisch nachgesehen werden, wie viele Einträge bereits in der Tabelle sind und danach im Feld TextBox1 dieser Wert + 1 gezeigt werden.
Starte ich das Ganze aus dem VBA Editor klappt das auch. Aus dem Modul mit Userform2.show funktioniert es nicht.
Jemand einen Vorschlag für mich was ich verbesern kann?
Der Code:
Dim p As Long
Public iLfdNr As Long
Private Sub UserForm_Initialize()
Dim z As Integer
'Belegung der ComoBoxen
With Sheets("Vorgaben")
For z = 2 To .Cells(65536, 1).End(xlUp).Row
Kunde.AddItem .Cells(z, 1).Value
Next z
For z = 2 To .Cells(65536, 2).End(xlUp).Row
Nacharbeit.AddItem .Cells(z, 2).Value
Next z
For z = 2 To .Cells(65536, 3).End(xlUp).Row
Verursacher.AddItem .Cells(z, 3).Value
Next z
End With
With Sheets("Fehlercode")
For z = 3 To .Cells(65536, 5).End(xlUp).Row
Fehlercode.AddItem .Cells(z, 5).Value
Next z
End With
'Einlesen der bereits belegten Zeilen
Dim lZeile As Long
With Sheets("Nacharbeit")
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Not IsEmpty(Range("A" & lZeile).Value) Then
iLfdNr = iLfdNr + 1
TextBox1.Text = iLfdNr
End If
Next lZeile
End With
End Sub
Aufruf aus Modul per Button mit:
Sub Schaltfläche1_BeiKlick()
UserForm2.Show
End Sub
Besten Dank im voraus.
Gruß
Thomas