Pivot: nach doppleklick auf Wert - neues Blatt umbenennen

06/12/2011 - 16:50 von Stefan Paesch | Report spam
Moin zusammen,
ich arbeite sehr gern mit Pivot-Tabellen.
Nun möchte ich, wenn ich auf einen Wert doppelt geklickt habe, das neu
erstellte Tabellenblatt umbenennen.

Bsp.:

Zeilenbeschriftung Wert
Konto 1 300
Konto 2 600

Wenn ich auf '600' klicke, möchte ich, dass das neu erstellte Blatt
den Namen 'Konto 2' bekommt.

Ich habe in Excel-VBA keine Kenntnisse (Access kann ich relativ gut).
Das heißt, Code lesen geht ganz gut.

Nur habe ich keinen Plan, wie ich anfangen soll.

Hat jemand so etwas schon einmal programmiert oder eine Idee, wie der
Ansatz sein könnte.

Vielen Dank Stefan.

WinXP pro; E2010
 

Lesen sie die antworten

#1 Thomas Kühn
07/12/2011 - 08:52 | Warnen spam
Moin Stefan,

ich arbeite sehr gern mit Pivot-Tabellen.
Nun möchte ich, wenn ich auf einen Wert doppelt geklickt habe, das neu
erstellte Tabellenblatt umbenennen.

Bsp.:

Zeilenbeschriftung    Wert
Konto 1                    300
Konto 2                    600

Wenn ich auf '600' klicke, möchte ich, dass das neu erstellte Blatt
den Namen 'Konto 2' bekommt.



Du benötigst einen Event der den Klick abfàngt und
damit das Tabelleblatt umbenennt.

Ich habe in  Excel-VBA keine Kenntnisse (Access kann ich relativ gut).
Das heißt, Code lesen geht ganz gut.



Dann lese er dieses:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Column = 2 Then
Sheets(ActiveSheet.Name).Name = Cells(Target.Row,
Target.Column - 1)
Cancel = True
End If
End Sub

Den Code müßtest Du noch in Richtung Validierung richtige Spalte usw.
anpassen.

Gruß Thomas

Ähnliche fragen