ComandButton3 geht nicht mehr
Ingo
Das geht schon wieder gut los;-))
Ich war ganz stolz mit einem Code, der die Userform vergrößert und verkleinert, aber jetzt meckert meine Combobox3 ! in Userform_activate > set frm1 > Variable nicht definiert
Jetzt weiß ich nicht weiter, wäre schade, wenn ich den Code wieder löschen müßte;-(
LG
Ingo
Option Explicit ' gehört zu Userform_activate
Dim Höhe As Integer
Dim Breite As Integer
Private Sub UserForm_Click() ' Userform vergrößern und verkleinern
Dim Höhe_Neu As Integer
Dim Breite_Neu As Integer
Höhe_Neu = Height
Breite_Neu = Width
If Höhe_Neu = Höhe And Breite_Neu = Breite Then
Height = Höhe * 0.2
Width = Breite * 0.5
Else
Height = Höhe
Width = Breite
End If
End Sub
Private Sub ComboBox3_Change() 'Name
Dim K As Long
Dim N As Long
Dim Suche As String
Dim Stunden As Double
Set frm1 = UserForm1 ' SET FRM1 wird gemeckert!!! Variable nicht definiert
With frm1
Sheets("Namen").Activate
Range("a:a").Select
Selection.Find(what:=.ComboBox3.Value, _
after:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlPart, _
searchorder:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Activate
.TextBox32.Value = Round(ActiveCell.Offset(0, 5).Value, "2") ' Altersentlastung
.TextBox33.Value = Round(ActiveCell.Offset(0, 6).Value, "2") ' Entlast.Beh
.TextBox34.Value = Round(ActiveCell.Offset(0, 7).Value, "2") ' Entl.Vorgriff
.TextBox35.Value = Round(ActiveCell.Offset(0, 8).Value, "2") ' Entl SFD
.TextBox36.Value = Round(ActiveCell.Offset(0, 2).Value, "2") 'Deputat
.TextBox37.Value = Round(ActiveCell.Offset(0, 10).Value, "2") 'Summe Entl
.TextBox38.Value = Round(ActiveCell.Offset(0, 9).Value, "2") 'Entl Std Konto
.TextBox39.Value = Round(ActiveCell.Offset(0, 11).Value, "1") 'Bez Std
'TextBox34.Value = Round(ActiveCell.Offset(0, 34).Value, "2")
End With
Suche = ComboBox3.List(ComboBox3.ListIndex, 0)
With Worksheets("AlleDaten")
ListBox1.Clear
For K = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Suche = .Cells(K, 3).Value Then
ListBox1.AddItem
N = ListBox1.ListCount - 1
ListBox1.List(N, 0) = .Cells(K, 1).Value
ListBox1.List(N, 1) = .Cells(K, 2).Value
ListBox1.List(N, 2) = .Cells(K, 3).Value
ListBox1.List(N, 3) = Format(.Cells(K, 4).Value, "##0.00")
ListBox1.List(N, 4) = Format(.Cells(K, 5).Value, "##0.00")
ListBox1.List(N, 5) = .Cells(K, 6).Value
'ListBox1.List(N, 5) = Format(.Cells(K, 6).Value, "##0.00")
ListBox1.List(N, 6) = K
Stunden = Format(Stunden + .Cells(K, 4).Value, "##0.00")
End If
Next
TextBox31.Value = Stunden
'TextBox32.Text = Worksheets("Namen").Cells(ComboBox3.ListIndex + 10)
End With
'On Error GoTo Fehler
'Fehler:
'MsgBox "Dieser Name ist nicht in Tabelle NAMEN vorhanden, oder muss bearbeitet werden!"
End Sub