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

Schliessen einer Tabelle mit Leerungszwang

Forumthread: Schliessen einer Tabelle mit Leerungszwang

Schliessen einer Tabelle mit Leerungszwang
07.05.2004 09:33:32
Marta
Hallo Leute,
ich möchte mir ein Makro erstellen, das über einen Button eine Tabelle schließt, das den Zwang der Blattleerung und das anschließende speichern des leeren Blattes veranlasst.
Thx Marta
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schliessen einer Tabelle mit Leerungszwang
07.05.2004 09:38:52
Holger
Hallo Marta,
das erledigt z.B. folgendes Makro:

Sub Makro1()
Cells.Delete Shift:=xlUp
ActiveWorkbook.Close True
End Sub

mfg Holger
AW: Schliessen einer Tabelle mit Leerungszwang
Martin
Hallo Marta,
die Aufgabenstellung ist mir nicht so ganz klar, aber mal als Ansatz

Sub weg_damit()
Cells.Delete
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Es werden nur die Daten in der aktiven Tabelle gelöscht. Falls Du mehrere Tabellen in der Datei hast, muß man den Code anpassen.
Gruß
Martin Beck
Anzeige
AW: Schliessen einer Tabelle mit Leerungszwang
07.05.2004 10:21:12
Marta
Hallo Martin
Es soll hier nur das aktive Blatt und ein bestimmter cellbereich mit zwang geleert werde. Wenn dieser Bereich nicht geleert ist dann kann die Tabelle nicht geschlossen werden. Als zusatz Frage wäre noch zu stellen ob man den button zu schließen von Excel(X rechts oben in der Ecke für dieses Blatt deaktivieren kann?)
Thx
Anzeige
AW: Schliessen einer Tabelle mit Leerungszwang
Martin
Hallo Marta,
für "VBA nur mit Rekorder" wird's jetzt aber schon kompliziert.
1. Leeren eines bestimmten Bereichs, z.B. A1:B100
Sub weg_damit()
Range("A1:B100").Clear
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
2. Automatische Zwangsleerung beim Schließen der Datei

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1:B100").Clear
ThisWorkbook.Save
End Sub

Dieser Code gehört nicht in ein normales Modul, sondern muß unter "DieseArbeitsmappe" (darauf im Projektexplorer in der VBA-Entwicklungsumgebung doppelklicken) eingefügt werden.
3. X weg
Falls Du 2. realisierst ist das eigentlich nicht erforderlich. Falls doch, schau Dich mal hier in der Recherche um.
Gruß
Martin Beck
Anzeige
AW: Schliessen einer Tabelle mit Leerungszwang
07.05.2004 10:53:00
Marta
Hallo Martin,
danke für deine schnell und kompetente Antwort. Eine frage doch dazu ich habe mich für den 2. Teil deine Antwort entschieden. Nun macht die Leerung mir aber das Zelleformat kaputt. Wie kann ich es erreichen das das orginalformat erhalten bleibt?
Thx
AW: Schliessen einer Tabelle mit Leerungszwang
Martin
Hallo Marta,
statt Clear Clearcontents
Gruß
Martin Beck
Anzeige
AW: Schliessen einer Tabelle mit Leerungszwang
07.05.2004 11:53:11
Marta
Hallo Martin,
ich muss nochmal was loswerden. Ich Habe nun noch etwas eingefügt, da sagt er mir das er verbundene Zellen nicht leeren kann und ein Listen Feld das 4 Einträge hat auch da macht ein Problem.
Es wäre gut wenn er im Listenfeld bei der Leerung 1 stezt und in die Verbundene Zelle "-" schreibt, da sich dadurch Felder die über SVerweise arbeiten selbständig leeren.
thx
Anzeige
Passe - teilweise noch offen
Martin
Hallo Marta,
tut mir leid, ohne die Tabelle zu kennen muß ich hier passen. Nebenbei: Es wäre besser, gleich in dem ersten Posting die komplette Problembeschreibung zu liefern, ds macht es den Antwortern einfacher.
Gruß
Martin Beck
AW: Passe - teilweise noch offen
07.05.2004 12:11:59
Marta
Hallo Martin
habe mal die Tabelle auf den Server gelegt. die Felder die ich mit eingefügt habe sind auskommentiert. Das Prob ist das die Zelle F12 ein verbundene ist und da den fehler zeigt. Unter demListenfeld ligt die Zeile I7 die 1,2,3 und 4 hat. 1 blendet einige details aus.
Ich hoffe das ich es einigermasse verständlich rübergebracht habe. Wenn nicht melde dich bitte schnell.
https://www.herber.de/bbs/user/6099.xls
Anzeige
Neuer Versuch
Martin
Hallo Marta,
das mit dem Listenfeld habe ich evtl. noch nicht richtig verstanden. Soll nach dem Schließen der Datei in I7 der Wert 1 stehen?
Versuch mal

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A24:C37").ClearContents
Range("F12:G12").ClearContents
Range("I7") = 1
ThisWorkbook.Save
End Sub

