Anzeige
Archiv - Navigation
1132to1136
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
Pivot VBA Tabellenblatt löschen
murat
Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click()
Dim letzteZelle As Long
letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _
After:=[A1], SearchDirection:=xlPrevious).Row
Cells(letzteZelle, 2).Select
Selection.ShowDetail = True
End Sub
ich möchte mit einem toggle button oder ähnliches das erzeugte tabellenblatt wieder löschen können.
gruß
murat

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

Betreff
Benutzer
Anzeige
AW: Pivot VBA Tabellenblatt löschen
24.01.2010 21:10:25
Daniel
Hi
gib dem Commandbutton mal den Code, dann kannst du damit die Datei wieder löschen:
Private Sub CommandButton1_Click()
Dim letzteZelle As Long
With CommandButton1
If .Caption Like "Löschen*" Then
Application.DisplayAlerts = False
Sheets(Mid$(.Caption, 9)).Delete
Application.DisplayAlerts = True
.Caption = "Details anzeigen"
Else
letzteZelle = Worksheets("Tabelle4").Cells.Find(What:="*", _
After:=[A1], SearchDirection:=xlPrevious).Row
Cells(letzteZelle, 2).Select
Selection.ShowDetail = True
.Caption = "Löschen " & ActiveSheet.Name
End If
End With
End Sub
gruß, Daniel
Anzeige
AW: Pivot VBA Tabellenblatt löschen
24.01.2010 21:40:11
murat
DU bis der Hammer, Daniel!
klappt super.
was muss ich einfügen in das Makro, damit dass erzeugte tabellenblatt einen namen erhält. jetzt heißt das erzeugte Tabellenblatt (tabelle1) (caption= ist Tabelle1) der name der tabelle soll zelle a7 sein oder die letzte zelle in spalte A.
Gruß
murat
AW: Pivot VBA Tabellenblatt löschen
24.01.2010 22:50:19
Daniel
Hi
ohne es jetzt zu testen:
Private Sub CommandButton1_Click()
Dim letzteZelle As Long
Dim TabName as string
With CommandButton1
If .Caption Like "Löschen*" Then
Application.DisplayAlerts = False
Sheets(Mid$(.Caption, 9)).Delete
Application.DisplayAlerts = True
.Caption = "Details anzeigen"
Else
letzteZelle = Worksheets("Tabelle4").Cells.Find(What:="*", _
After:=[A1], SearchDirection:=xlPrevious).Row
TabName = Cells(LetzteZeile, 1).Value
Cells(letzteZelle, 2).Select
Selection.ShowDetail = True
Activesheet.Name = TabName
.Caption = "Löschen " & ActiveSheet.Name
End If
End With
End Sub
Gruß, Daniel
Anzeige
AW: Pivot VBA Tabellenblatt löschen
25.01.2010 09:12:05
murat
moin,
PERFECT funktioniert!
Das Makro ist hammer. was muss ich eintrag damit nicht die letzte zeile(zelle) in der spalte ausgeführt wird sondern eine bestimmt. Ich möchte das inder tabelle4 auf die Zelle C7= ausgeführt wird Pivot (doppelklick) wird. Tabelle öffnet sich, tabellename soll sein was in A7 steht. Tabelle soll dann wieder gelöscht werden können mit einem button.
Vielen Dank tolles Forum
murat

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige