InPut Box leer
01.01.2017 21:00:09
Daniel
ich bekomm folgenden code irgendwie nicht umgeschrieben:
Sheets("Tabelle1").Select
Range("B20:I1000").Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
NeuName = InputBox("Unter welchem Namen soll die Tabelle1 gespeichert werden? / Statistik... ")
ActiveSheet.Name = NeuName
Wenn eine Eingabe fehlt oder ein Tabellenblatt schon vorhanden ist kommt eine Fehlermeldung!
Außerdem hatte ich mir vorgenommen das der neue Tabellenblattname zum Teil vom VBA vorgegeben wird und der Benutzer nur noch eine zusätzliche Angabe tätigt. Also zum Beispiel "Statistik (Verkauf)" wobei Statistik immer von VBA vorne dran gehangen wird und der Benutzer in die Inputbox "Verkauf" eingibt.
Das hört sich jetzt sehr kompliziert an glaube ich...
Ich hoffe es kann mir da trotzdem einer Weiterhelfen? Zumindest mit dem Problem der Fehlermeldung :-)
Vielen Dank im Voraus.
Daniel