Microsoft Office Tutorials and References
In Depth Information
19.13 VBA-Beispiele
Tabellen sortieren
Zellen: Farbensumme
Mit zwei geschachtelten Schleifen sind die Tabellen
schnell aufsteigend sortiert.
Der Name sagt es bereits: Addieren Sie alle Zellen, die
eine bestimmte Farbe haben. Das Aufrufmakro übergibt
den Bereich und die Farbnummer an eine Funktion:
Sub Blaetter_Sortieren()
Dim anzahl, x, y
anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To anzahl
For y = x To anzahl
If Worksheets(y).Name < Worksheets(x).Name Then
Worksheets(y).Move Before:=Worksheets(x)
End If
Next y
Next x
End Sub
Sub FarbenSummieren()
Dim farbnummer, bereich As Range
Set bereich = Sheets("Zellen“).Range("$E$3:$G$9“)
farbnummer = InputBox("Welche Farbe?“, , 3)
If farbnummer = "“ Then Exit Sub
MsgBox FarbSumme(bereich, (farbnummer))
End Sub
Listing 19.59 Das Makro summiert Zellen nach Farben.
Die Funktion sucht die Farbzuweisung und summiert die
Zellinhalte:
Listing 19.57 Das Makro sortiert Tabellen.
Function FarbSumme(bereich As Range, farbnummer As
Integer)
Dim zelle
FarbSumme = 0
For Each zelle In bereich
If zelle.Interior.ColorIndex = farbnummer Then
FarbSumme = FarbSumme + zelle.Value
End If
Next zelle
End Function
Verknüpfte Mappen öffnen
Mit diesem Makro aktivieren Sie alle Mappen, die mit der
aktiven Mappe verknüpft sind. Die Ober- und Untergrenze
der Verknüpfungsliste wird mit LBound und UBound
ausgelotet.
Sub VerknuepfteMappenÖffnen()
Dim slink As Variant, i As Integer
slink = ActiveWorkbook.LinkSources(xlExcelLinks)
If slink = "“ Then
MsgBox "Keine Verknüpfungen!“
Exit Sub
End If
For i = 1 To UBound(slink)
Workbooks.Open slink(i)
Next i
End Sub
Zellen: Formeln einfärben
Ein nützliches Makro für umfangreiche Tabellenmodelle:
Färben Sie alle Formelzellen ein. SpecialCells fist eine
Eigenschaft von Cells , die diese Aktion unterstützt:
Sub FormelzellenFärben()
Dim zelle As Range
For Each zelle In ActiveSheet.Cells.
SpecialCells(xlFormulas)
zelle.Interior.ColorIndex = 3
Next zelle
End Sub
Listing 19.58 Das Makro öffnet alle verknüpften Mappen.
Listing 19.60 Das Makro färbt alle Formelzellen.
 
Search JabSto ::




Custom Search