Thema Datum  Von Nutzer Rating
Antwort
Rot Worksheet.add funktioniert nicht
 31.10.2012 13:05:27 Tekkion
NotSolved
31.10.2012 13:54:09 Gast57117
NotSolved
31.10.2012 14:02:42 Tekkion
NotSolved
31.10.2012 14:34:33 Gast77699
NotSolved
31.10.2012 14:41:04 Tekkion
NotSolved

Ansicht des Beitrags:
Von:
Tekkion		 Datum:
31.10.2012 13:05:27		 Views:
1630		 Rating:
     
Antwort:
  Ja
Thema:
Worksheet.add funktioniert nicht

Hallo VBA-Forum,

ich hab das Problem das bei folgenden Code einmal mir der Fehler angezeigt wird:

 

Anwendungs- oder objektdefinierter Fehler

 

wenn ich die Funktion aus einer anderen Prozedur aufrufe.

Aber wenn ich die Funktion per einzel-Schritt bzw direkt ausführe

die entsprechende Codezeile funktioniert.

Der Abbruch erfolgt in der Zeile:  Sheet.Cells(100, 100).Value = False

 

Public Function checkSheet() As Boolean

    Dim sheetAvailable As Boolean
    Dim Sheet As Worksheet

    For Each Sheet In ActiveWorkbook.Sheets
        If Sheet.Name = "RODB" Then
            If Sheet.Cells(100, 100).Value = True Then
                checkSheet = True
            Else
                Sheet.Cells(100, 100).Value = False
                checkSheet = False
            End If
            sheetAvailable = True
            Exit For
        Else
            sheetAvailable = False
        End If
    Next
    
    Debug.Print ActiveWorkbook.Name
    
    If sheetAvailable = False Then
        Set WS = Sheets.Add
        'ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
        ActiveWorkbook.Sheets(Worksheets.Count).Visible = False
        ActiveWorkbook.Sheets(Worksheets.Count).Name = "RODB"
        checkSheet = False
    End If
        
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Worksheet.add funktioniert nicht
 31.10.2012 13:05:27 Tekkion
NotSolved
31.10.2012 13:54:09 Gast57117
NotSolved
31.10.2012 14:02:42 Tekkion
NotSolved
31.10.2012 14:34:33 Gast77699
NotSolved
31.10.2012 14:41:04 Tekkion
NotSolved