Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung wenn blattname bereits vorhanden

Forumthread: 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
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


Anzeige
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
;

Forumthreads zu verwandten 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
Wenn Name von Datei bereits vorhanden,dann..
Datei

Hallo zusammen,
ich habe ein Makro welches mich Bilder auswählen lässt und anschließend in einen Ordner schiebt, das funktioniert problemlos. Jetzt kann es aber sein, dass es diese Bezeichnung in dem Ordner bereits vorhanden ist. Wenn dem so ist kommt ein Fehler.
Besteht die Möglichkeit...
04.03.2019 11:14:52
Thread-ID: 1679179
12 Beiträge
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
Button geht nicht weg
kiki
Guten Morgen,

ich sitze vor einem Excel-Sheet, das ich von einem Kollegen bekommen habe.
Darauf sind zwei Buttons, die ich nicht mehr brauche und deshalb entfernen will.

Diese Buttons lassen sich aber nicht durch Entf entfernen und bei RechtsMausKlick erscheint auch kein Kontextme...
10.09.2003 09:13:33
Thread-ID: 307631
3 Beiträge
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
#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
überprüfung ob der name bereits vorhanden ist???
Herbert

ich hab da mal ne kleine frage an euch experten...
hoffe mir kann gehlfen werden.
ich hab ne tabelle. diese tabelle übernimmt namen aus einer anderen tabelle.
sie soll die namen aber nur übernehmen wenn sie noch nicht in der tabelle vorhanden sind. also muss ich überprüfen ob sie sc...
16.02.2006 16:48:17
Thread-ID: 733584
2 Beiträge
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Capax
Hallo zusammen,

ich bin gerade dabei eine Stammdatenliste zu pflegen, und auf einmal erscheint zwischen zwei Zeilen ein Eingabefeld. Ich kann dieses weder anwählen, noch verschieben oder löschen. Ich habe gehofft, dass mir hier jemand weiterhelfen kann. Besten Dank im Voraus!

https...
24.04.2024 14:48:50
Thread-ID: 1975171
17 Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige