Hallo zusammen,
ich hab ein kleines Problem.
Wenn ich in UserForm3 in TextBox1 einen Namen eingebe und den CommandButton1 drücke, erstellt es mir durch Makros eine neue Tabelle mit dem eingegebenen Namen. Soweit so gut, das funktioniert. Jetzt würde ich wollen, dass es beim drücken des Buttons erst noch abfragt ob die Tabelle mit dem Namen schon vorhanden ist, wenn ja, soll eine MsgBox erscheinen mit dem Text "Tätigkeitsbereich existiert bereits". Führt dann auch keine Makros mehr aus. Sollte dies nicht der Fall sein, soll es einfach die Makros ausführen.
Meine Idee war:
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name = UserForm3.TextBox1 Then
MsgBox "Tätigkeitsbereich existiert bereits"
Else: Call Vorlage_kopieren
Call neue_Tabelle
Call Vorlage_einfügen
End If
Next ws
Dies Funktioniert auch soweit, jedoch soll es die Punkte unter "Else" nur ausführen wenn "If" nicht zutrifft. Aktuell führt es diese trotzdem aus... Das heißt wenn der Tabellenname mit der TextBox1 übereinstimmt, soll nur die Meldung kommen und die "Calls" nicht ausführen. Wenn der Tabellenname nicht mit der TextBox1 übereinstimmt, sollen alle Punkte unter "Else" ausgeführt werden. |