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

Button Löschen

Forumthread: Button Löschen

Button Löschen
20.07.2021 11:28:03
kk86
Hallo zusammen,
kurze Frage von meiner Seite:
Ich habe einen Button "Löschen" mit folgendem Befehl:

Sub Loeschen1()
Range("F6:ZZ35").Clear
RowCounter = 0
End Sub
Zu diesem Befehl würde ich noch gerne hinzufügen, dass die Tabellenblätter 1, 2 und 3 auch komplett gelöscht werden.
Könnte mir bitte jemand diese Ergänzung mitteilen?
Danke und VG
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button Löschen
20.07.2021 11:47:38
Stefan
Hallo KK

Application.DisplayAlerts = False   'Löschen ohne Nachfrage
ActiveWorkbook.Worksheets(1).Delete 'Tabellenblatt1 löschen
ActiveWorkbook.Worksheets(2).Delete 'Tabellenblatt2 löschen
ActiveWorkbook.Worksheets(3).Delete 'Tabellenblatt3 löschen
Application.DisplayAlerts = True    'Nachfragen wieder erlauben
In deinen Code einfügen und Button drücken.
Es werden immer die 3 ersten vorhandenen Tabellenblätter gelöscht, bis nichts mehr übrig ist.
Falls du nur Tabellenblätter mit bestimmten Namen löschen willst 

Application.DisplayAlerts = False   'Löschen ohne Nachfrage
ActiveWorkbook.Worksheets("1Nameeinfügen").Delete 'Tabellenblatt1 löschen
ActiveWorkbook.Worksheets("2Nameeinfügen").Delete 'Tabellenblatt2 löschen
ActiveWorkbook.Worksheets("3Nameeinfügen").Delete 'Tabellenblatt3 löschen
Application.DisplayAlerts = True    'Nachfragen wieder erlauben
Gruß
Stefan
Anzeige
AW: Button Löschen
20.07.2021 13:06:15
kk86
Hallo Stefan,
vielen Dank für die schnelle Rückmeldung.
Für Tabellenblatt 1 brauche ich jedoch genau diesen Bereich: Range("F6:ZZ35").Clear RowCounter = 0
Für die Tabellenblätter 2, 3 und 4 soll der jeweilige Inhalt komplett gelöscht werden.
Könntest du dir das bitte nochmal ansehen?
Vielen Dank und Grüße
Anzeige
AW: Button Löschen
20.07.2021 13:36:58
Stefan
Hallo KK,
dann hab ich das falsch verstanden, sorry.
Versuch 2

Sub LoescheTabelleOhneHinweis()
Application.DisplayAlerts = False   'Löschen ohne Nachfrage
ActiveWorkbook.Worksheets(1).Range("F6:ZZ35").Delete 'Bereich in Tabellenblatt1 löschen
ActiveWorkbook.Worksheets(2).Cells.Clear 'Inhalt Tabellenblatt2 löschen
ActiveWorkbook.Worksheets(3).Cells.Clear 'Inhalt Tabellenblatt3 löschen
ActiveWorkbook.Worksheets(4).Cells.Clear 'Inhalt Tabellenblatt4 löschen
Application.DisplayAlerts = True    'Nachfragen wieder erlauben
End Sub
Gruß
Stefan
Anzeige
AW: Button Löschen
20.07.2021 13:42:37
kk86
Hallo Stefan,
gar kein Problem, ich habe mich einfach falsch ausgedrückt.
Danke für die Lösung, diese funktioniert perfekt!
Schönen Tag noch :-)
AW: Button Löschen
20.07.2021 13:44:27
GerdL
Moin

Sub Loeschen1()
Tabelle1.Range("F6:ZZ35").Clear
RowCounter = 0
Tabelle2.Cells.Clear
Tabelle3.Cells.Clear
Tabelle4.Cells.Clear
End Sub
Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Wert eingeben / Button löschen
René

Ich möchte in der Zelle D6 einen x beliebigen Wert (nur Zahlen) eingeben können und anschliessend müsste der Button resp. Schaltfläche 1 gelöscht werden. Diese Schaltfläche 1 muss nicht mehr in der Tabelle vorhanden sein.
Für die Hilfe danke ich jetzt schon im Voraus.
Folgenden Code hab...
21.09.2009 15:09:29
Thread-ID: 1104403
2 Beiträge
In USF aktiven OPTButton löschen
reinhardt

Hallo,
ich habe eine Userform mit Optionbuttons, wo ich etwas anwähle, und später auch noch Text in die Tabelle eintrage.
Die Buttons laden sich über
Worksheets("Inhalt").Select
OptButton_Tabelle1.Caption = Worksheets("Daten").Range("a5")
OptButton_Tabelle2.Caption = Workshe...
09.01.2010 16:28:44
Thread-ID: 1128534
2 Beiträge
Mehrer Button Löschen
Alex

