VBA-Spickzettel - Befehls- und Syntaxlisten

VBA-Spickzettel PDF (kostenloser Download)

Laden Sie unser kostenloses Excel VBA Cheat Sheet PDF zum schnellen Nachschlagen herunter!

Herunterladen

VBA-Spickzettel

Auf dieser Seite finden Sie Listen aller gängigen VBA-Befehle und -Syntax. Sie finden viele grundlegende Befehle (z. B. Einfügen eines Blatts) und einige erweiterte Syntax (z. B. Arbeiten mit Arrays).

Tipps:

Verwenden Sie STRG + F, um diese Seite zu durchsuchen.

Bookmarken Sie diese Seite (STRG + D in Chrome)!

Blätter

BeschreibungVBA-CodeNach Tab-Name aktivierenTabellen ("Eingabe").AktivierenNach VBA-Codename aktivierenBlatt1.AktivierenNach Indexposition aktivierenBlätter(1).AktivierenNächstes BlattActiveSheet.Next.ActivateActiveSheet herunterladenMsgBox ActiveSheet.NameBlatt auswählenSheets("Input").SelectAuf Variable setzenDim ws als Arbeitsblatt
Set ws = ActiveSheetBenennen / UmbenennenActiveSheet.Name = "NeuerName"Blatt hinzufügenTabellen.HinzufügenBlatt und Name hinzufügenSheets.Add.Name = "NewSheet"Blatt zu Variable hinzufügenDim ws als Arbeitsblatt
Set ws = Sheets.AddBlatt kopierenSheets("Sheet1").Vorher kopieren:=Sheets("Sheet2")Blatt ausblendenSheets("Sheet1").visible = False
oder
Sheets("Sheet1").visible = xlSheetHiddenBlatt einblendenSheets("Sheet1").Visible = True
oder
Sheets("Sheet1").Visible = xlSheetVisibleSehr Blatt ausblendenSheets("Sheet1").Visible = xlSheetVeryHiddenBlatt löschenSheets("Sheet1").LöschenKlares BlattSheets("Sheet1").Cells.ClearSchutz aufheben (kein Passwort)Sheets("Sheet1").Schutz aufhebenSchutz aufheben (Passwort)Sheets("Sheet1").Schutz für "Passwort" aufhebenSchützen (kein Passwort)Sheets("Sheet1").SchützenSchützen (Passwort)Sheets("Sheet1").Schützen Sie "Passwort"Schützen, aber VBA-Zugriff zulassenSheets("Sheet1").Protect UserInterfaceOnly:=True

zurück nach oben

Zellen & Bereiche

BeschreibungVBA-CodeZelle aktivierenBereich("B3").Aktivieren
Zellen(3,2).AktivierenBereich auswählenBereich("a1:a3").Wählen
Bereich(Bereich("a1"), Bereich("a3")).Auswählen
Bereich (Zellen(1, 1), Zellen(3, 1)).AuswählenGröße ändernBereich("B3").Größe ändern(2, 2).AuswählenVersatzBereich(“B3”).Offset(2, 2).WählenKopierenBereich("A1:B3").Bereich kopieren("D1")SchneidenBereich("A1:B3").Schnittbereich("D1")LöschenBereich("A1:B3").Löschen
Range("A1:B3").Delete shift:=xlShiftToLeftKlarBereich("A1:A3").Clear
Bereich("A1:A3").Inhalte löschen
Bereich("A1:A3").ClearFormatZählenBereich("A1:A3").AnzahlAuf Variable setzenDim rng als Range
Setze rng = Bereich("A1")Zusammenführen/Zusammenführen aufhebenBereich("A1:A3").Zusammenführen
Bereich("A1:A3").UnMergeDurchschleifen von Zellen

Zelle als Bereich dimmen

Für jede Zelle im Bereich ("A1: C3")
MsgBox cell.Value
Nächste Zelle

zurück nach oben

Reihen

BeschreibungVBA-Codeaktivieren SieZeilen(1).Aktivieren
Zeilen("1:1").Aktivieren
Range(“a1”).EntireRow.ActivateHöhe BreiteRange("A1").EntireRow.RowHeight = 30LöschenRange("A1").EntireRow.DeleteZählenBereich("A1").Zeilen.AnzahlEinfügungBereich("A1").EntireRow.InsertZuletztdim lReihe so lang
lRow = Cells(Rows.Count, 1).End(xlUp).RowKopierenBereich ("1:1"). Bereich kopieren ("5:5")EinfügungBereich(“1:1”).Kopieren
Bereich("5:5").Einfügen

