Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung ob Blattname bereits vorhanden?

Prüfung ob Blattname bereits vorhanden?
15.07.2004 12:17:43
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 dankbar.
MfG,
Oliver

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung ob Blattname bereits vorhanden?
Nike
Hi,

Sub pruef
strWks = application.inputbox("Blattname")
if pruef(strWks) then
msgbox strWks & "ist vorhanden"
else
msgbox strWks & "ist nicht vorhanden"
end if
End Sub



Function pruef(strNam as string) as boolean
dim wks as worksheet
pruef = false
for each wks in activeworkbook.worksheets
if wks.nmae = strNam then
pruef = true
exit function
end if
next
End Function

Ha, alles ohne Editor, mal schaun, ob ich nen Fehler drinn hab ;-)
Bye
Nike
AW: Prüfung ob Blattname bereits vorhanden?
15.07.2004 12:32:19
ANdreas
Hallo Oliver,
so etwa in der Form:

Sub BlattnameVorhanden()
Dim s$, ws As Worksheet
s = InputBox("Welcher Blattname soll auf Existenz geprüft werden?", _
"Eingabe Blattname")
For Each ws In Sheets
If s = ws.Name Then
MsgBox s & " bereits vorhanden"
Exit Sub
End If
Next ws
If Not s = "" Then MsgBox s & " ist noch nicht belegt!"
End Sub

Gruß
Andreas
Anzeige
AW: Prüfung ob Blattname bereits vorhanden?
Uduuh
Hallo,
auf die brutale Tour, ohne Schleife:

Sub pruefen
dim sh as worksheet, strName as string
strName=Inputbox("Blattname?")
on error resume next
set sh=sheets(strName)
if sh is nothing then
Msgbox(strname &" ist nicht da")
else
Msgbox(strname &" ist da.")
end if
End Sub

Gruß aus'm Pott
Udo
Danke Euch dreien, funktioniert prima. o.T.
Oliver

33 Forumthreads zu ähnlichen Themen

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 = Ra...
06.10.2010 08:01:57
Thread-ID: 1180878
6 Beiträge
Anzeige
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
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
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
5
9
11
1
6
2
4
11
10
7
1
5
9
11
1
6
2
4
11
10
7
1
5
9
11