Gruß
Martin Beck
Anzeige
AW: Neuer Versuch
Marta
Hallo Marti,
danke es geht super danke danke

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Blätter Zusammenfassen mit Bezug auf Ursprungzelle
Peter

Hallo liebe Exel und VBA Fangemeinde
nachdem ich nun mehrere Tage durch die Tiefen dieses sensationellen Forum gewühlt habe,
und nicht weiter komme, versuche ich es mit meinem ersten Posting.
In einer Excelliste habe ich eine unbestimmte Anzahl Arbeitsblätter und möchte diese auf e...
22.08.2008 23:37:54
Thread-ID: 1004040
10 Beiträge
Beim Start abfragen mit Passwort
Peter

Hallo
brauche Hilfe und Ideen
Ich möchte gern meine Datei beim Öffnen mit einer Passwortabfrage schützen.
Die Datei startet mit Tabellenblatt"Start"
Dann soll eine Userform mit Textfeld oder Inputbox starten und mit einem Passwort wird die Datei freigegeben, sonst bricht Excel...
06.09.2008 23:10:00
Thread-ID: 1007911
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
userform mit multipage anpassen
angeldust

Hallo liebe User
Habe eine UserForm mit Multipage jede einzelne Seite Fragt den Benutzer
nach seinen Angaben Zb die seite 1 name, vorname seite 2 adresse auf der seite 3 kann
man ein 10 stll. code eintragen, so nun sollten diese seiten gespeichert werden ,
1. Frage ich hab ein...
28.10.2008 15:08:06
Thread-ID: 1019972
2 Beiträge
Muss nochmal nerven: Textbox mit Tabs einlesen
TomTom

Hi,
bin leider immer noch nicht weiter gekommen, suche immer noch die Möglichkeit, eine Textdatei (mit Tabstopps Trennzeichen) in eine Excel Datei zu lesen. dabei sollte man mit dem öffnen Dialog die Datei vorher auswählen können.
Hier nochmal meine Datei:
https://www.herber.de/bbs/...
06.11.2008 08:27:00
Thread-ID: 1022143
5 Beiträge
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:02:13
Thread-ID: 1023525
4 Beiträge
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:12:00
Thread-ID: 1023528
2 Beiträge
GROSSES PROBLEM MIT GROSSER EXCEL-Tabelle
Stefan

Hallo,
habe aus mehreren Excel-Tabellen eine grosse Tabelle mit über 18000 Zeilen zusammengestellt. Diese möchte ich nun sortieren lassen (nach der Spalte "Name", "Datum"). Problem: Menüpunkt "Daten sortieren" läßt sich nicht mehr anwählen. Warum?
Vielleicht weil einige Zellen falsch bz...
07.01.2009 16:33:00
Thread-ID: 1037611
4 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
ausfüllen mit festen Adressen ohne absolut setzen!
Ralf

Hallo,
mein Excel 2003 füllt plötzlich Funktionen nach rechts aus und wiederholt dabei die ursprünglichen Zelladressen ohne dass diese absolut gestetzt sind.
Ich habe also z.B. =a1*a2 in einer Zelle, ziehe mit dem Ausfüllkästchen um zwei Spalten nach rechts und als Ergebnis steht überal...
19.01.2009 15:39:24
Thread-ID: 1041522
4 Beiträge
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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