zurück nach oben

Säulen

BeschreibungVBA-Codeaktivieren SieSpalten(1).Aktivieren
Spalten("a:a").Aktivieren
Range("a1").EntireColumn.ActivateHöhe BreiteRange("A1").EntireColumn.ColumnWidth = 30LöschenBereich("A1").GesamteSpalte.LöschenZählenBereich("A1").Spalten.AnzahlEinfügungBereich("A1").GesamteSpalte.EinfügenZuletztdim lCol solange
lCol = Cells(1, Columns.Count).End(xlToLeft).ColumnKopierenBereich("A:A").Bereich kopieren("E:E")EinfügungBereich("A:A").Kopieren
Bereich("E:E").Einfügen

zurück nach oben

Sind Sie es leid, nach VBA-Codebeispielen zu suchen? Probieren Sie AutoMacro aus!

Arbeitsbücher

BeschreibungVBA-Codeaktivieren SieArbeitsmappen("Buch1").AktivierenErst geöffnet aktivierenArbeitsmappen(1).AktivierenZuletzt geöffnet aktivierenArbeitsmappen(Workbooks.Count).AktivierenAktivieren Sie die ArbeitsmappeMsgBox ActiveWorkbook.NameHolen Sie sich diese Arbeitsmappe (mit VBA-Code)MsgBox ThisWorkbook.NameHinzufügenArbeitsmappen.HinzufügenZu Variable hinzufügenDim wb als Arbeitsmappe
Set wb = Workbooks.AddOffenArbeitsmappen.Open(“C:\example.xlsm”)Offen für VariableDim wb als Arbeitsmappe
Set wb = Workbooks.Open(“C:\example.xlsm”)Nah dranWorkbooks("Book1").Close SaveChanges:=False
Workbooks("Book1").Close SaveChanges:=TrueSpeichernArbeitsmappen("Buch1").SpeichernSpeichern alsWorkbooks("Book1").SaveAs strFileNameSchützen/Schutz aufhebenArbeitsmappen(1).Schützen Sie „Passwort“
Arbeitsmappen(1).Schutz für "Passwort" aufhebenAuf Variable setzenDim wb als Arbeitsmappe
Set wb = Arbeitsmappen("Buch1")Durchlaufen aller Arbeitsmappen in Arbeitsmappen

Dim wb als Arbeitsmappe

Für jedes wb in Arbeitsmappen
MsgBox wb.Name
Nächstes wb

Vorhanden prüfenIf Dir("C:\Book1.xlsx") = "" Then
MsgBox „Datei existiert nicht.“
EndIfKopie geschlossenDateiKopieren „C:\Datei1.xlsx“, „C:\Datei2.xlsx“

zurück nach oben

Einstellungen

BeschreibungVBA-CodeBildschirmaktualisierungApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueBenachrichtigungen anzeigenApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueVeranstaltungenApplication.EnableEvents = False
Application.EnableEvents = TrueAbbrechen-Taste aktivierenApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTextvergleich - Groß-/Kleinschreibung ignorierenOption Text vergleichenVariablendeklaration erforderlichOption explizitAutomatische BerechnungenAnwendung.Berechnung = xlManual
Anwendung.Berechnung = xlAutomaticFehlerüberprüfung im HintergrundApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueFormelleiste anzeigenApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueScheiben einfrierenActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueVollbildansichtApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TrueSeitenumbruchvorschauActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewBildlaufleisten anzeigenMit ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Ende mitMit ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Ende mitStatusleiste anzeigenApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueInhalt der StatusleisteApplication.StatusBar = "Ich arbeite jetzt!!!"
Application.StatusBar = FalseArbeitsmappen-Registerkarten anzeigenActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TrueNutzernameApplication.UserName = "AutomateExcel.com"App-BeschriftungApplication.Caption = "AutomateExcel-Modell"ZoomenActiveWindow.Zoom = 80

zurück nach oben

Fehler

BeschreibungVBA-CodeBei Fehler - Stoppcode und AnzeigefehlerBei Fehler Gehe zu 0Bei Fehler - Fehler überspringen und weiterlaufenBei Fehler Fortsetzen als nächstesBei Fehler – Gehe zu einer Codezeile [Label]Bei Fehler Gehe zu [Label]Löscht (zurückgesetzt) ​​FehlerBei Fehler GoTo -1Fehlernummer anzeigenMsgBox Err.NumberFehlerbeschreibung anzeigenMsgBox Err.BeschreibungFunktion zum Generieren eigener FehlerErr.Erhöhen

