Office: vba code

hallo!

habe schwierigkeiten mit einem vba-code. ich möchte alle tabellenblätter löschen bis auf die ersten zwei. diese haben einen festen namen, nämlich "matrix" und "vorlage".

hab das hiermit versucht, leider bringt der mir ne fehlermeldung...

Sub Loeschen()

Dim objBlatt As Worksheet
Application.DisplayAlerts = False
For Each objBlatt In Sheets
If objBlatt.Name <> "Matrix" Or _
"Vorlage" Then objBlatt.Delete
Next
Application.DisplayAlerts = True
End Sub


wüsste jmd rat?

vielen dank!

 

Haste es mal mit'm AND versucht?

Gruß, Michael

 

Hallo Tequila,

korrekt müsste das Marko lauten:

Code:

Sub Loeschen()
  Dim objBlatt As Worksheet
  Application.DisplayAlerts = False
  For Each objBlatt In Sheets
    If objBlatt.Name <> "Matrix" And objBlatt.Name <> "Vorlage" Then objBlatt.Delete
  Next
  Application.DisplayAlerts = True
End Sub

Der logische Ausdruck zwischen 'If' und 'Then' muss 2x objBlatt.Name <> "xxxx" enthalten, wobei das Ganze 'And'-verknüpft sein muss.