Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If-Schleife erstellen

If-Schleife erstellen
15.04.2005 10:17:13
Matthias
Hallo zusammen,
Ich muss noch eine If-Schleife in mein Programm einbauen, damit nicht immerzu fehlermeldungen kommen. Weis aber nicht so recht wie.
Folgendes problem: Ich will schauen ob es eine tabelle(worksheet) mit einen bestimmten namen schon existiert. Wenn nicht, soll das Worksheet erstellt werden.
Var Tabname2 as String
Str as String
Str = "_Z" =&gt das ist immer konstant
Tabname2 = ActiveSheet.name =&gt also immer unterschiedlich
Nun die ungefähre Schleife in Worten
If Worksheet (Tabname2+Str) existiert
dann msgbox ("bla bla") Wenn Worksheet (Tabname2+Str) nicht existiert
dann soll das Worksheet exstellt werden mit den Namen (Tabname2+str)

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

Betreff
Datum
Anwender
Anzeige
Nachtrag
15.04.2005 10:50:12
Matthias
Hallo zusammen,
ENTWARNUNG.
Ich habs hinbekommen. Bin selbst erstaunt über mich!!!
Also, schönes Wochenende allen (is ja tolles wetter draußen), zumindest bei uns
Mfg Matthias
AW: If-Schleife erstellen
15.04.2005 10:51:48
Hajo_Zi
Hallo Matthias,
feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:

Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = InputBox("Bitte Tabellenname auswählen!")
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Beep
MsgBox "Kein Blatt gefunden!"
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige