VBA in Word: Endlosschleife

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VBA in Word: Endlosschleife

    Hallo


    Das Programm an sich steht ja,
    Aber leider habe ich nun noch 2 Schönheitsfehler.
    Von den gewünschten Funktionen her klappt es wunderbar, aber ....


    also er trägt alle Daten aus Excel in die Wordtabelle ein und Berechnet auch richtig den Gesamtpreis
    wenn eine Ware leer oder in geringerer stückzahl als angegeben vorhanden ist dann gibt er die Meldung und sagt das nurnoch x vorhanden sind und das man doch die Ware y nachbestellen soll

    Problem ist nun das er dann aber trotzdem mit der Schleife weitermacht
    Ich weiß nun leider nicht wie ich ihm sage das er nach der Meldung einfach aussteigen soll und auf erneute eingabe warten soll (denke das irgendwie mit goTo gehen könnte)
    Weiteres Problem ist das er nicht am Anfang der Tabelle anfängt einzutragen, sondern lustigerweise in der mitte der Tabelle und dann füllt er von oben auf bis die tabelle voll ist
    wenn die Tabelle voll ist stürzt das Programm natürlich auch wieder ab
    Wie geht es das er die Tabelle erweitert???
    Oder soll ich einfach das Programm dann mit einem END killen und dann hat man ja seine Rechnung.
    Aber wie mache ich ihm klar das er erst wenn die Tabelle voll ist das Programm killen soll???


    der code von dem ganzen spaß:

    Quellcode

    1. Dim dateiauswahl
    2. Dim xl As Object
    3. Dim wdApp As Word.Application
    4. Dim wdDoc As Word.Document
    5. Dim wdRng As Word.Range
    6. Dim ol As Object
    7. Dim namen() As String
    8. Dim Bereich As Object
    9. Dim Einzel As Integer
    10. Dim Menge As Integer
    11. Dim i As Integer
    12. Dim a As Integer
    13. Dim b As Integer
    15. Dim gesamtpreis As Integer
    17. Private Sub UserForm_Activate()
    20. 'Datei-Öffnen Dialog zur Auswahl der Excel Datei
    21. 'Set Dialog = CreateObject("MSComDlg.CommonDialog")
    22. 'On Error Resume Next
    23. 'With Dialog
    24. ' .Filter = "Excel (*.xls)|*.xls"
    25. ' .DialogTitel = "Datei öffnen"
    26. ' .MaxFileSize = 260
    27. ' .InitDir = "C:"
    28. ' .ShowOpen
    29. ' If Err = 0 Then
    30. ' MsgBox "Ausgewälte Datei: " & .FileName
    31. ' End If
    32. dateiauswahl = "C:\waren.xls"
    33. ' End With
    35. '##Combobox mit Inhalten aus Excel füllen##
    36. Set xl = CreateObject("excel.Application")
    37. xl.workbooks.Open ("C:\waren.xls")
    38. ComboBox1.Clear
    39. Set Bereich = xl.worksheets(1).[A1].CurrentRegion
    40. For i = 2 To Bereich.Rows.Count
    41. ComboBox1.AddItem xl.worksheets(1).Cells(i, 1).Value
    42. Next
    43. ComboBox1.Value = ComboBox1.List(0)
    47. Set wdApp = CreateObject("word.Application")
    51. End Sub
    54. Private Sub ComboBox1_Change()
    55. '##Lagerbestand in Textfeld eintragen##
    56. a = ComboBox1.ListIndex + 2
    57. TextBox1.Text = xl.worksheets(1).Cells(a, 2).Value
    59. End Sub
    61. Private Sub WareBuchen_Click()
    62. '##Benötigte Ware aus Lagerbestand ausbuchen und in Worddokument eintragen (Bezeichnung, Menge, Einzelpreis und Gesamtpreis)##
    63. gesamtpreis = xl.worksheets(1).Cells(a, 3).Value
    66. TextBox1.Text = TextBox1.Text - TextBox2.Text
    68. If TextBox1.Text < 0 Or TextBox1.Text < TextBox2.Text Then
    69. MsgBox "Nicht genügend Ware vorhanden! Nurnoch " & xl.worksheets(1).Cells(a, 2).Value & " Stück vorhanden Bitte bestellen Sie umgehend " & ComboBox1.Value & " nach", vbCritical, "FEHLER"
    70. 'Hier ein Abbruch einfügen damit nicht weitergerechnet wird
    71. Else:
    72. a = ComboBox1.ListIndex + 2
    73. xl.worksheets(1).Cells(a, 2).Value = TextBox1.Text
    74. TextBox1.Text = xl.worksheets(1).Cells(a, 2).Value
    76. End If
    78. ' Do While c = False
    79. 'If ActiveDocument.Tables(1).Cell(a, 1).Range.Text = vbCr & Chr(7) Then
    80. ' c = True
    81. 'Else
    82. b = b + 1
    83. 'End If
    84. 'Loop
    86. ActiveDocument.Tables(1).Cell(a, 1).Range.Text = TextBox2.Text
    87. ActiveDocument.Tables(1).Cell(a, 2).Range.Text = xl.worksheets(1).Cells(a, 1).Value
    88. ActiveDocument.Tables(1).Cell(a, 3).Range.Text = xl.worksheets(1).Cells(a, 3).Value
    89. ActiveDocument.Tables(1).Cell(a, 4).Range.Text = gesamtpreis * TextBox2.Text
    90. ' c = False
    94. End Sub
    95. Private Sub Rechnungssumme_Click()
    96. '##Rechnungsbetrag berechnen##
    99. End Sub
    101. Private Sub Ende_Click()
    102. xl.workbooks(1).Save
    103. xl.Quit
    104. Set xl = Nothing
    105. End
    106. End Sub
    108. Private Sub UserForm_Terminate()
    109. xl.workbooks(1).Save
    110. xl.Quit
    111. Set xl = Nothing
    112. End Sub
    Alles anzeigen

    wenn jemand weitere fehler im Code auffallen dann bin ich auch sehr froh wenn man mir das sagt

  • Word VBA problem

    hier mal zwei Tipps:

    Schleife verlassen geht mit Exit Do oder Exit For

    Warum fängt das Programm mitten in der Tabelle an:

    hier lies du den ListIndex der ComboBox aus, der wird ja durch das +2 niemals 1 sein

    Quellcode

    1. Private Sub ComboBox1_Change()
    2. '##Lagerbestand in Textfeld eintragen##
    3. a = ComboBox1.ListIndex + 2
    4. TextBox1.Text = xl.worksheets(1).Cells(a, 2).Value

    und dann weiter unten wird a verwendet, ohne noch mal auf 1 zurückgesetzt worden zu sein, dann kann es ja nicht in Zeile 1 anfangen

    Quellcode

    1. ActiveDocument.Tables(1).Cell(a, 1).Range.Text = TextBox2.Text
    2. ActiveDocument.Tables(1).Cell(a, 2).Range.Text = xl.worksheets(1).Cells(a, 1).Value
    3. ...

    Viele Grüße

    stefan.sp