Office: Tabellenblatt löschen

Hallo,

mit welchem Befehl kann ich ein Tabellenblatt aus einer Excel-Tabelle löschen.
Ich habe es mit folgendem Code versucht:

Code:

Danke

:)

 

Active.Workbook.Sheets("Name").Delete

sollte funzen

 

Hi Martin,

versuchs mit

Code:

 

Hallo,

danke für euere Antworten. Leider funktionieren beide Tipps nicht.
Ich öffne Excel aus Access heraus, erstelle ein Tabellenblatt. Wenn ich mein Formular schließe, dann soll dieses Blatt eben wieder gelöscht werden.
Aber jetzt kommt wenigsten keine Fehlermeldung mehr :-)

Aber an was kann es liegen, dass es immer noch nicht funktioniert?

Danke Martin

 

Hallo,

jetzt funktioniert es. Beide Lösungen. Kann ich diese Warnmeldung unterbinden?

VG Martin

 

Hi Martin,

ju, kannst Du. Füge vor dem Löschbefehl folgende Zeile ein:

Application.DisplayAlerts = False

danach solltest Du die Zeile

Application.DisplayAlerts = True

einfügen, damit für andere Fehler wieder Meldung ausgegeben wird.

Gruß

Bobby

 

\@Schmali: Many thanks, genau so sollte es laufen.

VG Martin

 

Moin, Karin,

was soll das Anwählen der Tabelle vor dem Löschen? Flüssig - ganz flüssig - überflüssig...

 

Hi jinx,

Ok, OK, ich streue Asche auf mein Haupt... *wink.gif*

 

hi leutz,
hab ne frage
hier ist ein quelltext von mir... hier muss noch eine delet schleife für tabelle 4 eingefügt werden, jedoch funktioniert es bei mir nicht... die schleife soll für eine erneute abfrage das copy löschen

hier der text:

Private Sub Commandbutton1_Click()
Dim i As Integer
Dim rngsh1 As Variant
Dim rngsh3 As Variant
Dim x As Integer

Dim min As String
Dim max As String

'rngsh1 = Sheets(2).UsedRange.Rows.Count
'rngsh2 = Sheets(3).UsedRange.Rows.Count

min = Sheets(2).Cells(2, 1)
max = Sheets(2).Cells(2, 2)

x = 1

For i = 5 To 5000


If (Sheets(3).Cells(i, 1) = min) Then
Sheets(3).Rows(i).Copy Sheets(4).Rows(x)

'rngsh1 = rngsh3 + 1

x = x + 1

Else
End If

Next i

Sheets(4).Select



End Sub