Grundlagen der Programmierung mit VBA Visual Basic for
Grundlagen der Programmierung mit VBA Visual Basic for
Grundlagen der Programmierung mit VBA Visual Basic for
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Sub LiesMatrix()<br />
Dim CR As String: CR = Chr(13) & Chr(10)<br />
Dim MatrixBereich As Range<br />
Dim MatrixElement As Range<br />
Dim ElementWert As Variant<br />
Dim i As Long<br />
46<br />
Set MatrixBereich = ActiveCell.CurrentRegion ' Bereich festlegen<br />
i = 0<br />
For Each MatrixElement In MatrixBereich ' Zellen im Bereich abarbeiten<br />
i = i + 1<br />
ElementWert = MatrixElement.Value<br />
If IsNumeric(ElementWert) Then<br />
MsgBox "Element " & i & ": " & CStr(ElementWert) & CR & _<br />
"ist vom Typ " & TypeName(ElementWert)<br />
End If<br />
Next<br />
End Sub<br />
3.8.3 Count-Eigenschaft<br />
Syntax<br />
Count<br />
Anzahl <strong>der</strong> Zellen innerhalb eines Bereichs<br />
Beispiel. Bestimme die Anzahl <strong>der</strong> Zellen im ausgewählten Bereich.<br />
Sub ZähleZellen()<br />
Dim MatrixBereich As Range<br />
Dim Anzahl As Long<br />
Set MatrixBereich = ActiveCell.CurrentRegion<br />
Anzahl = MatrixBereich.Count<br />
MsgBox "So viel sind's: " & CStr(Anzahl)<br />
End Sub<br />
3.8.4 Column- und Row-Eigenschaften<br />
Syntax<br />
Column<br />
Row<br />
Liefert Spalten- bzw. Zeilennummer <strong>der</strong> ersten Zelle im ausgewählten Bereich.<br />
Beispiel. Bestimme die Startzelle (2,2) für das dargestellte Beispiel.