 [57]
Ich möchte das Anpassen der Symbolleisten verhindern.
Hier eine Komplettlösung. Kopieren Sie die Makros in ein Standardmodul und weisen Sie den Makros AnpassenAusblenden
und AnpassenEinblendenjeweils eine Symbolleistenschaltfläche zu:
Sub AnpassenAusblenden()
Application.OnDoubleClick = "Nichts"
CommandBars("Worksheet Menu Bar").Controls("Extras"). _
Controls("Anpassen...").Enabled = False
CommandBars("Chart Menu Bar").Controls("Extras"). _
Controls("Anpassen...").Enabled = False
CommandBars("Toolbar List").Enabled = False
End Sub
Sub Nichts()
End Sub
Sub AnpassenEinblenden()
Application.OnDoubleClick = "Nichts"
CommandBars("Worksheet Menu Bar").Controls("Extras"). _
Controls("Anpassen...").Enabled = True
CommandBars("Chart Menu Bar").Controls("Extras"). _
Controls("Anpassen...").Enabled = True
CommandBars("Toolbar List").Enabled = True
RestoreDoubleKlick
End Sub
Sub RestoreDoubleKlick()
Application.OnDoubleClick = ""
End Sub
|
[58]
Wie kann ich per VBA abfragen, ob die aktive Zelle einen Kommentar enthält und falls ja, diesen Kommentar löschen?
Kopieren Sie eines der beiden folgenden Beispielmakros in ein Standardmodul der Personl.xls  .
1. Beispielmakro:
Sub HasComment()
If Application.ExecuteExcel4Macro("Get.Cell(46)") = True Then
ActiveCell.Comment.Delete
End If
End Sub
2. Beispielmakro:
Sub HasComment()
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
End If
End Sub
Weitere Infomationen 
|
[59]
XL97 stürzt bei der Menüauswahl EXTRAS | OPTIONEN ab. Woran kann dies liegen?
Das Problem kann auftreten, wenn unter EXTRAS | OPTIONEN
die Pfadangabe zum zusätzliche Startordner mehr als 56 Zeichen enthält, oder
nicht existiert.
Mit Hilfe des Registriereditors sollte der Eintragung im Pfad
HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Options, Schlüssel: DefaultPath
oder
HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel, Schlüssel: DefaultPath
überprüft und angepasst werden.
Möchten Sie nicht selber Hand an die Registrierdatenbank legen, so besorgen Sie sich das SR2 zu Office97.
WARNUNG: Ein (falscher) Eingriff in die Registry-Daten kann schwerwiegende
Folgen haben, die unter Umständen dazu führen, dass das Betriebssystem nicht
mehr gestartet werden kann! (Also unbedingt eine Sicherheitskopie der
Registry-Daten über Regedit, Menü Registrierung, Registrierungsdatei
exportieren erstellen!)
|
[60]
Sie versuchen, aus dem Explorer heraus eine Excel-Datei per Doppelklick zu öffnen. Stattdessen startet Excel
und die Fehlermeldung, dass die betreffende Datei bereits geöffnet sei, erscheint. Die Datei ist aber nicht geöffnet.
Über DATEI | ÖFFNEN in Excel können Sie die Datei normal öffnen. Woran liegt das?
Dieses Verhalten wird durch falsche Parameter in der Registrierdatenbank verursacht.
Überprüfen Sie zunächst den Registrierschlüssel HKEY_CLASSES_ROOT\.xls. Hier sollte der Wert Standard auf "Excel.Sheet.8" verweisen.
Anschliessend überprüfen Sie die beiden folgenden Registrierschlüssel:
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8\Shell\Open\Command
HLEY_CLASSES_ROOT\Excel.Sheet.8\Shell\Open\Command
Der Wert auf der rechten Seite des Registriereditors sollte jeweils mit dem kompletten Pfad auf die Excel.exe zeigen
und dieser den Parameter "/e" mitgeben, z.B. ""C:\Microsoft Office\Office10\EXCEL.EXE" /e".
Wenn der Parameter stattdessen "%1" lautet, tritt das beschriebene Verhalten auf.
WARNUNG: Ein (falscher) Eingriff in die Registry-Daten kann schwerwiegende
Folgen haben, die unter Umständen dazu führen, dass das Betriebssystem nicht
mehr gestartet werden kann! (Also unbedingt eine Sicherheitskopie der
Registry-Daten über Regedit, Menü Registrierung, Registrierungsdatei
exportieren erstellen!)
|
[61]
In der XL-Version 2000 funktioniert die Tastenkombination Strg+Umsch+& nicht. Mit dieser Tastenkombination
kann der markierte Zellbereich im Standardformat formatiert werden. Wie kann ich trotzdem diese Tastenkombination
für mich einrichten?
Kopieren Sie das folgende Ereignis-Makro in das Codemodul DieseArbeitsmappe der Personl.xls .
Private Sub Workbook_Open()
If Val(Application.Version) = 9 Then
Application.OnKey "^+&", "StandardFormat"
End If
End Sub
Anschließend kopieren Sie das Makro StandardFormat in ein allgemeines Modul.
Sub StandardFormat()
Selection.NumberFormat = "General"
End Sub
Anmerkung:
Das Makro Workbook_Open wird automatisch beim Öffnen der Personl.xls ausgeführt. Es überprüft um welche XL-Version es
sich handelt. Ist die XL-Version 2000 (XL9) in Benutzung, wird der Tastenkombination Strg+Umsch+& die Ausführung
des Makros Standardformat zugewiesen. Die in dieser Weise vorgenommene Formatierung kann nicht über den Befehl BEARBEITEN | RÜCKGÄNGIG rückgängig gemacht werden.
|
[62]
Wie werde ich alte, bereits gelöschte Auswahlkriterien in der DropDown-Liste einer Pivot-Tabelle
los?
Dies ist nur mit Hilfe eines Makros möglich. Das nachfolgende Makro demonstriert die Vorgehensweise und sollte
in den meisten Fällen seine Arbeit erfolgreich durchführen:
'säubert Pivot-Tabelle von alten Daten
Dim intZähler As Integer, intAnzSpalten As Integer
Dim objPivot As PivotTable
Dim arrSpalte 'Array für zu bearbeitende Spalten
Dim objZeile As PivotItem
Do
On Error Resume Next
Set objPivot = ActiveCell.PivotTable
If Err Then
MsgBox ("Zellzeiger muss sich in der betreffenden Pivot-Tabelle befinden!")
On Error GoTo 0
Exit Do
End If
On Error GoTo 0
Set arrSpalte = objPivot.RowFields
intZähler = 1
intAnzSpalten = arrSpalte.Count
For intZähler = 1 To intAnzSpalten 'für alle Pivot-Felder
For Each objZeile In objPivot.PivotFields(arrSpalte(intZähler).Value).PivotItems
If objZeile.RecordCount = 0 Then objZeile.Delete 'wenn leerer DS dann löschen
Next
Next
Exit Do
Loop
End Sub
|
[63]
Startparameter von Excel
<Dateiname> Excel mit der angegebenen Datei starten
/automation Excel ohne Add-Ins und ohne Dateien aus den
Startverzeichnissen starten
/i Excel immer im Vollbildmodus starten
/e Excel ohne neue Mappe starten
/r <Dateiname> Excel starten die angegebenen Datei schreibgeschützt öffnen
/s Excel im Abgesicherten Modus Starten,
es werden alle Startverzeichnisse umgangen
/p <Verzeichnis> Excel starten und das aktuelle Verzeichnis wechseln
/m Excel mit neuer Mappe mit Excel4-Makrosheet starten
/regserver startet Excel und schreibt in die Registrierung
die Excelangaben neu
/unregserver startet Excel und entfernt aus der Registrierung
alle Excelspezifischen Einträge.
/o Schreibt fehlende Einträge in die Registrierung
hinzu, korrigiert aber keine falschen.
Beispiel:
WINDOWS START | AUSFÜHREN: c:\excel.exe /automation
|
