Heute habe ich mal ein Problem der ganz anderen Art.
Wie kann ich nach einem bereits angelegten Tabellenblatt abfragen, damit es nicht noch ein zweites mal erzeugt wird?
Wäre für allgemeine Syntax sehr dankbar.
Gruß Heike
Heute habe ich mal ein Problem der ganz anderen Art.
Wie kann ich nach einem bereits angelegten Tabellenblatt abfragen, damit es nicht noch ein zweites mal erzeugt wird?
Wäre für allgemeine Syntax sehr dankbar.
Gruß Heike
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
Gruß hajo
So richtig kann ich das nicht reinbasteln in mein Makro.
'Makro zum Erstellen der Tabellenblätter je nach Kennzeichnung
'auf dem Hauptformular
Sub Kopieren()
'Kopie02
index = Sheets.Count
'Zuweisen des Zelleninhaltes A17 von Hauptformular
str = Sheets("Hauptformular").Cells(17, 1).Text
'Abfrage nach Zellinhalt
If str = "x" Then
'Erstellen des neuen Tabellenblattes
Sheets("Funktionsprüfung").Copy After:=Sheets(index)
index = index + 1
Sheets(index).Name = "Maßprüfung"
Sheets(index).Cells(4, 1) = "o"
Sheets(index).Cells(5, 1) = "x"
Sheets("Maßprüfung").Select
Sheets("Maßprüfung").Move After:=Sheets(index)
End If
Von diesen kleinen IF's gibt es ein paar mehr alle im selben Makro.
Ich brauche diese Abfrage am liebsten auch als eine Art IF, damit ich sie mit der vorhandenen eventuell verknüpfen kann.
Gruß Heike