Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelleblätter bis auf eines löschen, ohne Fehler!

Forumthread: Tabelleblätter bis auf eines löschen, ohne Fehler!

Tabelleblätter bis auf eines löschen, ohne Fehler!
06.04.2006 16:06:20
peteregloff 

Sub Datenblätter_löschen()
Application.DisplayAlerts = False           ' Unterdrückt vermutlich Meldungen
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Daten" Then
Worksheets(i).Delete
i = i - 1
End If
If Worksheets.Count = 1 Then Exit for
Next
Application.DisplayAlerts = False           ' Meldungen wieder anzeigen
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelleblätter bis auf eines löschen, ohne Fehler!
06.04.2006 16:23:46
Hoffi
Hallo Peter,
wie war die Frage doch gleich ?
Grüße
Hoffi
AW: Tabelleblätter bis auf eines löschen, ohne Fehler!
06.04.2006 16:32:57
Cold
hallo peter ich versteh zwei dinge nicht ganz.
du möchtest also alle blätter bis auf "Daten" löschen.
in der schleife setzt du die i gleich eins bis sagen wir mal 5 (worksheets.count)
dann kommt die erste if bedingung wenn dies ungleich "Daten" ist dann lösche
Warum jetzt i=i-1 dies würde bedeuteten i=0 nach dem ersten Durchlauf und die For-schleife endet hier.
und zweitens wieso zweimal Application.DisplayAlerts = False
reicht doch wenn du einmal setzt bleibt solange aktiv wie die Sub läuft.
gruß TC
Anzeige
AW: Tabelleblätter bis auf eines löschen, ohne Fehler!
06.04.2006 21:01:52
Fred
Option Explicit

Sub Datenblätter_löschen()
Dim ws As Worksheet
If Sheets.Count = 1 Then MsgBox "Not möglich to do!": Exit Sub
Application.DisplayAlerts = False
For Each ws In Worksheets
If Sheets.Count = 1 Then Exit Sub
If ws.Name <> "Daten" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub

Anzeige
AW: Tabelleblätter bis auf eines löschen, ohne Feh
07.04.2006 11:24:01
peteregoff
Hallo Fred - das Einfache, scheint doch so gut zu klappen - es funktioniert supper - vielen Dank und schönes WE - Peter

Forumthreads zu verwandten Themen

Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
25 Zeilen auf eine Seite
Markus

Hallo zusammen,
ich habe eine lange Tabelle (ca. 40 Seiten nur mal als Größe) und ich bekomme es trotz Seite einrichten "anpassen" und "Seitenränder" nicht oder nur sehr mühsam hin, hin dass auf jede Seite 25 genau Excel-Zeilen gedruckt werden.
Hat hier jemand ein Makro für? Das ist ab...
02.04.2009 18:57:27
Thread-ID: 1066456
8 Beiträge
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
In einer Schleife auf Tastendruck warten
Bernd

Hallo Excelisten speziell Tino,
die u.a. Antwort von Tino funtioniert, wenn ich sie nachbaue. Wenn ich sie aber in mein Modul einbaue geht es nicht.
Ich verwende eine Auto_Open wie folgt:
Sub Auto_Open()
manueller_Ablauf = "nein"
Application.OnKey "%m", "Man_ablauf_setzen"
29.04.2009 13:58:25
Thread-ID: 1071901
5 Beiträge
Anzeige
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
Anzeige
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Breite einer Userform auf Knopfdruck ändern
Rudolf

Hallo
In einer UserForm hab ich u.a. eine Schaltfläche "Breite"
Nach einem Klick auf diese Schaltfläche soll die Breite der Userform (also die gleiche UserForm)
verbreitert werden.
wenn ich das mittels
Userform.with = ....
versuche so klappt das nicht ?
Wie geh ich...
28.01.2010 08:55:50
Thread-ID: 1133605
4 Beiträge
pdf-Druck laufende Seitennummerierung umgehen
Sandra

Hallo Ihr Lieben.
Derzeit nutze ich, folgendes Makro:
Sub PDF_Print_Sheet() 'Modifiziert Dim wks As Worksheet For Each wks In ActiveWindow.SelectedSheets With wks .Select .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Environ("userprofile") & "\Desktop\" & .Name & ".pdf"...
02.02.2010 14:55:09
Thread-ID: 1135127
12 Beiträge
Daten in eine Tabelle auf einem anderen Laufwerk k
juergenklein

Hallo zusammen,
die folgende Prozedur führt dazu, dass die Daten aus der Tabelle "amtsger" kopiert und in eine Tabelle "Statistik" im selben Ordner von links nach rechts um jeweils eine Zelle versetzt eingefügt werden. Wie funktioniert diese Prozedur aber, wenn sich die Tabelle "Statistik"...
21.04.2010 12:56:38
Thread-ID: 1153107
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige