Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen, ob Tabellenblatt vorhanden

Prüfen, ob Tabellenblatt vorhanden
MB
Hallo zusammen,
ich möchte beim Öffnen einer Datei prüfen, ob es ein Tabellenblatt mit einem bestimmten Namen ("ad hoc") gibt. Gibt es das Tabellenblatt nicht, soll die Prozedur verlassen werden. Wenn es das Tabellenblatt gibt, soll die Prozedur durchlaufen werden.
Für Eure Hilfe besten Dank im Voraus
MfG
Mike

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
prüfen, ob recherche vorhanden
23.02.2011 09:37:58
selli
hallo mike,
in der recherche findest du dazu viele beispiele.
gruß selli
SheetExists()
23.02.2011 09:38:05
Erich
Hallo Mike,
das könntest du mit dieser Fkt. machen: 

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(strName) Is Nothing
End Function
Aufrufebn kannst du z. B. so:
If SheetExists("abc") then
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: SheetExists()
23.02.2011 10:09:43
MB
Hallo Erich,
recht herzlichen Dank - genau das was ich gebraucht habe!
Noch eine Frage dazu:
Ich habe praktisch mit
If SheetExists("ad hoc") then
eine große "Klammer" um die Prozedur gemacht.
Wenn das Tabellenblatt vorhanden ist, läuft excel durch die Prozedur, wenn nicht hatte ich
end sub
eingestellt.
Dann erhalte ich aber die Fehlermeldung "If Block ohne End if". Wenn ich das End Sub einfach rauslasse, funktionierts. Das lässt sich doch bestimmt besser lösen, oder?
Jetzt die Frage: Gibt es eine Möglichkeit, die If-Abfrage so zu gestalten, dass nicht der gesamte Code innerhalb stehen muss? --> Ist das Tabellenblatt nicht vorhanden, dann verlasse die Prozedur. Ich kriegs einfach nicht hin.
Nochmals recht herzlichen Dank für die tolle Hilfe!
LG
Mike
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim g As Date
Dim h As Date
Dim a As Date
If SheetExists("ad hoc") Then
Set wks = Sheets("ad hoc")
wks.Select
g = wks.Cells(5, 4)
h = wks.Cells(5, 5)
a = wks.Cells(15, 4)
If Not a = Date Then
If Not g = h Then
a = Date
wks.Cells(15, 4) = a
wks.Cells(5, 4) = h
Range("E6:E11").Select
Selection.Copy
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End If
wks.Cells(1, 1).Select
Set wks = Sheets("Limitauslastungen")
wks.Select
wks.Cells(2, 4).Select
Else
End If
End Sub

Anzeige
AW: SheetExists()
23.02.2011 10:18:59
Martin
Hallo Mike,
suchst du vielleicht "Exit Sub"?
Viele Grüße
Martin
AW: SheetExists()
23.02.2011 10:48:55
MB
Danke Martin,
das wars!
Da habe ich ja mal wieder bewiesen, dass ich von VBA kaum ne Ahnung habe.
LG
Mike
Dafür ist das Forum da ;-) OW
23.02.2011 10:56:09
Martin
OW
Wo ist das Problem?
23.02.2011 10:49:58
Erich
Hi Mike,
so wie du den Code gepostet hast, läuft er locker durch.
Ich hab nur nioch ein wenig eingerückt, damit man besser sieht,
bis wo z. B. ein "If" geht: 

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim g As Date
Dim h As Date
Dim a As Date
If SheetExists("ad hoc") Then
Set wks = Sheets("ad hoc")
wks.Select
g = wks.Cells(5, 4)
h = wks.Cells(5, 5)
a = wks.Cells(15, 4)
If Not a = Date Then
If Not g = h Then
a = Date
wks.Cells(15, 4) = a
wks.Cells(5, 4) = h
Range("E6:E11").Select
Selection.Copy
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
End If
wks.Cells(1, 1).Select
Set wks = Sheets("Limitauslastungen")
wks.Select
wks.Cells(2, 4).Select
Else
'  Else ist überflüssig, oder soll dann etwas getan werden?
End If
End Sub
Was meinst du mit "wenn nicht hatte ich end sub eingestellt." genau?
Gabs dann noch ein zweites "End Sub"?
@Martin: Exit Sub sollte man nicht ohne Not verwenden. If ... End If reicht hier völlig aus.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Wo ist das Problem?
23.02.2011 11:10:53
MB
Hallo Erich,
ich bin der Meinung, dass es so etwas unübersichtlich ist. Jetzt steht ja noch nicht soviel da, aber vermutlich wird der code noch etwas anwachsen.
Und da hat mich gestört, das ich bei der If-Abfrage nicht die gewünschte Aktion auslösen kann. Wenn das Tabellenblatt nicht vorhanden ist, die Prozedur zu verlassen. Peinlich: Ich habe End Sub mit Exit Sub verwechselt.
Jetzt sieht´s so aus:
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim g As Date
Dim h As Date
Dim a As Date
If Not SheetExists("ad hoc") Then
Exit Sub
End If
Set wks = Sheets("ad hoc")
wks.Select
g = wks.Cells(5, 4)
h = wks.Cells(5, 5)
a = wks.Cells(15, 4)
If Not a = Date Then
If Not g = h Then
a = Date
wks.Cells(15, 4) = a
wks.Cells(5, 4) = h
Range("E6:E11").Select
Selection.Copy
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End If
wks.Cells(1, 1).Select
Set wks = Sheets("Limitauslastungen")
wks.Select
wks.Cells(2, 4).Select
End Sub

