 [15]
Wie kann ich die Tabellenblätter aufsteigend nach ihrem Namen sortieren?
Kopieren Sie das folgende Makro in ein Standardmodul der Personl.xls 
und weisen Sie ihm eine Symbolleistenschaltfläche zu:
Sub BlätterAufsteigendSortieren()
Dim intI As Integer, intJ As Integer
For intI = 1 To Sheets.Count
For intJ = 1 To Sheets.Count - 1
If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
Sheets(intJ).Move after:=Sheets(intJ + 1)
End If
Next
Next
End Sub
|
[16]
Ich möchte große Zahlen ohne die vielen Nullen eingeben. Ich tippe 1 ein und XL soll 1000 in die Zelle schreiben,
ich tippe 45 ein und XL soll 45000 in die Zelle schreiben. Wie geht das?
Aktivieren Sie unter EXTRAS | OPTIONEN | BEARBEITEN
das Kontrollfeld Feste Dezimalstelle setzten und richten Sie das Drehfeld Stellenanzahl auf -3 ein.
Diese Einstellung gilt dann für die gesamte Arbeitsmappe!
|
[17]
Ich möchte Zahlenwerte in einer XL-Tabelle auf das Vielfache von 0,5 oder 0,25 oder 10 usw. runden.
Wie lautet dazu die Formel?
Um auf das beliebige Vielfache einer Zahl zu runden, können Sie mit folgender Formel arbeiten.
"Zahl" kann eine konstante Zahl oder ein Zellbezug sein:
=RUNDEN(Zahl*X;0)/X
In dieser Formel ist X ein Stellvertreter für eine Zahl, die sich je nach zu rundenden Vielfachem ändert.
X kann mit einer Formel ermittelt werden:
Vielfach * x = 1 oder 1/Vielfach = x.
"Vielfach" ist diejenige Zahl, auf deren Vielfache Sie runden wollen.
Beispiele:
-
Runden auf 0,5:
X = 1/0,5 -> X = 2, die Formel lautet dann:
=RUNDEN(Zahl*2;0)/2
-
Runden auf 0,25:
X = 1/0,25 -> X = 4, die Formel lautet dann:
=RUNDEN(Zahl*4;0)/4
-
Runden auf 10:
X = 1/10 -> X = 0,1, die Formel lautet dann:
=RUNDEN(Zahl*0,1;0)/0,1
(aus der Microsoft Knowledgebase, PSS ID Number: D20618)
|
[18]
Wie kann ich in XL die Zahlen, von z. B. 1 bis 100, mit Hilfe des Zufallsgenerators so
ausgeben lassen, dass keine Zahl doppelt vorkommt?
Tragen Sie die folgenden Formeln in die Zelle A1, bzw. B1 ein und kopieren Sie die Formeln bis Zeile 100 herunter.
A1: =ZUFALLSZAHL()
B1: =RANG(A1;$A$1:$A$100)
|
[19]
Im Bereich A1:E5 soll der größte Wert mit einer Hintergrundfarbe markiert werden. Der größte
Wert kann aber mehrmals vorkommen.
Hierfür bietet sich die Bedingte Formatierung an.
- Markieren Sie den Bereich A1:E5, die aktive Zelle ist nach der Markierung Zelle A1 (weiss)
- Menü FORMAT | BEDINGTE FORMATIERUNG, Formel ist: =A1=MAX($A$1:$E$5)
- Format vergeben
- OK
Achten Sie darauf, das die Formel für die aktive Zelle (hier A1) formuliert wird und die
Zelladresse von A1 im ersten Teil der Formel relativ angegeben wird.
|
[20]
Ich möchte das Datum der beweglichen, kirchlichen Feiertage (Ostersonntag, Aschermittwoch,
Ostermontag, Christi Himmelfahrt, Pfingstsonntag, Pfingstmontag, Fronleichnam) mit Hilfe einer Formel
berechnen. Wie lautet diese Formel?
Hierzu hat es im Frühjahr 1999 auf dem Server von Hans W. Herber (http://herber.de) einen
Osterwettbewerb gegeben: "Wer findet die kürzeste Formel zur Berechnung des Ostersonntags?" Gewonnen hat
Norbert Hetterich.
Ist der Ostersonntag ermittelt, so ergeben sich von dort in einem festen Tagesabstand die gesuchten
beweglichen, kirchlichen Feiertage. Gewonnen hat die Formel (die Jahreszahl, z. B. 1999
steht in Zelle A1):
=DM((TAG(MINUTE(A1/38)/2+55)&".4."&A1)/7;)*7-6
Allerdings arbeitet diese Formel nicht immer korrekt und kann nur im 1900-Datumssystem eingesetzt werden.
Benutzen Sie statt dessen folgende, allgemein gültige Formel:
=DATUM(A1;3;28)+REST(24-REST(A1;19)*10,63;29)-REST(KÜRZEN(A1*5/4)+REST(24-REST(A1;19)*10,63;29)+1;7)
Nach der Berechnung des Ostersonntags ergeben sich die beweglichen Feiertage wie folgt:
Aschermittwoch = Ostersonntag - 46
Ostermontag = Ostersonntag + 1
Christi Himmelfahrt = Ostersonntag + 39
Pfingstsonntag = Ostersonntag + 49
Pfingstmontag = Ostersonntag + 50
Fronleichnam = Ostersonntag + 60
Sehen Sie sich hierzu auch den Artikel von Hans W. Herber, in Zeitschrift c't, 1998, Heft 23, Seite 290f,
sowie die Berechnungsgrundlage der Physikalisch-Technischen Bundesanstalt an. Daran läßt sich ermessen, welche Leistung in
der obigen Formel steckt.
|
[21]
Wie kann ich den Dateinamen der aktuellen Datei in eine Zelle einfügen?
Wenn die Arbeitsmappe bereits gespeichert wurde, kann mit der folgenden Formel der
Dateiname inklusive dem kompletten Pfad in einer Zelle eingetragen werden:
=ZELLE("Dateiname";A1)
Beispielausgabe:
C:\Temp\[Test.xls]Tabelle1
Die nachfolgenden Formeln extrahieren jeweils einen Teil der Information aus obiger Formel (Zeilenumbrüche entfernen):
=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;
LÄNGE(ZELLE("Dateiname";A1))-FINDEN("]";ZELLE("Dateiname";A1)))
--> Tabelle1
=TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;
FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-1)
--> Text.xls
=LINKS(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1)))
--> C:\Temp\[Test.xls]
=WECHSELN(WECHSELN(LINKS(ZELLE("Dateiname";A1);FINDEN("]";
ZELLE("Dateiname";A1)));"[";"");"]";"")
--> C:\Temp\Test.xls
|
