Ich hab folgendes Problem.
Ich befinde mich immer in einer endlos schleife.
Das modul macht folgendes es holt mir von der aktiven zelle einen preis sowie den hersteller und das Produkt. er schreibt mir das dann in ein Fax- fomular.
das problem was ich hab ist das: die userform stückzahl in einer endlos schleife fest sitz und ich nicht weiß wo genau ich sie enden lassen soll.
Modul:
Sub Daten_uebertragen()
Dim Zeile As Long, Fax As Object, Spalte As Long, Bestellen As Single
Dim Name1 As String, Tel As String, abteilung As String, kostenstelle As String
Dim i As Integer
Zeile=ActiveCell.Row Spalte = ActiveCell.Column
Set Fax = Worksheets("fax-formular")
For i = 38 To 44
Fax.Range("a" & i) = Range("a" & Zeile)
Fax.Range("d" & i) = ActiveCell
Fax.Range("k2") = Spalte
Stückzahl.Show
Bestellen = MsgBox("Wollen sie noch etwas bestellen?", vbYesNo)
If Bestellen = vbNo Then
Eingaben.Show
Sheets("Fax-Formular").Select
Else
Exit Sub
End If
Next
End Sub
Userform Stückzahl:
Private Sub Text_Stückzahl_Change()
Dim Fax As Object
Dim i As Integer
For i = 38 To 44
Set Fax = Worksheets("fax-formular")
Fax.Range("e" & i) = Stückzahl.Text_Stückzahl.Value
If IsNumeric(Stückzahl.Text_Stückzahl.Value) Then
Else
MsgBox ("Dies ist keine Zahl")
Exit Sub
End If
Next
End Sub
Kann mir einer helfen