Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alles in einer Arbeitsmappe bis auf Tab1 löschen

alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 08:42:14
Sabine
Hallo!
wie kann ich per makro alle vorhandenen Blätter bis auf Tabelle 1 löschen?
lg

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 08:50:16
Hajo_Zi
Hallo Sabine,

Option Explicit
Sub Sabine()
Dim LoI As Long
Application.DisplayAlerts = False
For LoI = Worksheets.Count To 1 Step -1
If Worksheets(LoI).Name  "Tabelle1" Then Worksheets(LoI).Delete
Next LoI
Application.DisplayAlerts = True
End Sub



AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
Ingo 

Sub alle_loeschen()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Tabelle1" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub


mfG
Ingo Christiansen

Anzeige
AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:04:00
Sabine
hallo! im prinzip funktionierts... nur das blatt graph2 wehrt sich und bleibt...

AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:08:00
Sabine
komisch... in einer anderen arbeitsmappe wird alles ganz brav gelöscht...

AW: alles in einer Arbeitsmappe bis auf Tab1 löschen
30.07.2007 09:14:00
Hajo_Zi
Hallo Sabine,
ich für meinen Teil lehne es ab über das Internet auf fremde Rechner zu schaen. Aus diesem Grunde kann ich zu Denem Problem nichts genaues schreiben nur vermuten. Ist die Tabelle vielleicht geschützt?
Gruß Hajo

wichtiger Nachtrag zu bisherigen Lösungen!
30.07.2007 09:11:00
Matthias
Hallo
Deine Frage war alle vorhandenen Blätter löschen
Wichtig!
Um auch wirklich alle Blätter zu löschen (auch Diagramme) musst Du statt Worksheets -> Sheets schreiben)
Option Explicit

Sub Loeschen() 'Matthias L
Dim X As Long
Application.DisplayAlerts = False
For X = Sheets.Count To 1 Step -1
If Sheets(X).Name  "Tabelle1" Then Sheets(X).Delete
Next
Application.DisplayAlerts = True
End Sub


Userbild

Anzeige
AW: wichtiger Nachtrag zu bisherigen Lösungen!
30.07.2007 09:20:59
Sabine
danke funktioniert!

144 Forumthreads zu ähnlichen Themen

SUMMEWENN oder ZÄHLENNWENN
Heinz

Hallo Leute
Ich bräuchte bitte eine Formel die Sinngemäß so geht.
Zählenwenn( O8:O38) R4
Könnte mir dazu bitte jemand helfen.
Danke & Gruß
Heinz
16.09.2008 18:38:02
Thread-ID: 1010175
12 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Summe von n bis n+t in VBA
n

Hallo zusammen
Leider habe ich sehr wenig Ahnung von VBA und probiere gerade eine Formel hinzubekommen. Sehr wahrscheinlich ist es für andere einfach, daher bitte ich um Rat.
Ich habe eine Spalte mit Zahlen (B2:B16).
Abgesehen von dieser Spalte habe ich zwei weitere Variablen: t und...
22.01.2009 17:06:49
Thread-ID: 1042696
4 Beiträge
Anzeige
SUMME KGRÖSSTEN
Martin

hallo experten,
mit forgender formel bekomme ich die summe der 6 grössten zahlen:
=WENN(ISTFEHLER(KGRÖSSTE(D5:D19;1));0;SUMMENPRODUKT(KGRÖSSTE(D5:D19; ZEILE(INDIREKT("1:"&6+((ANZAHL(D5:D19)<6)*(ANZAHL(D5:D19)-6)))))))
was auch prima klappt.
ich möchte aber nun das so ums...
21.04.2009 15:01:27
Thread-ID: 1070094
8 Beiträge
Arbeitsmappe drucken bis auf Tabelle1 ohne Button
Jonathan

Hallo liebe Experten,
ich habe folgendes Problem:
In einer Arbeitsmappe liegen 15 Tabellen. Nun möchte ich, dass wenn der Druck-Dialog aufgerufen wird (per Button oder über Datei - Drucken...) und die gesamte Arbeitsmappe ausgewählt wird, Tabelle 1 nicht mitgedruckt wird.
Das ganze...
24.04.2009 16:27:58
Thread-ID: 1071008
7 Beiträge
=SUMME(C1:C18)ZÄHLENWENNc19(>0;-I19)zählenWENNc19(
ottgunter

Hallo
Mit dieser Formel will es nicht klappen.
Kann mir jemand eine bessere Lösung sagen
=SUMME(C1:C18)ZÄHLENWENNc19(>0;-I19)zählenWENNc19( Gruß Gunter
29.05.2009 20:21:45
Thread-ID: 1078296
2 Beiträge
SUMMENFUNKTION WERTE VON 01.01 BIS HEUTE
Gerhard

Nochmal ich...
wieder die gleiche Tabelle
Zeile 4 Spalte C bis N (Jan- Dez.)
Zeile 5 in jeder Spalte ein Wert
Jetzt brauche ich eine Formel die mir von C bis zum jetztigen Monat (Juni) eine Summe bildet und im nächsten Monat bis Juli die Summe bildent usw. (Mit HEUTE()?)
No...
20.06.2009 00:26:40
Thread-ID: 1083045
3 Beiträge
Spalte A durchsucht klein 100 dann spalte b summe
Piola

Hallo
bräuchte eure Hilfe.
Und zwar brauche eine Formel die, die Spalte A durchsucht nach klein 100 dann soll die Einträge von Spalte B summieren
-----A-----------B--------C
1-Gewicht---Erträge
2---43---------234-----Summe Erträge
3---123--------...
21.07.2009 20:35:25
Thread-ID: 1090356
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
6
7
3
12
7
6
1
2
3
11
3
4
4
3
8
10
5
2
2
4
3
15
11
5