Inputbox abbrechen
26.06.2018 09:58:45
Martin
Vielleicht kann mir jemand helfen. Komme einfach nicht weiter.....
Mitarbeiter haben einen Stundenzettel. in diesem Stundenzettel gibt es einen Button "Projekt hinzufügen" ( dazu gehört folgender Code)
Public Sub projekteingabe()
Dim Eingabenummer As Range
VLZW = ActiveWorkbook.Name
vinfo = "Info"
Veinfueg = Sheets(vinfo).Range("C65536").End(xlUp).Row + 1
Workbooks.Open Filename:="hier steht der Pfad der Datei", UpdateLinks:=0, ReadOnly:=True
Workbooks("Projektnummernvergabe.xlsm").Worksheets("Projektnummern").Select
Set Eingabenummer = Application.InputBox("Makiere Projektnummter und bestätige mit OK", Type:=8) _
vzeile = Eingabenummer.Address
xx = Range(vzeile).Row
VPNr = Cells(xx, 3).Value
VPBez = Cells(xx, 4).Value
VKunde = Cells(xx, 5).Value
VAbrechnung = Cells(xx, 8).Value
Workbooks(VLZW).Activate
Workbooks("Projektnummernvergabe.xlsm").Close SaveChanges:=False
Workbooks(VLZW).Worksheets(vinfo).Select
Cells(Veinfueg, 3).Value = VPNr
Cells(Veinfueg, 5).Value = VKunde
Cells(Veinfueg, 6).Value = VPBez
If VAbrechnung = "pauschal" Then
Cells(Veinfueg, 4).Value = "P"
Else
Cells(Veinfueg, 4).Value = "A"
End If
Rem MsgBox "Eingabenummer= " & Eingabenummer
End Sub
Problem: Wenn ich die Inputbox abbreche kommt ein laufzeitfehler. ICh möchte aber das wenn die Inputbox abgebrochen wird..... die Datei "Projektnummernvergabe.xlsm" geschlossen wird und halt nichts passiert....
Für eine Lösung bin ich dankbar. ICh bin mir sicher das es einfach zu lösen ist aber ich habe gerade eine Blockade..
Vielen Dank