Hallo Excelisten,
brauche mal kurz eure Hilfe. Habe ein Marko zum versenden einer Datei. Im Untersten teil Löscht er mir eine Schaltfläche vor der Versendung raus "Button 9".
Jetzt habe ich aber noch mehrer Schaltfläche die auch gelöscht werden müssten Button 9 bis Button 19. Hoffe ihr...
10.09.2010 15:17:11
Thread-ID: 1176916
4 Beiträge
Button löschen
Klaus

Hallo VBA-ler,
ich möchte einen Button auf einem Blatt per Makro löschen.
das mache ich momentan so:
ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Cmb_1")).Delete
Das funktioniert auch, aber natürlich nur solange der Button CmB_1 auch da ist! Auf ein "on error resume next" möch...
23.01.2013 10:14:36
Thread-ID: 1295572
7 Beiträge
Button löschen
Alexander

Hallo!
Nachdem mein Makro ausgeführt wurde, möchte ich gerne den Button mit dem es erstellt wurde, löschen. Bei meiner früheren Version ging das, da ich eine neue Datei erstellt habe, nun speichere ich die aktuelle Datei unter einem anderen Namen und ändere alle Verlinkungen usw. Somit wird...
30.08.2013 13:52:43
Thread-ID: 1328962
4 Beiträge
Inhalt einer Textbox mitt Button löschen
Steffen

Hallo
In meiner Userform habe ich 6 Textboxen die über die listbox gefüllt werden.
Nun möchte ich, wenn ich denn Inhalt einer Textbox markiere, dann soll der markierte Bereich über einen Button gelöscht werden.
Wie stelle ich das am besten an?
Gruß Steffen
07.10.2018 16:07:11
Thread-ID: 1649907
4 Beiträge
SpinButton löschen
Volker

Wer kann mir helfen?
habe einen SpinButton der bis 3 hochzählt dann in der Nebenzelle 1weiter zählt.
" Private Sub SpinButton1_SpinUp() Range("e9") = Range("e9") + 1 If CInt(Range("e9").Value) = 3 Then _ Range("l9").Value = 0 If CInt(Range("e9").Value) = 3 Then _ Range("e9").Value = 0...
24.02.2020 16:11:11
Thread-ID: 1742321
21 Beiträge
Shape mit Counter per Button löschen
Marko
Hallo Leute,
Als bescheidener VBA Programierer, der sich natürlich immer mal wieder verbessern will und viele Sachen ausprobiert, bin ich gerade auf ein Problem gestoßen, bei dem ihr mit hoffentlich weiterhelfen können. Und zwar füge ich per Mausklick an einer beliebigen Stelle ein Kreis (Shape)...
11.07.2021 15:23:49
Thread-ID: 1838623
5 Beiträge
Wert eingeben / Button löschen
René

Ich möchte in der Zelle D6 einen x beliebigen Wert (nur Zahlen) eingeben können und anschliessend müsste der Button resp. Schaltfläche 1 gelöscht werden. Diese Schaltfläche 1 muss nicht mehr in der Tabelle vorhanden sein.
Für die Hilfe danke ich jetzt schon im Voraus.
Folgenden Code hab...
21.09.2009 15:09:29
Thread-ID: 1104403
2 Beiträge
In USF aktiven OPTButton löschen
reinhardt

Hallo,
ich habe eine Userform mit Optionbuttons, wo ich etwas anwähle, und später auch noch Text in die Tabelle eintrage.
Die Buttons laden sich über
Worksheets("Inhalt").Select
OptButton_Tabelle1.Caption = Worksheets("Daten").Range("a5")
OptButton_Tabelle2.Caption = Workshe...
09.01.2010 16:28:44
Thread-ID: 1128534
2 Beiträge
Anzeige
Mehrer Button Löschen
Alex

Hallo Excelisten,
brauche mal kurz eure Hilfe. Habe ein Marko zum versenden einer Datei. Im Untersten teil Löscht er mir eine Schaltfläche vor der Versendung raus "Button 9".
Jetzt habe ich aber noch mehrer Schaltfläche die auch gelöscht werden müssten Button 9 bis Button 19. Hoffe ihr...
10.09.2010 15:17:11
Thread-ID: 1176916
4 Beiträge
Button löschen
Klaus

Hallo VBA-ler,
ich möchte einen Button auf einem Blatt per Makro löschen.
das mache ich momentan so:
ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Cmb_1")).Delete
Das funktioniert auch, aber natürlich nur solange der Button CmB_1 auch da ist! Auf ein "on error resume next" möch...
23.01.2013 10:14:36
Thread-ID: 1295572
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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