zurück nach oben

Dateien

BeschreibungVBA-CodeDatei kopierenDateiKopieren Sie „C:\test\test_old.xlsx“, „C:\test\test_new.xlsx“Datei löschenTöte „C:\test\example.xlsx“Ordner erstellenMkDir „C:\test\“Alle Dateien aus Ordner löschenTöte „C:\test\“ & „*.*“Lösche OrdnerTöte „C:\test\“ & „*.*“
RmDir „C:\test\“Aktuelles VerzeichnisstrPath = CurDir()DieserArbeitsmappenpfadstrPath = ThisWorkbook.PathDurchlaufen aller Dateien im Ordner

strFile = Dir("C:\test" & "\*")

Do While Len(strFile) > 0
Debug.Print strFile
strFile = Dir
Schleife

zurück nach oben

Gutes Produkt. AutoMacro schreibt nicht nur Ihren Code, es lehrt Sie, während Sie gehen!" - Tony, UK

Mehr erfahren

Lesen Sie unsere über 900 Bewertungen

Arrays

BeschreibungVBA-CodeSchaffenDim arr(1 bis 3) als Variante
arr(1) = „eins“
arr(2) = „zwei“
arr(3) = "drei"Aus Excel erstellenDim arr(1 bis 3) als Variante
Dim cell As Range, i As Integer
i = LBound(arr)
Für jede Zelle im Bereich ("A1: A3")
ich = ich + 1
arr(i) = cell.value
Nächste ZelleAlle Artikel lesenDim ich als Long
Für i = LBound(arr) Zu UBound(arr)
MsgBox arr(i)
Als nächstesLöschenarr löschenArray zu StringDim sName als String
sName = Join(arr, „:“)Größe vergrößernReDim Preserve arr(0 bis 100)Wert einstellenarr(1) = 22

zurück nach oben

VBA-Programmierung | Code Generator arbeitet für Sie!

Kollektionen

BeschreibungVBA-CodeSchaffenDim coll als neue Kollektion
coll.Add "one"
coll.Add "zwei"Aus Excel erstellenDim coll als neue Kollektion
Zelle als Bereich dimmen
Für jede Zelle im Bereich ("A1: A2")
coll.Add cell.value
Nächste ZelleArtikel hinzufügencoll.Add "Wert"Artikel hinzufügen vorcoll.Add "Wert", Vorher:=1Artikel hinzufügen nachcoll.Add „Value“, After:=1Artikel lesenMsgBox-Sammlung (1)Artikel zählenKol.Zähl.Alle Artikel lesenArtikel als Variante dimmen
Für jeden Artikel in coll
MsgBox-Element
Nächstes ObjektGegenstand entfernenkol.Entfernen (1)Alle Artikel entfernenSet coll = Neue Kollektion

zurück nach oben

Wörterbücher

BeschreibungVBA-CodeErforderliche ReferenzTools > Referenzen > Microsoft Scripting RuntimeSchaffenDim dict als neues Scripting.Dictionary
dict.Add „“
dict.Add „“Aus Excel erstellenDim dict als neues Scripting.Dictionary
Zelle als Bereich dimmen
Dim-Taste als Integer
Für jede Zelle im Bereich ("A1: A10")
Taste = Taste + 1
dict.Key hinzufügen, cell.value
Nächste ZelleArtikel hinzufügendict.Add „Schlüssel“, „Wert“Wert änderndict("Schlüssel") = "Wert"Wert erhaltenMsgBox dict("Schlüssel")Auf Wert prüfenWenn dict.Exists(“Schlüssel”) Then
MsgBox „Existiert“
Ende WennGegenstand entfernendict.Remove („Schlüssel“)Alle Artikel entfernendict.RemoveAllElemente durchschleifenDim-Taste als Variante
Für jede Taste in dict.Keys
MsgBox-Taste, dict(key)
Nächste TasteArtikel zählendict.CountSchlüsseletui sensibel machendict.CompareMode = vbBinaryCompareGroß-/Kleinschreibung unempfindlich machendict.CompareMode = vbTextCompare

zurück nach oben

AutoMacro - Das ultimative VBA-Add-In

AutoMacro: VBA-Add-In mit Hunderten von gebrauchsfertigen VBA-Codebeispielen und vielem mehr!

Erfahren Sie mehr