Userformen lesen (Suchen)
27.06.2005 09:13:58
Hans
Private Sub cmdDrucken_Click()
frm_druckenDS.Show
End Sub
Private Sub ComboBox1_Change()
Dim tb As Object
' Objektvariable tb wird deklariert
For Each tb In frm_suchen.Controls
' die UserForm wird mit einer Schleife durchlaufen und bereinigt
If TypeName(tb) = "TextBox" Then tb.Text = ""
' näher Bestimmung tb = Textbox - dann soll diese leer sein
Next tb
Label2.Visible = False
lblErstattung.Visible = False
End Sub
Private Sub CommandButton1_Click()
frm_suchen.Hide
frm_Menü.Show
End Sub
Private Sub CommandButton2_Click()
frm_suchen.Hide
frm_reise.Show
End Sub
Private Sub CommandButton4_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
Dim iMax As Integer
Dim uMax As Integer
Dim u As Integer
Dim frm As Object
Set frm = frm_suchen
With frm
.Height = Application.Height
.Width = Application.Width
End With
ComboBox1.SetFocus
ComboBox1.Clear
Application.ScreenUpdating = False
With frm.ComboBox1
iMax = Sheets("Reiseabrechnung").UsedRange.Rows.Count
MsgBox iMax
For i = 4 To iMax
.AddItem Worksheets("Reiseabrechnung").Cells(i, 1)
Next i
lblErstattung.Visible = False
Label2.Visible = False
Application.ScreenUpdating = True
End With
End Sub
Sub cmdSuchen_Click()
Dim i As Integer
Dim frm As UserForm
' Deklaration der Objektvariablen
Dim index As Long
Dim Nachname As String
Set frm = frm_suchen
' der Objektvariablen wird das Objekt zugewiesen
index = ComboBox1.ListIndex
On Error Resume Next
Nachname = frm.ComboBox1.List(index)
Sheets("Reiseabrechnung").Select
Columns("A:A").Select
Selection.Find(What:=Nachname, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
' Auswahl aktiviere Start Suche: Was Mitarbeiter (s. ComboBox), beginne Suche nach der aktiven Zelle
' Suche nach Werten (Zellinhalt) auch Teilübereinstimmungen Suchrichtung: Zelle
' Suchrichtung immer die nächste Zelle MatchCase Groß-Kleinschreibung bleibt unberücksichtigt
txtReiseziel.Text = ActiveCell.Offset(0, 1).Value
txtReisebeginn = ActiveCell.Offset(0, 2).Value
txtReiseende = ActiveCell.Offset(0, 3).Value
txtreisegrund = ActiveCell.Offset(0, 4).Value
Label1.Visible = True
Label2.Visible = True
lblErstattung.Visible = True
lblErstattung.Caption = ActiveCell.Offset(0, 6).Value & " Euro"
ActiveCell.Select
' If cmdDrucken_Click Then
' Range(ActiveCell.Address, ActiveCell.End(xlToRight)).Select
'Selection.PrintOut
'End If
Exit Sub
End Sub