Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

ComandButton3 geht nicht mehr | Herbers Excel-Forum


Betrifft: ComandButton3 geht nicht mehr von: Ingo
Geschrieben am: 01.01.2012 13:43:03

Einen gutes neues Jahr wünsche ich allen!!
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

  

Betrifft: AW: ComandButton3 geht nicht mehr von: Josef Ehrensberger
Geschrieben am: 01.01.2012 13:48:41


Hallo Ingo,

die Fehlermeldung sagt doch ganz klar, wo das Problem liegt, "frm1" ist nicht deklariert.

Allerdings brauchst du "frm1" gar nicht, entweder du schreibst statt "With frm1" einfach "With Me", oder
du lässt den With-Rahmen ganz weg und löschst die Punkte vor den .TextBox.....-Zeilen.




« Gruß Sepp »



  

Betrifft: Danke Sepp ! von: Ingo
Geschrieben am: 01.01.2012 14:42:48

Hallo Sepp,
kleine Ursache, große Wirkung!
Habe in With Me umgeändert , und geht!!
Vielen lieben Dank