Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform aufrufen

Userform aufrufen
15.11.2006 07:38:58
Thomas
Guten Morgen zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt
15.11.2006 08:42:02
oT

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige