Versuche seit einiger Zeit eine Inputbox in einem bestehenden Code einzufügen. Dies hier funktioniert ohne Probleme
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 32)).Copy 'kopiert die Zellen 1 bis 32 in Storniert
Worksheets("Storniert").Visible = True
Worksheets("Storniert").Activate 'Aktiviert das Tabellenblatt Storniert
Sheets("Storniert").Cells(Sheets("Storniert").Cells(Rows.Count, 2).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues 'fügt die kopierten Zellen in Storniert ein
ActiveCell.Offset(0, 32).Value = Date
Habe dann diese Code Zeilen angehängt
vEingabe = InputBox("Sachbearbeiter:", "Name eingeben:", "")
ActiveCell.Offset(0, 33).Value = vEingabe
dies geht, dauert aber sehr lange bis die Box aufgerufen wird, das hinein schreiben in die Inputbox dauert dann auch noch mal so 30 sek.
Wie muss ich da vorgehen das das ganze zügig funktioniert
Für Eure Hilfe schon mal ein Danke
Gruß, Guesa