Sub AufMehrereZellenMitRangeObjektVerweisen() Range("A1:C1").Value = "ABC" Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xlDouble End Sub Wenn Sie auf die Schaltfläche „Ausführen“ klicken oder F5 auf
Lassen Sie uns nun die Einstellung desActiveSheetin VBA besprechen. Es ist hilfreich, das Active Sheet in Excel VBA zu erwähnen, indem Sie es in eine Variable setzen. Wir können ein aktives Blatt festlegen und einem Objekt zuweisen und dieses Objekt verwenden, um das aktive Blatt zu er...
Wenn Sie ein Arbeitsblatt einerObjektvariablenzuweisen, können Sie dieses über seinen Variablennamen referenzieren. Das spart eine Menge Tipparbeit und macht Ihren Code einfacher zu lesen. Es gibt noch viele andere Gründe, warum Sie Variablen verwenden sollten. ...
SubAktuelleRegionEinerVariablenZuweisen()DimbereichAsRange'Den Bereich auf die aktuelle Region von E11 setzenSetbereich=Range("E11").CurrentRegion'Hintergrund und Text einfärbenbereich.Interior.Pattern=xlSolid bereich.Interior.Color=65535bereich.Font.Bold=Truebereich.Font.Color=-16776961EndSub ...
Wir können zum Beispiel eineArbeitsblattvariableverwenden und sie dem aktuellen Blatt (ActiveSheet) zuweisen. Wenn wir dies erfolgreich tun, können wir A2 in diesem Blattauswählen. SubArbeitsblattObjektPruefen()DimwsasWorksheetSetws=ActiveSheetIfNotwsIsNothingThenws.Range("A2").SelectEndIfEndSu...
Diese Prozedur demonstriert, wie man Datum-Variablen erstellt, ihnen Werte zuweist und sie in einem Excel-Arbeitsblatt ausgibt: Sub EineVariableAlsDatumDeklarieren() Dim datumEins As Date Dim datumZwei As Date datumEins = #1/1/2019# datumZwei = "1/2/2019" Range("A1").Value = datum...
Sie können eine VBA-Funktion verwenden, um diese Zahlen in Text umzuwandeln. Sub WertUmwandeln() 'Die Zeichenkette auffüllen strMenge = Range("A1") 'Die Double-Variable mit der Zeichenkette belegen dblMenge = strMenge 'Füllt den Bereich mit der Zahl Range("A1") = dblMenge End Sub...
Sub WordMakroBeispiel() 'Doc öffnen & einer Variablen zuweisen Dim oDoc As Document Set oDoc = Documents.Open("c:\Users\someone\NewDocument.docx") 'In Doc schreiben Selection.TypeText "www.automateexcel.com" Selection.TypeParagraph 'Doc speichern und schließen oDoc.Save oDoc.Close ...
Sub blnBeispiel() 'Die boolesche Variable deklarieren Dim blnA as Boolean 'Den Code ausführen, um die Variable zu belegen - Normalerweise besteht der Code aus einem If- oder Case-Ausdruck If Range("A1") > 0 Then blnA = True Else blnA = False End If 'Die Meldungsbox anzeigen MsgBox...
SubMittelwertTest()Range("O11")=WorksheetFunction.Average(Range("B11:N11"),Range("B12:N12"))EndSub AVERAGE-Ergebnis einer Variablen zuweisen Möglicherweise möchten Sie das Ergebnis Ihrer Formel an anderer Stelle im Code verwenden, anstatt es direkt in einen Excel-Bereich zurückzuschreiben...