Function instab() As Byte
Meldung Bibliothek oder Projekt nicht gefunden.
Danke für die mühe.
David
Danke für die mühe.
David
Ist eine gute Frage!?
Bei mir geht er einwandfrei!
Sorry!
Gruß
Gernot
Dim w As Variant
'Abfrage mit UCase, weil beim Vergleich der Namen die Groß-/Klein-
'schreibung offenbar eine Rolle spielt, bei der Namensvergabe jedoch
'nicht
instab = 0
Workbooks(Eingabe.Datei.Value).Activate
For Each w In Worksheets
If UCase(w.Name) = UCase(Eingabe.Ausgabe.Value) Then
instab = 1
Exit Function
End If
Next w
Sheets.Add
ActiveSheet.Name = Eingabe.Ausgabe.Value
instab = 2
End Function
Komisch ist das es auf einem PC läuft auf einen anderen nicht.
Optionen und Bibliotheken sind aber gleich laut VBA und Excel.
Hab alle mal nachgeschautund verglichen. :-(