Bei Haltepunkt anderes Verhalten
15.03.2008 21:31:00
Oswald
hab von einem Kollegen sein VBA-Projekt bekommen.
Bei seinem Code wird beim Ablauf ein Unterschied gemacht ob ein Haltepunkt im Code ist oder nicht, bzw. ob ich die Zeile mit Application.Wait aktiviere oder nicht.
Kann mir da jemand von euch helfen?
Hier dir Code
Danke euch schon mal.
Gruß
Ossi
Private Sub TextBox192_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
'Doppelklick auf Kundenname in Page "Dienstleistung und Verkauf" um Kundendaten abzurufen
'Application.Wait (Now + TimeValue("0:00:02"))
'Beginn Prüfungen
'Prüfen ob ein Kundenname eingetragen ist
If TextBox192.Value = "" Then GoTo Ende1
'Prüfen ob Kundenname in Kundenstamm vorhanden ist
Dim Suchwert As String
Dim Vergleichswert As String
Sheets("Kundenstamm").Activate
If Sheets("Settings").Range("O32").Value = "Name" Then
Range("A2").Select
Else: Range("C2").Select
End If
Do
Suchwert = TextBox192.Value
Vergleichswert = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value
If Suchwert = Vergleichswert Then GoTo KundeAnzeigen
If ActiveCell.Value = "" Then MsgBox "Kunde ist nicht angelegt! "
If ActiveCell.Value = "" Then GoTo Ende1
ActiveCell.Offset(1, 0).Select
Loop
GoTo Ende1:
KundeAnzeigen:
KGADLVK = 1 'Siehe Modul1
'Kundendaten in Textboxen Kundenstamm zu schreiben und Muttipage wechseln
If Sheets("Settings").Range("O32").Value = "Name" Then GoTo Continue
ActiveCell.Offset(0, -2).Select
Continue:
If Sheets("Settings").Range("O32").Value = "Name" Then
Sheets("Kundenstamm").Activate: TextBox300.Value = ActiveCell.Offset(0, 2).Value
Else: TextBox300.Value = ActiveCell.Value
End If
If Sheets("Settings").Range("O32").Value = "Name" Then
TextBox301.Value = ActiveCell.Offset(0, 3).Value
Else: TextBox301.Value = ActiveCell.Offset(0, 1).Value
End If
If Sheets("Settings").Range("O32").Value = "Name" Then
TextBox302.Value = ActiveCell.Value
Else: TextBox302.Value = ActiveCell.Offset(0, 2).Value
End If
If Sheets("Settings").Range("O32").Value = "Name" Then
TextBox303.Value = ActiveCell.Offset(0, 1).Value
Else: TextBox303.Value = ActiveCell.Offset(0, 3).Value
End If
TextBox304.Value = ActiveCell.Offset(0, 4).Value
TextBox305.Value = ActiveCell.Offset(0, 5).Value
TextBox306.Value = ActiveCell.Offset(0, 6).Value
TextBox307.Value = ActiveCell.Offset(0, 7).Value
TextBox308.Value = ActiveCell.Offset(0, 8).Value
TextBox309.Value = ActiveCell.Offset(0, 9).Value
TextBox310.Value = ActiveCell.Offset(0, 10).Value
TextBox311.Value = ActiveCell.Offset(0, 11).Value
TextBox312.Value = ActiveCell.Offset(0, 12).Value
TextBox313.Value = ActiveCell.Offset(0, 13).Value
TextBox314.Value = ActiveCell.Offset(0, 14).Value
TextBox315.Value = ActiveCell.Offset(0, 15).Value
UserForm1.MultiPage1.Value = 3
Ende1:
KGADLVK = 0
Application.ScreenUpdating = True
End Sub