Re: Userform überspringt beim erneuten Aufrufen die In
08.07.2002 12:10:40
Ralph P.
Sorry, ich komme noch immer nicht weiter.
Hier mal die Codes der UF's
frmWahl:
Public laRall As String ' Anzahl der benutzten Zeilen in Tabelle "all"
Public laRopen As String ' Anzahl der benutzten Zeilen in Tabelle "open"
Public laRown As String ' Anzahl der benutzten Zeilen in Tabelle "own"Private Sub cmdExit_Click()
ThisWorkbook.Close (True)
End Sub
Private Sub cmdViewAll_Click()
Worksheets("all").Select
Load frmView
frmView.Show
End Sub
Private Sub cmdViewOpen_Click()
Worksheets("open").Select
Load frmView
frmView.Show
End Sub
Private Sub cmdViewOwn_Click()
Worksheets("own").Select
Load frmView
frmView.Show
End Sub
Private Sub UserForm_Initialize()
laRall = Worksheets("all").Cells(Rows.Count, 1).End(xlUp).Row
laRopen = Worksheets("open").Cells(Rows.Count, 1).End(xlUp).Row
laRown = Worksheets("own").Cells(Rows.Count, 1).End(xlUp).Row
offen = 0
own = 0
For i = 2 To laRall
If Range("D" & i).Value = "" Then
offen = offen + 1
Else
End If
If Range("B" & i).Value = user Then
own = own + 1
Else
End If
Next i
frmAnmeld.Hide
If viewform = True Then
Unload frmView
Else
End If
lblWelcome.Caption = "Hallo Herr/Frau " & user & "." & vbCr & vbCr & "Es stehen insgesamt " & laRall - 1 & " Frage/n in der Tabelle 'all'." & vbCr & "Es sind insgesammt " & offen & " offene Frage/n in der Tabelle." & vbCr & "Es wurde/n " & own & " Frage/n von Ihnen gestellt."
End Sub
_________________________________________
frmView
Private Sub cmdDown_Click()
ActiveWindow.LargeScroll Down:=1
End Sub
Private Sub cmdPrint_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub cmdUp_Click()
ActiveWindow.LargeScroll Up:=1
End Sub
Private Sub UserForm_Initialize()
Unload frmWahl
End Sub
Private Sub UserForm_Terminate()
viewform = True
Load frmWahl
frmWahl.Show
End Sub