Befehl / Beispiele |
Beschreibung |
Workbooks(<Name>).Activate 66666z7gtrf |
Workbooks(<Nr>).Activate ThisWorkbook.Activate ActiveWorbook.Activate
Mappe ansprechen |
Beispiel: |
Workbooks(1).Activate
Worbooks.Add |
Mappe erstellen |
Beispiel: |
Workbooks.Add
Workbooks.Count |
Anzahl geöffneter Mappen bestimmen. |
Beispiel: |
MsgBox Workbooks.Count ' --> Anzahl der geöffneten Mappen
Workbooks.Open <Filename>, ,
<Schreibschutz>, , <Passwort> |
Mappe offnen. |
Beispiel: |
Datei= "D:\Daten\Excel\Aufgaben.xls" Workbooks.Open Datei ' --> Mappe normal öffnen Workbooks.Open Datei, , True ' --> Mappe schreibgeschützt öffnen Workbooks.Open Datei, , , , "1234" ' --> Mappe mit Passwort "1234" öffnen
Workbooks(<Nr oder Name>).Save |
Mappe speichern. |
Beispiel: |
Workbooks("Aufgaben.xls").Save
Workbooks(<Nr>).SaveAs <Filename>,
, <Passwort>, <Schreibpasswort> |
Mappe speichern als |
Beispiel: |
Datei = "D:\Daten\Excel\Aufgabe2.xls" Workbooks("Aufgaben.xls").SaveAs Datei ' --> bestehende Datei unter neuem Namen abspeichern Workbooks("Aufgaben.xls").SaveAs Datei, , "123", "123" --> mit Passwörter
Workbooks(<Nr>).Close [<Änderungen
speichern>] |
Mappe schließen |
Beispiel: |
Workbooks("Aufgaben.xls").Close ' --> Mappe schließen Workbooks("Aufgaben.xls").Close False ' --> Mappe schließen, Änderungen werden ' nicht gespeichert
ActiveWorkbook.BuiltinDocumentProperties(<Index>/<Name>) |
Excel-Eigenschaften listen. |
Beispiele:
|
Sub MappenEigenschaftenLesen() Dim I As Integer Dim Text As String On Error Resume Next For I = 0 To 100 Text = Text & I & vbTab & _ ActiveWorkbook.BuiltinDocumentProperties(I).Name & vbTab & vbTab & _ ActiveWorkbook.BuiltinDocumentProperties(I).Value & _ vbCr Next I MsgBox Text End Sub Sub AutorBestimmen() MsgBox "Der Autor der aktiven Mappe ist: " & _ ActiveWorkbook.BuiltinDocumentProperties("Author").Value End Sub
Application.ActiveWorkbook.ReadOnly |
Schreibschutz einer geöffneten Mappe prüfen |
Beispiel: |
Sub SchreibschutzPrüfen() MsgBox Application.ActiveWorkbook.ReadOnly ' TRUE = Mappe ist schreibgeschützt geöffnet ' FALSE = Mappe ist nicht schreibgeschützt geöffnet End Sub
Tabelle1.Select |
Sheets(<Nr>).Select Sheets(<Name>).Select
Tabellenblatt auswählen |
Beispiel: |
Tabelle1.Select ' Objekt 'Tabelle1' wird angewählt Sheets(1).Select ' 1. Tabellenblatt-Registerkarte wird angewählt. Sheets("Tabelle1").Select ' Tabellenblatt mit dem Namen 'Berechnungen' wird angewählt.
(Work)Sheets.Count |
Anzahl Tabellenblätter einer Mappe bestimmen |
Beispiel: |
MsgBox Worksheets.Count ' --> Anzahl der Tabellenblätter MsgBox Sheets.Count ' --> Anzahl aller Blätter ( Tabellen, Diagramme ... )
Sheets(<AlterName>).Name = <Neuer Name> |
Tabellenblatt umbenennen. |
Beispiel: |
Tabelle1.Name = "Berechnungen" Sheets("Berechnungen").Name = "Neue Berechnungen"
Sheets.Add <Vor>, <Nach>, <Anzahl> |
<Vor> = Vor welchem Tabellenblatt eingefügt wird ( Zahl ) <Nach> = Vor welchem Tabellenblatt eingefügt wird ( Zahl ) <Anzahl> = Anzahl der Tabellenblätter, welche eingefügt werden.
Tabellenblatt links neben dem aktuellen Tabellenblatt einfügen. |
Beispiel: |
Sheets.Add ' Tabellenblatt links neben dem aktuellen Tabellenblatt einfügen. Sheets.Add After:=Sheets(Sheets.Count) ' Tabellenblatt am Ende einfügen. Sheets.Add , Sheets(Sheets.Count) ' Tabellenblatt am Ende einfügen.
Sheets(<Nr>).Move <Vor>, <Nach> |
Tabellenblatt umsortieren |
Beispiel: |
Sheets(3).Move Sheets(1) ' Tabellenblatt 3 wird vor Tabellenblatt 1 verschoben. Sheets(3).Move , Sheets(1) ' Tabellenblatt 3 wird nach Tabellenblatt 1 verschoben.
Sheets(<Nr>).Delete |
Tabellenblatt löschen |
Beispiel: |
Sheets(1).Delete ' Tabellenblatt 1 wird gelöscht.
Sheets(<Nr>).Visible |
Tabellenblatt sichtbar / unsichtbar |
Beispiel: |
Sheets(1).Visible = xlSheetVisible ' Tabellenblatt 1 sichtbar schalten Sheets(1).Visible = xlSheetHidden ' Tabellenblatt 1 unsichtbar schalten Sheets(1).Visible = xlSheetVeryHidden ' Tabellenblatt 1 ganz unsichtbar schalten ' ( kann über Excel-Einstellungen nicht sichtbar gestaltet werden. )
<Variable>= Cells(<Zeile>,<Spalte>) |
<Variable>= Range(<Zell-Adresse>) oder [<Zell-Adresse>]
Lesen aus einer Zelle |
Beispiel: |
A = Cells(12, 3) ' --> Inhalt der Zelle C12 in die Variable 'A' einlesen. A = Range("C12") ' --> Inhalt der Zelle C12 in die Variable 'A' einlesen. A = [C12] ' --> Inhalt der Zelle C12 in die Variable 'A' einlesen.
Cells(<Zeile>,<Spalte>) = <Variable> oder <Wert> |
Range(<Zell-Adresse>) = <Variable> oder <Wert>
Schreiben in eine Zelle |
Beispiel: |
Cells(4,3) = A ' Inhalt der Variable 'A' in Zelle C4 schreiben Range("C4") = 12 ' Zahl 12 in Zelle C4 schreiben. [C4] = "Hallo" ' Den Text "Hallo" in Zelle C4 schreiben
<Feld-Variable> = Range(<Bereich>) |
Lesen aus einem Bereich |
Beispiel: |
Dim DatenFeld As Variant DatenFeld = Range("A1:J10")
Range(<Bereich>) = <Feld-Variable> |
Schreiben in einen Bereich |
Beispiel: Ausgabe einer
Zufallstabelle |
Dim AzSpalten As Integer Dim AzZeilen As Integer Dim Spalte As Integer Dim Zeile As Integer AzSpalten = 10 AzZeilen = 10 ReDim DatenFeld(1 To AzZeilen, 1 To AzSpalten) As Double For Zeile = 1 To AzZeilen For Spalte = 1 To AzZeilen DatenFeld(Zeile, Spalte) = Rnd * 1000 Next Spalte Next Zeile Cells.ClearContents Range("C3").Range(Cells(LBound(DatenFeld, 1), LBound(DatenFeld, 2)), _ Cells(UBound(DatenFeld, 1), UBound(DatenFeld, 2))) = DatenFeld
Cells.SpecialCells(xlLastCell).Address |
Adresse der 'Letzen Zelle' bestimmen |
Beispiel: |
MsgBox Cells.SpecialCells(xlLastCell).Address
Cells.SpecialCells(xlLastCell).Row |
Zeilen-Nummer der letzten Zeile |
Beispiel: |
MsgBox Cells.SpecialCells(xlLastCell).Row
Cells.SpecialCells(xlLastCell).Column |
Spalten-Nummer der letzen Spalte |
Beispiel: |
MsgBox Cells.SpecialCells(xlLastCell).Column
.NumberFormat = <Format> |
Zellenformat Zahlen |
Beispiel: |
Range("A1").NumberFormat = "General" ' --> Standard-Format Range("A2").NumberFormat = "#,##0.00" ' --> 2. Dezimalstellen mit Tausender-Trennung Range("A3").NumberFormat = "DD.MM.YYYY" ' --> Datumsformat Range("A4").NumberFormat = "hh:mm:ss" ' --> Stundenformat Cells(4, 1).NumberFormat = "??/??" ' --> 2-stelliges Bruch-Format
|
.HorizontalAlignment = xlCenter .MergeCells = <True / False> .Orientation = <Winkel> .VerticalAlignment = xlCenter .WrapText = True
Zellenformate Ausrichtung: |
Horizontale Ausrichtung des Zellinhaltes Zellen des Bereiches verbinden Schreibwinkel des Zellinhaltes ( in Altgrad ) Vertikale Ausrichtung Textumbruch
Beispiel: |
With Range("C3:G3") ' Alle Zellen im Bereich C3 bis G3 .HorizontalAlignment = xlCenter ' Inhalt horizontal zentriert ausgerichtet. .MergeCells = True ' Zellen werden zu einer Zelle verbunden .Orientation = 45 ' Schreib-Richtung 45° .VerticalAlignment = xlCenter ' Inhalt vertikal zentriert ausgerichtet. .WrapText = True ' Zeilenumbruch aktiviert. End With
|
.Font.Name = <Schriftname> .Font.Size = <Schriftgröße> .Font.Strikethrough = <False / True> .Font.Superscript = <False / True> .Font.Subscript = <False / True> .Font.Underline = <Typ> .Font.ColorIndex = <Farbindex-Nummer> .Font.Bold = <False / True> .Font.Italic = <False / True>
Schrift des Zell / Bereichs-Inhaltes |
Schriftname Schriftgröße durchgestrichen hoch gestellt unterstrichen Schriftfarbe Fett Kursiv
Beispiel:
|
With Range ("F20") .Font.Name = "Britannic Bold" ' Schriftname .Font.Size = 11 ' Schriftgröße .Font.Strikethrough = False ' nicht durchgestrichen .Font.Superscript = False ' nicht hochgestellt .Font.Subscript = False ' nicht tief gestellt .Font.Underline = xlUnderlineStyleNone ' nicht unterstrichen xlUnderlineStyleSingle ' einfach unterstrichen xlUnderlineStyleDouble ' doppelt unterstrichen xlUnderlineStyleSingleAccounting ' einfach fett unterstrichen xlUnderlineStyleDoubleAccounting ' doppelt fett unterstrichen .Font.ColorIndex = 1 ' Farb-Index 1 ( schwarz ) .Font.Bold = True ' Fett-Schrift .Font.Italic = False ' nicht kursiv End With
<Zelle / Bereich> |
.Borders(<RahmenTyp>) <Rahmentyp> = xlDiagonalDown 5 xlDiagonalUp 6 xlEdgeLeft 7 xlEdgeTop 8 xlEdgeBottom 9 xlEdgeRight 10 xlInsideVertical 11 xlInsideHorizontal 12 .Borders(<RahmenTyp>) .LineStyle = xlContinuous 1 xlDash -4115 xlDashDot 4 xlDashDotDot 5 xlDot -4118 xlDouble -4119 xlNone -4142 .Borders(<RahmenTyp>) .Weight xlHairline 1 xlThin 2 xlMedium -4138 xlThick 4 .Borders(<RahmenTyp>) .ColorIndex = 1 - 56
Rahmen |
Diagonal Diagonal Linker Rand Oberer Rand Rechter Rand Alle inneren vertikalen Linien der markierten Tabelle Alle inneren waagerechten Linien der markierten Tabelle Durchgehende Linie Gestrichelte Linie Strich-Punkt- Linie Strich-Punkt-Punkt-Linie Punktierte Linie Doppelte Linie Keine Linie Linienstärke Haarfein Dünn Normal Dick Farb-Index
Beispiel: |
Sub BereichRahmung(Bereich) '+---------------------------+ '| Rahmung eines Bereiches | '+---------------------------+ Dim TabLinie As Integer For TabLinie = 7 To 12 Range(Bereich).Borders(TabLinie).LineStyle = xlContinuous Range(Bereich).Borders(TabLinie).Weight = xlMedium Next TabLinie End Sub
Cells.ClearContents |
Zellinhalte des gesamtes Tabellenblattes löschen |
Beispiel: |
Cells.ClearContents
Cells.Delete |
Gesamtes Tabellenblatt löschen |
Beispiel:
Das gesamte Tabellenblatt wird gelöscht, d.h. Inhalte und Formate. |
Cells.Delete
Rows(<Zeile>).Select |
Rows("<von Zeile>:<bis Zeile>").Select
Zeile(n) auswählen |
Beispiel: |
Rows(25).Select ' Zeile 25 wird markiert Rows("2:10").Select ' Die Zeilen 2 bis 10 werden markiert
Rows(<Zeile>).Insert |
neue Zeile(n) einfügen |
Beispiel: |
Rows(20).Insert ' In Zeile 20 wird eine neue Zeile eingefügt. Rows("5:9").Insert ' in Zeile 5 werden 5 neue Zeilen eingefügt.
Rows(<Zeilen>).Copy Destination |
Zeile kopieren und woanders überschreiben |
Beispiel: |
Rows("8:10").Copy Destination:=Rows("43:45")
Rows(<Zeile>).Cut Destination |
Zeileninhalt löschen und woanders überschreiben |
Beispiel: |
Rows(5).Cut Destination:=Rows(30) ' der Inhalt von Zeile 5 wird in Zeile 30 ' kopiert und in Zeile 5 gelöscht Rows("5:10").Cut Destination:=Rows("15:20") ' Der Inhalt der Zeilen 5-10 wird in die ' Zeilen 15-20 kopiert, ' Zeilen 5-10 werden dann gelöscht.
Rows(<Zeilen>).Cut / Rows(<Zeilen>).Insert |
Zeile löschen und woanders einfügen |
Beispiel: |
Rows("5:5").Cut ' Zeile 5 wird gelöscht Rows("20:20").Insert ' und in Zeile 20 eingefügt
Rows(<Zeilen>).Copy Destination |
Zeile kopieren und woanders überschreiben |
Beispiel: |
Rows(20).Copy Destination:=Rows("23:23")
Rows(<Zeilen>).Copy / Rows(<Zeilen>).Insert |
Zeile kopieren und woanders einfügen |
Beispiel: |
Rows(10).Copy Rows(21).Insert Shift:=xlDown Application.CutCopyMode = False
Rows(<Zeilen>).Delete |
Zeile löschen |
Beispiel: |
Rows(19).Delete ' Zeile 19 wird gelöscht Rows("5:9").Delete ' Zeilen 5 bis 9 werden gelöscht
Rows(<Zeilen>).EntireRow.Hidden |
Zeile ausblenden / einblenden |
Beispiel: |
Rows("14:14").EntireRow.Hidden = True
Rows(<Zeilen>).RowHeight |
Zeilenhöhe |
Beispiel: |
Rows("8:8").RowHeight = 33.75
Rows(<Zeilen>).EntireRow.AutoFit |
automatische Zeilenhöhe |
Beispiel: |
Rows("8:8").EntireRow.AutoFit
Cells.SpecialCells(xlLastCell).Row |
Zeilen-Nummer der letzten Zeile |
Beispiel: |
MsgBox Cells.SpecialCells(xlLastCell).Row
Columns(<Bereich> oder <Index>).Select |
Spalte auswählen |
Beispiel: |
Columns("G:I").Select Columns("A").Select Columns(13).Select
Columns(<Spalte>).Insert |
neue Spalte einfügen |
Beispiel: |
Columns(8).Insert Shift:=xlToRight
Columns("E:E").Copy Destination |
Spalte kopieren und woanders überschreiben |
Beispiel: |
Columns("E:E").Copy Destination:=Columns("I:I")
Columns(<Spalte>).Cut Destination:=Columns(<Spalte>) |
Spaltinhalt löschen und woanders überschreiben |
Beispiel: |
Columns(4).Cut Destination:=Columns(10)
Columns(<Spalte>).Cut / Columns(<Spalte>).Insert |
Spalte löschen und woanders einfügen |
Beispiel: |
Columns(2).Cut ' Spalte 2 ausschneiden Columns(7).Insert ' und vor Spalte 7 einfügen
Columns(<Spalte>).Copy Destination:=Columns(<Spalte>) |
Spalte kopieren und woanders überschreiben |
Beispiel: |
Columns(2).Copy Destination:=Columns(6)
Columns(<Spalte>).Copy /
Columns(<Spalte>).Insert |
Spalte kopieren und woanders einfügen |
Beispiel: |
Columns(2).Copy Columns(5).Insert Application.CutCopyMode = False
Columns(<Spalte>).Delete |
Spalten löschen |
Beispiel: |
Columns(3).Delete
Columns(<Spalte>).EntireColumn.Hidden = True /
False |
Spalten ausblenden / einblenden |
Beispiel: |
Columns(3).EntireColumn.Hidden = True
Columns(<Spalte>).ColumnWidth = <Spaltbreite> |
Spaltenbreite |
Beispiel: |
Columns(1).ColumnWidth = 15
Columns(<Spalte>).EntireColumn.AutoFit |
automatische Spaltenbreite |
Beispiel: |
Columns(3).EntireColumn.AutoFit | |||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Cells.SpecialCells(xlLastCell).Column | Spalten-Nummer der letzen Spalte |
|
Beispiel: MsgBox Cells.SpecialCells(xlLastCell).Column |
|