Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung wenn blattname bereits vorhanden

Fehlermeldung wenn blattname bereits vorhanden
Roger
Guten morgen,
Ich beschäftige mich mit folgendem Problem.
Wenn Blattname bereits vorhanden, sollte eine Msgbox ("Aktennotiz bereits vorhanden!") angezeigt werden.
Dim wsAct As Worksheet
Set wsAct = ActiveSheet
wsAct.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("h2")
wie kann ich da vorgehen?
Besten Dank für die Rückmeldung.
Gruss Roger

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehlermeldung wenn blattname bereits vorhanden
06.10.2010 08:01:57
Hajo_Zi
Hallo Rogeer,
Option Explicit
Sub tes()
Dim wsAct As Worksheet
Set wsAct = ActiveSheet
wsAct.Copy After:=Sheets(Sheets.Count)
Err.Clear
On Error Resume Next
ActiveSheet.Name = Range("h2")
If Err  0 Then MsgBox "Tabelle schon vorhanden"
On Error GoTo 0
Set wsAct = Nothing
End Sub


AW: Fehlermeldung wenn blattname bereits vorhanden
06.10.2010 08:03:44
welga
Hallo,
z.B. so:
Sub test()
Dim wsAct As Worksheet
Dim ws As Worksheet
Dim aktnot As String
Set wsAct = ActiveSheet
wsAct.Copy After:=Sheets(Sheets.Count)
aktnot = wsAct.Range("h2").Text
For Each ws In ThisWorkbook.Worksheets
If ws.Name = aktnot Then
MsgBox ("Aktennotiz bereits vorhanden!")
aktnot = InputBox("Neuer Aktennotizname:")
End If
Next
Sheets(Sheets.Count).Name = aktnot
End Sub

Anzeige
AW: Fehlermeldung wenn blattname bereits vorhanden
06.10.2010 08:26:52
Roger
Besten Dank ihr beiden,
Es geht in die Richtung die ich benötige.
Ein kleiner Schönheitsfehler: Wenn vorhanden möchte ich kein neues "unter anderem Namen" Blatt anlegen. Im Prinzip: Abruch des Makro und zurücksetzen auf letzten Stand vor dem Ausführen des Makros.
AW: Fehlermeldung wenn blattname bereits vorhanden
06.10.2010 08:32:16
Hajo_Zi
Hallo Roger,
wir wissen nicht was Du willst, wir haben nur die UInformation aus dem ersten Beitrag. 
Option Explicit
Sub tes()
Dim wsAct As Worksheet
Set wsAct = ActiveSheet
wsAct.Copy After:=Sheets(Sheets.Count)
Err.Clear
On Error Resume Next
ActiveSheet.Name = Range("h2")
If Err  0 Then
MsgBox "Tabelle schon vorhanden"
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
End If
On Error GoTo 0
Set wsAct = Nothing
End Sub

Gruß Hajo
Anzeige
AW: Fehlermeldung wenn blattname bereits vorhanden
06.10.2010 08:37:52
Roger
Hallo Hajo,
Besten Dank, funktioniert wie ich es benötige :-)
Werde mich bemühen das nächste mal von Anfang an klarer zu formulieren.
Nochmals Danke und schöner Tag
Gruss Roger

301 Forumthreads zu ähnlichen Themen

InputBox geht nicht mehr weg!! :(
Thomas

Einen schönen Sonntag zusammen!
Ich bastele an meinem Projekt gerade weiter und nun hab ich das Problem das die Inputbox nicht mehr weg geht. Sie macht zwar das was sie soll aber ich bekomme sie nach Eingabe nicht mehr weg und sperrt mir alles so das ich Task abbrechen muss.
~ Private...
19.01.2014 12:00:49
Thread-ID: 1345832
10 Beiträge
Anzeige
Balken geht nicht weg
Christopher

Hallo,
bearbeite gerade eine Preisliste in Ecxel und habe dabei folgendes Problem:
In der Druckvorschau wird mir in einer Zelle ein schwarzer Balken angezeigt, der da nicht hingehört. Kopieren und einfügen einer leeren, weißen Zelle ließ den Balken auch nicht verschwinden.Woran kann das l...
06.05.2003 08:45:30
Thread-ID: 252611
2 Beiträge
kontextmenu - es geht nicht mehr weg!
mehmet
guten morgen forum
folgendes macro:
Sub ZellenKontextMenuErganzen() Dim MB As CommandBarControl Set MB = Application.CommandBars("cell").Controls.Add With MB .Caption = "Nachricht 2" .OnAction = "Nachricht2" .BeginGroup = True End With Set MB = Application.CommandBars("cell").Controls.Add W...
06.07.2003 09:50:17
Thread-ID: 277521
7 Beiträge
Anzeige
Prüfung ob Tabellenblattname bereits vorhanden?
Oliver

Hi an alle,
ich komm mal wieder nicht weiter ohne Eure Hilfe. Ich habe eine UserForm, in der ich eine Jahreszahl eingebe. Beim Betätigen des OK-Buttons wird mir ein Tabellenblatt mit dem Namen der eingegebenen Jahreszahl angelegt. Und hier bräuchte ich Hilfe. Ich würde nun gerne vor dem Ert...
17.06.2004 15:16:59
Thread-ID: 442610
5 Beiträge
Prüfung ob Blattname bereits vorhanden?
Oliver

Hallo an alle!
Wie kann ich prüfen, ob ein Tabellenblatt bereits vorhanden ist? Das Problem ist, es gibt in der Datei auch ausgeblendete Tabellenblätter und da möchte ich eben prüfen ob schon ein ausgeblendetes Blatt mit dem Namen vorhanden ist. Hat jemand eine Idee?
Bin für jede Hilfe...
15.07.2004 12:17:43
Thread-ID: 455860
5 Beiträge
#WERT GEHT NICHT WEG!!!
andreas

Hallo leute
hab da ein problem mit meiner tabelle!!
ich bekomm einfach das #WERT nicht weg hab schon alles mir mögliche versucht!
bitte helft mir!!!
Die Datei https://www.herber.de/bbs/user/20822.xls wurde aus Datenschutzgründen gelöscht Mfg andreas
07.04.2005 13:36:45
Thread-ID: 595622
12 Beiträge
UF geht nicht weg..
Walter mb
Hallo Zusammen,
ich möchte, während mein Makro ausgeführt wird, das die UF erscheint und
später automatisch verschwindet.
Leider ohne Erfolg, erst wenn ich die UF am Kreuz oben Rechts wegklicke, wird das Makro weiter durchgeführt.
Hier mein Makro:
Sub Auto_Open() Application.Scr...
22.10.2005 12:26:05
Thread-ID: 685463
11 Beiträge
Hilfe - Symbolleiste ist weg, nichts geht mehr
Basti

Hallo an alle,
ich habe mir gerade eine Excel-Datei eingeladen. Danach waren die Symbolleisten weg. Ich habe noch nicht mal mehr die Standard-Symbolleiste. Und kann daher nicht in das Extra-Menü oder sonst wohin.
Wie kann ich die Einstellung wieder rückgängig machen.
Bitte um schnel...
21.11.2005 09:51:22
Thread-ID: 698685
8 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
11
1
6
2
4
4
11
10
7
1
9
11
1
6
2
4
4
11
10
7
1
8
3
4