| |
Excel-Makros |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Makro
in Menü Extras einbinden |
Du
kannst unter Excel ein häufig benutztes Makro in das Extras-Menü einbinden.
Rufe dazu EXTRAS - ANPASSEN -
BEFEHLE auf und suche Dir in der
Kategorie-Liste den Eintrag Makros heraus. Im
rechten Teil des Dialogfensters werden nun alle
verfügbaren Makros angezeigt. Ziehe die gewünschten
Makronamen auf das Menü Extras, welches daraufhin
geöffnet wird. Nun kannst Du das Makro an einer
beliebigen Stelle im Menü platzieren.
Wenn Du den Menübefehl mit der rechten Maustaste
anklickst, kannst Du die Bezeichnung ändern, falls
der beim Erstellen des Makros gewählte Name nicht
sonderlich aussagekräftig war. Interessant ist dabei
die Möglichkeit, vor einem Buchstaben das
Und-Zeichen (&) zu setzen. Dadurch wird der folgende
Buchstabe als Shortcut definiert, mit dem man den
Befehl nach dem Öffnen des Menüs per Tastatur
aufrufen kann. Richtest Du als Befehlsbezeichnung
beispielsweise Bere&chnung ein, kannst Du nach dem
Aufrufen des Menüs Extras diesen Befehl durch Druck
von c aufrufen. Da auch das Menü Extras mit dem x
über einen Shortcut-Aktivierer verfügt, kannst Du
das Makro bei Bedarf sehr schnell via Alt+X+C
aufrufen, wenn Du einmal nicht zur Maus greifen
möchtest. |
|
|
|
|
Deutsche Kalenderwoche |
Folgende
benutzerdefinierte Funktion berechnet die
Kalenderwoche:
Function Kwoche(d)
Dim t
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 -
3); 1; 1)
Kwoche = ((d - t - 3 + (WeekDay(t) + 1) Mod 7))
\ 7 + 1
End Function |
|
|
|
|
|
|
|
Dateipfad in Fußzeile einfügen |
Das
nachfolgend aufgeführte Makro fügt bei Ausführung in
einer bereits gespeicherten Datei in dem aktiven
Tabellenblatt den Dateipfad in der Fußzeile ein.
Damit Du das Makro in verschiedenen Dateien bzw.
Arbeitsmappen anwenden kannst, ist es erforderlich,
das Makro in der "Persönlichen Makroarbeitsmappe"
zu speichern.
Vorgehensweise:
Starte Excel und öffnen eine neue Datei. Wähle dann
über das Menü EXTRAS den Befehl MAKRO und dann
AUFZEICHNEN. In dem sich nun öffnenden Fenster musst
Du den Makronamen und im Listenfeld das Feld
"Persönliche Makroarbeitsmappe" auswählen.
Soweit Du das Makro auch noch mit einem
Tastaturkürzel starten möchtest, kannst Du die
gewünschte Taste einfügen. Schließe das Fenster dann
mit OK.
Öffne nun den Visual-Basic-Editor über das Menü
EXTRAS oder wähle die Tastaturkombination STRG +
F11.
Wähle nun MODUL einfügen. In dem sich nun öffnenden
Editorfenster gib bitte den folgenden Code ein:
Sub
Kopffusszeile()
'Variablen definieren
Kopflinks = ""
Kopfmitte = ""
Kopfrechts = "Datum &D"
Fußlinks = ActiveWorkbook.FullName
Fußmitte = ""
Fußrechts = "Seite &P"
'Variablen den Kopf- und Fußzeilen zuweisen
With ActiveSheet.PageSetup
.LeftHeader = Kopflinks
.CenterHeader = Kopfmitte
.RightHeader = Kopfrechts
.LeftFooter = Fußlinks
.CenterFooter = Fußmitte
.RightFooter = Fußrechts
End With
End Sub |
Du
kannst nun den Eintrag speichern und den VB-Editor
schließen. Das oben dargestellte Makro fügt in der
Kopfzeile den angegebenen Namen sowie das aktuelle
Datum ein.
In der Fußzeile wird der Dateipfad sowie die
Seitenangabe aufgeführt. |
|
|
|
| |
|
| |
|
|
Auswählen der ersten leeren Zelle einer
Tabellenspalte |
Dieses Makro wählt die erste leere Zelle einer
Tabellenspalte zur Eingabe aus.
Dieses Makro kann z. B. aus einer "Auto_Open()"
Prozedur aufgerufen, einem "CommandButton"
(Schaltfläche) zugewiesen, der Code in das
Klassenmodul einer Arbeitsmappe (z. B. als "Private
Sub Workbook_Open()" Prozedur) oder eines
Tabellenblattes (z. B. als "Private Sub
Worksheet_Activate()" Prozedur) eingefügt werden.
Public Sub ErsteLeereZelleInSpalteAuswaehlen()
Dim Spalte As Integer 'Dim Spalte%
Spalte = 1 'Spaltennummer: 1 = Spalte A, 2 =
Spalte B ...
If IsEmpty(Cells(Cells.Rows.Count,
Spalte).End(xlUp)) Then _
GoTo Fehler
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Exit Sub
Fehler:
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
End Sub |
|
|
|
|
|
|
|
Starten
einer externen Anwendung (Programm) aus Excel |
Dieses Makro startet eine externe Anwendung (im
Beispiel "Money 1.0") aus Excel. Der Verzeichnispfad
wird im Falle dieses Beispiels aus der Zelle "A1"
des Tabellenblattes "MeineTabelle" gelesen (z. B.
"C:\Programme\Money1.0\").
Dieses Makro kann z. B. einem "CommandButton"
(Schaltfläche) oder einem "CommandBarButton"
(Schaltfläche) einer "CommandBar" (Symbolleiste)
zugewiesen werden.
Public Sub AnwendungStarten01()
Dim APfad As String 'Dim APfad$
On Error GoTo Fehler
APfad = Sheets("MeineTabelle").[A1]
Starten = Shell(APfad & "MONEY10.EXE", 1)
Exit Sub
Fehler:
MsgBox Error & " !" & vbCrLf & vbCrLf & _
"Money 1.0 kann nicht gestartet werden.", _
vbExclamation, "Fehlermeldung"
End Sub |
|
|
|
|
|
|