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
Sobald der Button gedrück wird, öffnet sich hier eine andere Tabelle, wo das Sekretariat die Projekte pflegt.... Der Mitarbeiter kann dann hier auf die Projektnummer über die "Inputbox" klicken und die daten werden in seinen Stundenzettel übertragen.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