Danke für die tolle Unterstützung!
Was würde ich nur ohne dieses Forum tun...
LG Mike
Anzeige

17 Forumthreads zu ähnlichen Themen

perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
Wie Prüfen ob Worksheet vorhanden
Holger

Hallo,
folgendes Problem.
Ich öffne aus einer Excel Datei eine andere Excel Datei. Hier muss ich prüfen,
ob es zwei WorkSheets gibt.
01 SH1 TH1
02 SH1 TH2
Wenn es einen von beiden nicht gibt, soll eine Fehlermeldung erscheinen.
Ich habe das hier mal programmiert aber...
28.06.2010 14:48:02
Thread-ID: 1164340
4 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Anzeige
prüfen ob Tabellenblatt vorhanden und daten überne
Gehrmann

Guten Abend liebe Excelgemeinde
Suche nun sch 1 Stunde im wirklich gutem Archiv, finde aber keine Lösung für mein Problem da ich es möglichst ohne VBA realisieren möchte.
Jeden Monat erstelle ich eine neue Datei wo ich jeden Tag ein neues Tabellenblatt mit entsprechenden Datum dazufüge....
16.03.2013 19:47:59
Thread-ID: 1304365
4 Beiträge
Prüfen ob bestimmtes Tabellenblatt vorhanden
Markus

Folgendes Problem ...
ich möchte in einer Mappe2 auf eine Zelle aus einer Tabelle"XX" aus Mappe1 verweisen.
Die Tabelle"XX" ist aber unter Umständen nicht vorhanden.
Bei normalem Verweis erscheint dann ja immer #Bezug
um das zu vermeiden, möchte ich vorher prüfen ob es diese Ta...
05.11.2014 07:00:28
Thread-ID: 1390516
10 Beiträge
Prüfen ob Sheet vorhanden und wenn ja löschen
Elias

Hallo zusammen
Ich habe einen Updater. An und für sich funktioniert dieser. Jedoch muss ich jetzt noch eine zusätzliche Funktion einbauen, die mir immer einen Fehler anzeigt.
Aber zuerst mal hier der Code:
------------------------------------------------- Private Sub CommandButton1_...
22.01.2015 17:54:23
Thread-ID: 1404505
4 Beiträge
Überprüfen ob Worksheet vorhanden
Nermin

Hallo liebe Community,
ich hatte schonmal eine Frage gehabt zu diesem Thema, da wurde mir wunderbar geholfen. Jetzt ists ein bisschen abgeändert und ich habe irgendwie das Gefühl ich habe einen Denkfehler und seh den Wald vor lauter Bäumen nicht ;).
Geht um folgendes:
Der Code soll...
03.08.2016 11:54:30
Thread-ID: 1507552
8 Beiträge
VBA Tabellen erstellen und überprüfen ob vorhanden
Donald

Servus!
Nach anfänglichem Haareraufen komme ich nun zu euch, da das sicher ein Kinderspiel für euch ist. Folgende beiden Codes habe ich (teils glaube ich sogar hier aus dem Forum von Hajo_Zi anno 2012):
Sub NewSheets() For I = 1 To 12 Dim wsNew As Worksheet Set wsNew = Worksheets.Add Wi...
07.09.2016 12:56:27
Thread-ID: 1513332
5 Beiträge
Anzeige

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
2
3
3
7
3
9
3
7
4
13
2
4
2
5
4
5