VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
MsgBox Probleme mit Abbrechen	21.03.2018 16:09:05	Flo
MsgBox Probleme mit Abbrechen	21.03.2018 17:23:53	Mackie

Ansicht des Beitrags:

Von:
Flo

Datum:
21.03.2018 16:09:05

Views:
912

Rating:

Antwort:

Thema:
MsgBox Probleme mit Abbrechen

Hallo zusammen,

brauche hilfe!!!!

Ich erstelle momentan eine Liste mit der ich Prüfpläne für die kommende Kalenderwoche erstellen möchte. Die Kollegen sollen in diese Tabelle die entsprechenden Stückzahlen eintragen. Falls Sie keine weiteren Eingaben vornehmen möchten, sollen Sie über Abbrechen oder X die Eingabe verlassen.

Aktuell macht es keinen Unterschied ob man ok oder Abbrechen klickt!

Sub Start()
Call Information
Call Datum
Call Ersteller
Call Kalenderwoche
Call Modelnummer1
Call Stückzahl1
Call Modelnummer2
Call Stückzahl2
Call Modelnummer3
Call Stückzahl3
Call Modelnummer4
Call Stückzahl4
Call Modelnummer5
Call Stückzahl5
Call Modelnummer6
Call Stückzahl6
Call Modelnummer7
Call Stückzahl7
Call Modelnummer8
Call Stückzahl8
Call Modelnummer9
Call Stückzahl9
Call Modelnummer10
Call Stückzahl10
Call Modelnummer11
Call Stückzahl11
Call Modelnummer12
Call Stückzahl12
Call Modelnummer13
Call Stückzahl13
Call Modelnummer14
Call Stückzahl14
Call Modelnummer15
Call Stückzahl15
Call gehezu
End Sub
Sub Information()
    Dim strText As String
    strText = " Bitte alle Felder ausfüllen, unbekannte Felder frei lassen !!!"
    MsgBox "" & strText, vbOKOnly + vbInformation
ldg = 6
End Sub
Sub Datum()
   Dim sTxt As String
   sTxt = InputBox("Bitte aktuelles Datum eintragen:" & vbCr & vbCr & vbCr & vbCr & vbCr & " Datum ", "Prüfprotokolle Gießerei", "(15.01.2001)")

   If sTxt = "Abbruch" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("E2").Value = sTxt
If StrPtr(dat) = 0 Then Exit Sub

End Sub
Sub Ersteller()
   Dim sTxt As String
   sTxt = InputBox("Ersteller:" & vbCr & vbCr & vbCr & vbCr & vbCr & " Name ", "Prüfprotokolle Gießerei", "(FZ)")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("E3").Value = sTxt
End Sub

Sub Kalenderwoche()

   Dim sTxt As String
   sTxt = InputBox("Bitte geplante Kalenderwoche eintragen: " & vbCr & vbCr & vbCr & vbCr & vbCr & " KW/Jahr ", "Prüfprotokolle Gießerei", "8/2017")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("D6").Value = sTxt
End Sub
Sub Modelnummer1()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.1 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B9").Value = sTxt
End Sub
Sub Stückzahl1()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.1 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C9").Value = sTxt
End Sub
Sub Modelnummer2()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.2 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B10").Value = sTxt
End Sub
Sub Stückzahl2()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.2 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C10").Value = sTxt
End Sub
Sub Modelnummer3()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.3 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B11").Value = sTxt
End Sub
Sub Stückzahl3()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.3 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C11").Value = sTxt
End Sub
Sub Modelnummer4()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.4 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B12").Value = sTxt
End Sub
Sub Stückzahl4()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.4 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C12").Value = sTxt
End Sub
Sub Modelnummer5()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.5 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B13").Value = sTxt
End Sub
Sub Stückzahl5()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.5 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C13").Value = sTxt
End Sub
Sub Modelnummer6()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.6 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B14").Value = sTxt
End Sub
Sub Stückzahl6()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.6 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C14").Value = sTxt
End Sub
Sub Modelnummer7()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.7 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B15").Value = sTxt
End Sub
Sub Stückzahl7()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.7 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C15").Value = sTxt
End Sub
Sub Modelnummer8()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.8 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B16").Value = sTxt
End Sub
Sub Stückzahl8()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.8 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C16").Value = sTxt
End Sub
Sub Modelnummer9()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.9 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B17").Value = sTxt
End Sub
Sub Stückzahl9()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.9 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C17").Value = sTxt
End Sub
Sub Modelnummer10()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.10 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B18").Value = sTxt
End Sub
Sub Stückzahl10()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.10 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C18").Value = sTxt
End Sub
Sub Modelnummer11()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.11 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B19").Value = sTxt
End Sub
Sub Stückzahl11()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.11 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C19").Value = sTxt
End Sub
Sub Modelnummer12()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.12 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B20").Value = sTxt
End Sub
Sub Stückzahl12()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.12 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C20").Value = sTxt
End Sub
Sub Modelnummer13()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.13 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B21").Value = sTxt
End Sub
Sub Stückzahl13()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.13 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C21").Value = sTxt
End Sub
Sub Modelnummer14()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.14 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B22").Value = sTxt
End Sub
Sub Stückzahl14()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.14 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C22").Value = sTxt
End Sub
Sub Modelnummer15()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Typ", "Nr.15 Prüfprotokolle Gießerei", "1234")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("B23").Value = sTxt
End Sub
Sub Stückzahl15()
Dim sTxt As String
   sTxt = InputBox("Modelnummer:" & vbCr & vbCr & vbCr & vbCr & vbCr & "Stück", "Nr.15 Prüfprotokolle Gießerei", "125")

   If sTxt = "" Then Exit Sub
   'MsgBox sTxt
   Sheets("Übersicht").Range("C23").Value = sTxt
End Sub

Sub gehezu()
Worksheets(2).Select
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
MsgBox Probleme mit Abbrechen	21.03.2018 16:09:05	Flo
MsgBox Probleme mit Abbrechen	21.03.2018 17:23:53	Mackie