Kann mir jemand sagen was in diesem Code falsch ist? Habe das Projekt gerade abgespeichert und testen wollen und dann bekam ich auf einmal diesen Laufzeitfehler der vorher nicht kam:
Visual Basic-Quellcode
- Option Explicit
- Private DTP4 As DateTimePicker
- Private Sub ComboBox3_GotFocus()
- Me.ComboBox3.Requery
- End Sub
- Private Sub UserForm_Initialize()
- Dim Cell As Object
- For Each Cell In Sheets("Kunden").Range("A1:A")
- ComboBox3.AddItem Cell.Value
- Next
- ComboBox2.AddItem "nicht vor"
- ComboBox2.AddItem "bis"
- ComboBox2.AddItem "-"
- Set DTP4 = New DateTimePicker
- With DTP4
- .Add ComboBox1
- .Create Me, "dd/mmm/yyyy", _
- BackColor:=&H125FFFF, _
- TitleBack:=&H808000, _
- Trailing:=&H99FFFF
- .Value = Date
- End With
- End Sub
- Private Sub CommandButton1_Click()
- Sheets("Sheet1").Range("A2").Select
- ActiveCell.EntireRow.Insert Shift:=xlDown
- Sheets("Sheet1").Range("A2").Select
- Sheets("Sheet1").Range("A2").Value = Date
- Sheets("Sheet1").Range("B2").Select
- Sheets("Sheet1").Range("B2").Value = DTP4.Value
- Sheets("Sheet1").Range("C2").Select
- Sheets("Sheet1").Range("C2").Value = ComboBox2.Value
- Sheets("Sheet1").Range("D2").Select
- Sheets("Sheet1").Range("D2").Value = TextBox1.Value
- Sheets("Sheet1").Range("E2").Select
- Sheets("Sheet1").Range("E2").Value = ComboBox3.Value
- Sheets("Sheet1").Range("F2").Select
- Sheets("Sheet1").Range("F2").Value = TextBox2.Value
- End Sub