Fortschrittsbalken in Excel
Fortschrittsbalken, wie man sie z.B. in einer Projektmanagementsoftware findet, lassen sich auch sehr einfach in Excel erzeugen.
Fortschrittsbalken
Im Screenshot ist der Fortshrittsbalken dargestellt, der den aktuellen Status der jeweiligen Aufgabe anzeigt. Mit Hilfe einer Excel-Formel lässt sich dies sehr einfach erstellen. In der Zelle E4 steht dies:
=WIEDERHOLEN("|";GANZZAHL((D4/$D$2)*100))
Im Grunde ist die Formel nichts weiter als eine Prozentberechnung, die grafisch aufbereitet wird.
Navigation via ListBox in einer Excel Arbeitsmappe
Mit Hilfe eines Listenfelds (ListBox) kann man sehr einfach eine Navigation innerhalb einer Excel-Arbeitsmappe erstellen.
Die Navigation soll folgende Funktionen beinhalten
- Bei jedem Öffnen der Arbeitsmappe sol sich die Navigation dynamisch füllen, je nach Anzahl und Benennung der einzelnen Tabs innerhalb der Arbeitsmappe
Tabellen in einer Arbeitsmappe aufsteigend nummerieren
Innerhalb einer Excel Arbeitsmappen kann man die einzelnen Tabellen fortlaufend nummerieren lassen.
Das Makro dafür lautet:
Sub Nummerierung()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = "CW" & i '+ 1
Next
End Sub
Innerhalb des Codes ist CW durch den von euch gewünschten Namen zu ersetzen.
Mit Drefeldern die Tabellenblätter durchblättern
Mit Hilfe von Drefeldern kann man ganz enfach die Tabellenblätter einer Excel Arbeitsmappe drchschalten.
Drehfelder in Excel
Der Code dazu ist kinderleicht:
Private Sub SpinButton1_SpinDown()
ActiveSheet.Previous.Select
End Sub
Private Sub SpinButton1_SpinUp()
ActiveSheet.Next.Select
End Sub
Datum aus Kalenderwoche ermitteln
Manchmal ist es ganz hilfreich, wenn man ausgehend von einer Kalenderwoche das Datum für einen definierten Tag in dieser ermitteln kann. Eine kleine Excel Formel kann das:
=DATUM(g1;1;1)+(g2-WENN(WOCHENTAG(DATUM(g1;1;1);2)>4;0;1))*7+g3-1+1-WOCHENTAG(DATUM(g1;1;1)+(g2-WENN(WOCHENTAG(DATUM(g1;1;1);2)>4;0;1))*7;2)
Hier die Erklärung zur Formel:
Datum aus Kalenderwoche ermitteln
Bereiche innerhalb einer Tabelle mit einem Faktor multiplizieren
In diesem Beispiel möchten wir Werte in definierten Bereichen mehrerer Tabellen einer Arbeitsmappe und mit einem Faktor multiplizieren.
Anforderungen:
- Die Faktor steht in jeder Tabelle in der gleichen Zelle. In unserem Beispiel ist das "C4"
- Die Anzahl der Tabellen kann variieren.
- Der Werte in dem Bereich, den wir mit dem Faktor multiplizieren möchten, ist in jeder Tabelle gleich.
Die Tabelle sieht in unserem Beispiel folgendermaßen aus:
Excel - Werte Tabellen übergreifend multiplizieren
Excel – Umlaute ä, ö, ü umwandeln in ae, oe, ue
Vielleicht hatte der ein oder andere von euch schon einmal das Problem. In Excel Zeilen steht ein Menge Text, in dem jede Menge deutschen Umlaute enthalten sind. Das Ganze ist aber unbrauchbar, man möchte die ä, ö, ü, ß umgewandelt werden in ae, oe, ue und ss.
Das Ganze nun manuell abzuändern nimmt jede Menge Zeit in Anspruch und ist auch nict notwendig, da Excel eine tolle Funktion an Bord hat, die die Umwandlung für uns vornimmt.
Leere Zeilen aus Excel Tabellen löschen
Es kommt ja öfters vor, dass in einer Excel Tabelle leere Zeilen enthalten sind, die man nicht gebrauchen kann. Durch leere Zeile lässt sich z.B. kein anständiger Filter setzen, um den Inhalt zu sortieren.
Bevor man nun umständlich mit VBA versucht die leeren Zeilen zu löschen, kann man das auch ganz einfach mit den Excel Bordwerkzeugen machen.
Bereich mit Makro glätten
Man kann die Funktion =Glätten() auch über ein Makro ausführen lassen.
Das Makro dazu:
Sub GlaettenTabelle1()
Dim rC As Range
Sheets("Tabelle1").Select
Application.ScreenUpdating = False
For Each rC In ActiveSheet.Range("F12:N1000")
If Not (rC.HasFormula) Then rC = Trim(rC)
Next
End Sub
Es wird der Bereich F12:N1000 in der Tabelle1 geglättet.
Ermittlung der letzten befüllten Zeile in einem Tabellenblatt
Mit enem Makro lässt sich in Excel sehr einfach und schnell die letzte beschriebene Zeile in einem Tabellenblatt ermitteln.
Über eine MsgBox wird die Zeilennummer dem User ausgegeben.
Sub Letzte_beschriebene_Zeile()
'
' Das Makro ermittelt die letzte beschriebene Zeile
'
Dim letzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox letzte
End Sub
Flattr this!
Kategorien
Kalender
Popular posts
- VNC auf dem Raspberry Pi
- Raspbmc auf dem Raspberry Pi
- Raspberry Pi – Firmwareupdate
- Abkürzungsverzeichnis mit nomencl
- Verweise innerhalb des LaTeX-Dokuments
Tag Cloud
(K)Ubuntu Akonadi Amarok Ampache Android App Chat Chromium Customize Dropbox E-Mail Erweiterung Excel Extension Firefox Google Google Apps Homepagekonzept Kalender Kile LaTeX LaTeX-Paket Makros Multimedia Nagios Netzwerk Raspberry Pi RSS Server Sicherheit Software Spiele Streaming Tabellen Textformatierung umwandeln Upgrade VBA Verschlüsselung Virtualbox Vorlage Webbrowser Windows Wordpress XBMC
WP Cumulus Flash tag cloud by Roy Tanck requires Flash Player 9 or better.
Aktuellste Beiträge
- Tiny Tiny RSS und Zwei-Faktor-Authentifizierung
- Tiny Tiny RSS – Update daemon is not updating feeds
- Tiny Tiny RSS – Apps für Android und iOS
- Tiny Tiny RSS – einen eigenen RSS-Server installieren und konfigurieren
- Fortschrittsbalken in Excel