Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
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

Prüfung von vorhandenen Tabellen

Prüfung von vorhandenen Tabellen
vorhandenen
mahlzeit,
If Sheets("Konfiguration").Exists Then
Sheets("Konfiguration").Select
Else
Sheets.Add.Name = "Konfiguration"
Sheets("Konfiguration").Select
End If
Fehler-Ausgabe in der ersten Zeile: Index außerhalb des gültigen Bereiches.
ich glaub es liegt an dem Befehl, hab ihn irgendwo aufgeschnappt.
gruß
KibbA

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Prüfung von vorhandenen Tabellen
22.10.2010 12:39:03
vorhandenen
Hallo,
die .Exists-Eigenschaft gibt es nicht für Sheets. 
Sub tt()
Dim wks As Worksheet
On Error Resume Next
Set wks = Worksheets("Konfiguration")
On Error GoTo 0
If wks Is Nothing Then
Worksheets.Add.Name = "Konfiguration"
Else
wks.Activate
End If
End Sub

Gruß
Rudi
Danke *owT
22.10.2010 13:07:41
KibbA
Danke *owT
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige