 [36]
Wie kann ich im Tabellenblatt mit einer Funktion abfragen, ob das XL-Programm gerade unter
Windows oder auf einem Macintosh-Rechner läuft?
Hierzu gibt es bereits eine interne XL-Funktion:
Formel: = INFO("SysVersion")
Ergebnis (Beispiel): Windows (32-bit) 4.10
Mit der nachfolgenden benutzerdefinierten Funktion können noch mehr System-Informationen erfragt werden:
Function SysInfo()
Dim strText As String
strText = "Programm: " & Application.Name _
& ", " & "Betriebssystem: " & _
Application.OperatingSystem & ", " & _
"Versions Nummer: " & Application.Version _
& ", " & "Build Nummer: " & _
Application.Build
SysInfo = strText
End Function
Kopieren Sie diese Funktion in ein Standardmodul der Personl.xls  .
In einem Tabellenblatt geben Sie dann die folgende Formel ein:
=SysInfo()
Beispielausgabe:
Programm: Microsoft Excel, Betriebssystem: Windows (32-bit) 4.10, Versions Nummer: 9.0, Build Nummer: 2719
|
[37]
Wie kann ich einen negativen Uhrzeitwert eingeben?
Eingabe in beliebige Zelle: -"12:45:30"
Ausgabe in der betreffenden Zelle: =-0,531597222222222
Anzeige in der Bearbeitungsleiste: =-"12:45:0"
Anmerkung:
XL setzt die obige Eingabe, die Anführungszeichen sind dabei wichtig, in die serielle Zahl des betreffenden
negativen Uhrzeitwertes um. Diese serielle
Zahl kann im 1900-Datumswerte-System nicht als Uhrzeitwert formatiert werden. Möchten Sie dennoch eine Formatierung
benutzen, aktivieren Sie im Menü EXTRAS | OPTIONEN |
BERECHNUNG, das Kontrollfeld 1904-Datumswerte.
ACHTUNG: Sollten im Tabellenblatt bereits Datumswerte enthalten sein, so wird deren Anzeige um vier
Jahre versetzt.
Als zweite Möglichkeit erstellen Sie folgende Formel, bei der das Datumswerte-System (1900- oder 1904-Datumswerte)
unberücksichtigt bleiben kann. Diese Formel baut auf der seriellen Zahl auf:
A1: -"12:45:30", --> =-0,531597222222222
Formel: =WENN(A1<0;"- "&TEXT(ABS(A1);"hh:mm:ss");TEXT(A1;"hh:mm:ss"))
Mit diesem negativem Uhrzeitwert können Sie nicht ohne weiteres direkt weiterrechnen. Möchten Sie mit dem eingegebenen
negativen Uhrzeitwert weiterrechnen, beziehen Sie sich eben auf die Zelle mit der seriellen Zahl (hier: A1).
|
[38]
In einem Tabellenblatt habe ich im Bereich A1:A100 verschiedene Zahlen stehen.
Wie kann ich nur die geraden Zahlen addieren?
Folgende Matrix-Formel :
=SUMME((REST(ZEILE(A1:A100);2)<>0)*(A1:A100))
|
[39]
Wie kann ich am zügigsten den Tabellenblattbereich A100:Z1000 markieren?
Klicken Sie in das Namenfeld und tragen Sie den zu markierenden Bereich dort ein (siehe Abbildung).
Schließen Sie in jedem Fall die Eingabe mit der Return-Taste ab.
|
[40]
Ich möchte im Tabellenblatt jede zweite Zeile mit einer grauen
Hintergrundfarbe versehen, so das auch nach dem Hinzufügen oder Löschen von Zeilen die abwechselnde
Schraffur von Weiß und Grau erhalten bleibt.
Hierbei wenden Sie die Bedingte Formatierung an:
Markieren Sie den Bereich für den die Schraffur gelten soll.
Menü FORMAT | BEDINGTE FORMATIERUNG, Formel ist: =REST(ZEILE();2)<>0
Vergeben Sie das Format für die graue Hintergrundfarbe und klicken Sie abschließend auf
die Schaltfläche OK.
|
[41]
Seit einiger Zeit bekomme ich beim hinzufügen eines neuen benutzerdefinierten Zahlenformates die
Meldung:"Es können keine weiteren .. hinzugefügt werden." Ich muß dann jedesmal erst ein älteres Zahlenformat
löschen. Wie kann ich die benutzerdefinierten Zahlenformate löschen?
Leider sind die benutzerdefinierten Zahlenformate nicht direkt zugänglich. Dennoch, Guy Boertje hat einen Weg
gefunden, per VBA-Programmierung die Zahlenformate aufzulisten. Ich habe diesen Code aufgegriffen und dahingehend
verändert, das die benutzerdefinierten Zahlenformate gelöscht werden. Dieser Code wurde von mir unter XL97 und XL2000 getestet
und dürfte den Anforderungen entsprechen. Dennoch möchte ich ausdrücklich darauf hinweisen, das die Anwendung
dieses VBA-Codes auf eigene Gefahr geschieht.
Laden Sie die formatl.zip (4 KB) herunter und entpacken Sie die Datei. Die Zip-Datei enthält die Datei
ZahlenformateLöschen.bas (9 KB).
Starten Sie nun XL, wechseln Sie mit Alt+F11 in die VBA-Umgebung, wählen Sie über Menü DATEI | DATEI IMPORTIEREN,
den Pfad und die ZahlenformateLöschen.bas aus und bestätigen Sie den Dialog Datei importieren mit einem Klick
auf die Schaltfläche Öffnen.
Im Projekt-Explorer (Strg+R) wird Ihnen im aktuellen VBAProject ein neues Modul mit dem Namen ZahlenformateLöschen
angezeigt. Mit einem Doppelklick öffenen Sie dieses Modul. Klicken Sie in den Code der Prozedur DeleteCustomNumberFormats
und starten Sie das Makro mit der Taste F5. Selbstverständlich können Sie dem Makro auch eine Symbolleistenschaltfläche
zuweisen.
|
[42]
Gegeben sei der abgebildete Tabellenausschnitt. Für die drei Personen wird aus den Einzelwerten
die Summe gebildet. Zur größten Summe soll mit einer Formel der Name der dazugehörigen Person ermittelt
und zu einem Satz verbunden werden: "Die größte Summe steht bei ..."
Folgende Formel:
="Die größte Summe steht bei "&INDEX(A1:C4;1;VERGLEICH(MAX(A4:C4);A4:C4;0))
Erläuterung:
Zunächst wird mit der Funktion MAX(A4:C4) der größte Werte (hier: 7) aus dem angegebenen Bereich ermittelt.
Die Verweis-Funktion sucht nach dem größten Wert im Bereich A4:C4 und gibt dessen Position (hier: 2) als Wert zurück.
Damit kann die Matrix-Version der Index-Funktion eingesetzt werden: die Index-Funktion gibt den Wert der Zelle
aus dem Bereich A4:C4, Zeile 1 (Name der Personen), Spalte 2 (größter Summe-Wert) zurück: Peter. Abschließend wird
der gefundene Wert mit dem Text "Die größte Summe steht bei " mit dem Verkettungsoperator "&" verkettet und
ausgegeben.
|
