If-Schleife erstellen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: If-Schleife erstellen
von: Matthias
Geschrieben am: 15.04.2005 10:17:13
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" => das ist immer konstant
Tabname2 = ActiveSheet.name => 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)


Bild

Betrifft: Nachtrag
von: Matthias
Geschrieben am: 15.04.2005 10:50:12
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
Bild

Betrifft: AW: If-Schleife erstellen
von: Hajo_Zi
Geschrieben am: 15.04.2005 10:51:48
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.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "If-Schleife erstellen"