Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Tabellennamen abfragen mit wenn, dann, sonst funktion |
22.01.2019 15:30:35 |
Martin |
|
|
|
22.01.2019 15:35:00 |
Martin |
|
|
|
22.01.2019 15:58:32 |
Flotter Feger |
|
|
|
23.01.2019 11:12:30 |
Martin |
|
|
Von:
Martin |
Datum:
22.01.2019 15:30:35 |
Views:
753 |
Rating:
|
Antwort:
|
Thema:
Tabellennamen abfragen mit wenn, dann, sonst funktion |
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. |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Tabellennamen abfragen mit wenn, dann, sonst funktion |
22.01.2019 15:30:35 |
Martin |
|
|
|
22.01.2019 15:35:00 |
Martin |
|
|
|
22.01.2019 15:58:32 |
Flotter Feger |
|
|
|
23.01.2019 11:12:30 |
Martin |
|
|