Vba Copy Worksheet
09.08.2019 16:25:24
Tom
ich versuche ein VBA aufzusetzen, dass ein ausgeblendetes Arbeitsblatt kopiert (je nach dem was _
der User in die inputbox eingibt) und diese sichtbar macht. Das funktioniert alles gut. Was _ nicht funktioniert ist der Abbruch button, ich habs versucht mit der MsgBox abzufangen, jedoch wird dann der inputbox nicht beendet. Das Unlod(operatorAnzahl) hat leider auch nicht funktioniert. Zweitens habe ich versucht, das zu kopierende Worksheet, also Worksheets("Vorlage") in die Variable CopyDoc zu packen, jedoch kommt eine Fehlermeldung. Was ist falsch?
Private Sub loopVBA()
Dim operatorAnzahl, operatorTitel, oCounter, i%, sCounter
Dim CopyDoc As Worksheet
Set CopyDoc = Worksheets("Vorlage")
' Operator Quantity Input
OPERATORQUERY:
operatorTitel = "Anzahl der Operatoren"
operatorAnzahl = InputBox(prompt:="Bitte geben Sie die Anzahl der zu generierenden _
Operatoren ein:", Title:=operatorTitel)
If StrPtr(operatorAnzahl) = 0 Then
MsgBox "Sie haben auf Abbrechen geklickt"
ElseIf Not IsNumeric(operatorAnzahl) Then
MsgBox "Die Eingabe ist nicht valide! Bitte nur Zahlen eingeben."
GoTo OPERATORQUERY
ElseIf operatorAnzahl > 25 Then
MsgBox "Die Anzahl der Operatoren darf nicht mehr als 25 sein!"
GoTo OPERATORQUERY
ElseIf operatorAnzahl