Was F4 tut im 'Edit' eines Formels: wechselt =A1, zu =$A1, zu =A$1 zu =$A$1. Aber nur eine einzelne Verweisung.
Meiner Vorschlag beinhaltet das alle Verweisungen gleichzeitig gewechselt werden.
Hi,
(20.12.2015, 12:59)snb schrieb: [ -> ]Meiner Vorschlag beinhaltet das alle Verweisungen gleichzeitig gewechselt werden.
aah, ok, das ist interessant.
Wenn also in einer Formel mehrere Verweise auf andere Zellen enthalten sind, wird mit jedem Makroaufruf für alle Verweise die relative/absolute Formatierung weitergewechselt.
Stimmt,
Z. B in A1
= F12 & G23 & B$6 & $C2
wird durch das Makro geändert zu:
= $F$12 & $G$23 & $B$6 & $C$2
Hallo!
Da sind ja ein paar interessante Sachen dabei:
- Spaltenbreite in cm
- Alles schließen
- Alle Bezüge absolutieren
snbs Makro habe ich auf aktuelle Markierung umgestellt:
Sub M_snb()
Dim it As Object
For Each it In Selection.Precedents
With Selection
.Replace it.Address(0, 0), it.Address
.Replace it.Address(0, 1), it.Address
.Replace it.Address(1, 0), it.Address
End With
Next
End Sub
Erstmal Danke für die Inputs!
Ich ärgere mich häufig über die Anzeige der Seitenumbrüche, die ja nur sehr versteckt ausgeschaltet werden können.
Folgendes switcht die Anzeige:
Sub UmbruchAnAus()
ActiveSheet.DisplayPageBreaks = Not ActiveSheet.DisplayPageBreaks
End Sub
Gruß Ralf
Hi Ralf,
(18.12.2015, 13:51)RPP63 schrieb: [ -> ]Ich bin gerade dabei, ein Add-In zu erstellen, welches die Bedienung von Excel erleichtern soll.
Mir geht es darum, häufig benötigte Abläufe zu integrieren, die mit "Bordmitteln" nur umständlich zu realisieren sind.
("sprechende" Shortcuts inclusive)
[...]
Vorschläge sind willkommen!
Aus dem
Herber-Forum von MikeS:
Ein und Ausblenden von Arbeitsblättern
Sub EinblendenVersteckteBlätter()
Dim Blatt As Worksheet
For Each Blatt In Sheets
Blatt.Visible = True
Next Blatt
End Sub
Sub AusblendenAußerAktivesBlatt()
Dim Blatt As Object
For Each Blatt In Sheets
If Blatt.Name <> ActiveSheet.Name Then
Blatt.Visible = False
End If
Next Blatt
End Sub
Aktualisieren von Pivots
Wenn die PT in einem separaten Tabellenblatt erstellt wurde, kann man hinter das Modul des Tabellenblattes auch ein Worksheet_Activate-Makro hinterlegen:
Code:
Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub
Wenn die PT im gleichen Arbeitsblatt liegt, dann könnte man einfach einen CommandButton aus den ActiveX-Steuerelementen im Menü Entwicklertools aufziehen und den folgenden Code hinterlegen:
Code:
Private Sub CommandButton1_Click()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub
Wenn mehrere PTs in einer Mappe liegen und auf einen Schlag alle PTs aktualisiert werden sollen, dann könnte man folgende Prozedur nutzen:
Für einen Durchlauf durch alle PTs einer Mappe :
Code:
Sub RefreshPT()
Dim wS As Worksheet
Dim pt As PivotTable
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.RefreshTable
Next pt
Next wS
End Sub
Aktualisierung aller PTs des Tabellenblattes bei Änderungen im Bereich A2 bis K12:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range
Dim pt As PivotTable
Set Bereich1 = Range("A2:K12")
If Not Intersect(Target, Bereich1) Is Nothing Then
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End If
End Sub
@Rabe
Wäre es nicht einfacher ?
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.PivotTables.Count > 0 Then ActiveWorkbook.RefreshAll
End Sub
und
Code:
Sub M_Ausblenden()
activesheet.visible=true
For Each sh In Sheets
sh.Visible = sh.name=activesheet.name
Next
End Sub