Laufzeitfehler 1004 - bei Form.show

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    Laufzeitfehler 1004 - bei Form.show

    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

    1. ​Option Explicit
    3. Private DTP4 As DateTimePicker
    5. Private Sub ComboBox3_GotFocus()
    7. Me.ComboBox3.Requery
    9. End Sub
    10. Private Sub UserForm_Initialize()
    12. Dim Cell As Object
    13. For Each Cell In Sheets("Kunden").Range("A1:A")
    14. ComboBox3.AddItem Cell.Value
    15. Next
    16. ComboBox2.AddItem "nicht vor"
    17. ComboBox2.AddItem "bis"
    18. ComboBox2.AddItem "-"
    20. Set DTP4 = New DateTimePicker
    21. With DTP4
    22. .Add ComboBox1
    25. .Create Me, "dd/mmm/yyyy", _
    26. BackColor:=&H125FFFF, _
    27. TitleBack:=&H808000, _
    28. Trailing:=&H99FFFF
    29. .Value = Date
    30. End With
    31. End Sub
    33. Private Sub CommandButton1_Click()
    34. Sheets("Sheet1").Range("A2").Select
    35. ActiveCell.EntireRow.Insert Shift:=xlDown
    36. Sheets("Sheet1").Range("A2").Select
    37. Sheets("Sheet1").Range("A2").Value = Date
    38. Sheets("Sheet1").Range("B2").Select
    39. Sheets("Sheet1").Range("B2").Value = DTP4.Value
    40. Sheets("Sheet1").Range("C2").Select
    41. Sheets("Sheet1").Range("C2").Value = ComboBox2.Value
    42. Sheets("Sheet1").Range("D2").Select
    43. Sheets("Sheet1").Range("D2").Value = TextBox1.Value
    44. Sheets("Sheet1").Range("E2").Select
    45. Sheets("Sheet1").Range("E2").Value = ComboBox3.Value
    46. Sheets("Sheet1").Range("F2").Select
    47. Sheets("Sheet1").Range("F2").Value = TextBox2.Value
    48. End Sub
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Hmm ist aber alles vorhanden...
    EDIT: Hab den Fehler gefunden in der Range("A1:A")
    Wie geb ich denn da an das er alle bis ganz nach unten überprüfen soll und die leeren halt überspringen?
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Ich weiß jetzt nicht ob es noch gebraucht wird aber schonmal mit "Worksheets(xy).UsedRange.SpecialCells(xlCellTypeLastCell).Row" versucht?
    Bzw ist es das was du meintest mit bis ganz nach unten?
    Es gibt 10 Arten von Menschen. Die die binäre Mathematik verstehen und die, die es nicht verstehen! <3

    Danke für die Antwort, das Problem ist längst behoben und das Projekt abgeschlossen ^^
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

Facebook
Telefonspende