Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
if then Anwendung in einem Makro
09.09.2007 13:12:00
AVD
Wer kann mir mitteilen, wie eine IF Then Anwendung in einem Makro formuliere.
Hier die Aufgabe:
In einem bestehenden Makro soll gesucht werden, ob eine Tabelle mit dem Namen "Start" existiert.
Sinngemäß also so:
If Sheets("Start") existiert then Range ("a1") else Range ("a2")
End If
Garantierte Rückmeldung
Danke
Alex

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

Betreff
Datum
Anwender
Anzeige
AW: if then Anwendung in einem Makro
09.09.2007 13:14:00
Hajo_Zi
Halo Alex,
Du könntest es mit sinulieren eines Fehlers machen oder
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 eingeben!")
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



AW: if then Anwendung in einem Makro
09.09.2007 13:27:00
Daniel
Hallo
als eine von vielen Möglichkeiten:

Sub SheetVorhanden()
Dim sh As Worksheet
Set sh = Nothing
On Error Resume Next
Set sh = Sheets("Start")
On Error GoTo 0
If sh Is Nothing Then
MsgBox "Sheet nicht vorhanden"
Else
MsgBox "Sheet vorhanden"
End If
End Sub


Gruß, Daniel

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige