aus dem falschen Forum

TMSearcher · Anmeldungsdatum: 19.05.2005 Beiträge: 270 Wohnort: Bremen

Int (zahl) Gibt den ganzzahligen Anteil einer Zahl zurück.

Syntax:
Int(Zahl)
Fix(Zahl)

Das erforderliche Argument Zahl ist ein Wert vom Typ Double oder ein beliebiger zulässiger numerischer Ausdruck. Wenn Zahl den Wert Null enthält, wird Null zurückgegeben.

Bemerkungen:
Int und Fix entfernen beide die Nachkommastellen einer Zahl und geben den daraus resultierenden ganzzahligen Wert zurück.
Der Unterschied zwischen Int und Fix besteht darin, daß bei einem negativen Wert von Zahl Int die erste negative ganze Zahl zurückgibt, die kleiner oder gleich Zahl ist, während Fix die erste negative ganze Zahl zurückgibt, die größer oder gleich Zahl ist. Int wandelt zum Beispiel -8,4 in -9 um, während Fix -8,4 in -8 umwandelt.
Fix(Zahl) entspricht dem folgenden Ausdruck:
Sgn(Zahl) * Int(Abs(Zahl))

Int-, Fix-Funktionen (Beispiel)
In diesem Beispiel wird veranschaulicht, wie die Funktionen Int und Fix den ganzzahligen Teil einer Zahl zurückgeben. Bei negativen Zahlen liefert die Int-Funktion die erste ganze negative Zahl, die kleiner oder gleich der übergebenen Zahl ist, während die Fix-Funktion die erste negative ganze Zahl liefert, die größer oder gleich der übergebenen Zahl ist.

Dim Zahl1
Zahl1 = Int(99.9) ' Liefert 99.
Zahl1 = Fix(99.2) ' Liefert 99.

Zahl1 = Int(-99.9) ' Liefert -100.
Zahl1 = Fix(-99.9) ' Liefert -99.

Zahl1 = Int(-99.2) ' Liefert -100.
Zahl1 = Fix(-99.2) ' Liefert -99.

(entliehen aus MSDN) Big Laugh

Gruß TMS

TMSearcher · Anmeldungsdatum: 19.05.2005 Beiträge: 270 Wohnort: Bremen

Rnd(x) Gibt einen Wert vom Typ Single zurück, der eine Zufallszahl darstellt.

Syntax
Rnd[(Zahl)]
Das optionale Argument Zahl ist ein Wert vom Typ Single oder ein beliebiger zulässiger numerischer Ausdruck.
Rückgabewerte

Wert von Zahl - Generierte Zufallszahl
Kleiner als Null - Immer dieselbe Zahl, die als Startwert Zahl verwendet.
Größer als Null - Die nächste Zufallszahl in der Folge.
Gleich Null - Die zuletzt generierte Zahl.
Nicht angegeben - Die nächste Zufallszahl in der Folge.

Bemerkungen
Die Rnd-Funktion gibt einen Wert zurück, der kleiner als 1, aber größer als oder gleich Null ist.
Der Wert von Zahl bestimmt, wie Rnd eine Zufallszahl generiert:
Für jeden gegebenen Standardwert wird dieselbe Zufallszahlenfolge generiert, weil bei jedem nachfolgenden Aufruf der Rnd-Funktion die vorherige Zahl als Startwert für die nächste Zahl in der Folge dient.
Bevor Sie Rnd aufrufen, verwenden Sie die Randomize-Anweisung ohne Argument, um den Zufallszahlengenerator mit einem Startwert zu initialisieren, der auf dem Systemzeitgeber basiert.
Verwenden Sie die folgende Formel, um ganzzahlige Zufallszahlen innerhalb eines bestimmten Bereichs zu erzeugen:
Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Obergrenze steht hier für die größte Zahl des Bereichs und Untergrenze für die kleinste Zahl des Bereichs.
Anmerkung Wenn Sie Folgen von Zufallszahlen wiederholen möchten, rufen Sie Rnd mit einem negativen Argument auf, unmittelbar bevor Sie Randomize mit einem numerischen Argument verwenden. Durch Verwenden von Randomize mit demselben Wert für Zahl wird die vorherige Folge nicht wiederholt.

Rnd-Funktion (Beispiel)
In diesem Beispiel wird die Rnd-Funktion verwendet, um eine zufällige ganze Zahl im Bereich von 1 bis 6 zu generieren.
Dim Wert1
Wert1 = Int((6 * Rnd) + 1) ' Zufallszahl im Bereich von 1 bis 6 generieren.

Und guckst noch mal hier:
http://www.informatikerboard.de/ptopic,1765.html#1765

Gruß TMS

Quelle: siehe letztes posting

TMSearcher · Anmeldungsdatum: 19.05.2005 Beiträge: 270 Wohnort: Bremen

For i=x to y Step Z next i Wiederholt eine Gruppe von Anweisungen so oft wie angegeben.
Syntax
For Zähler = Anfang To Ende [Step Schritt]
[Anweisungen]
[Exit For]
[Anweisungen]
Next [Zähler]

Die Syntax für die For…Next-Anweisung besteht aus folgenden Teilen:

Teil - Beschreibung
Zähler - Erforderlich. Numerische Variable, die als Schleifenzähler dient. Eine boolesche Variable oder ein Element eines Datenfeldes ist nicht zulässig.
Anfang - Erforderlich. Startwert von Zähler.
Ende - Erforderlich. Endwert von Zähler.
Schritt - Optional. Betrag, um den Zähler bei jedem Schleifendurchlauf verändert wird. Falls kein Wert angegeben wird, ist die Voreinstellung für Schritt eins.
Anweisungen - Optional. Eine oder mehrere Anweisungen zwischen For und Next, die so oft wie angegeben ausgeführt werden.

Bemerkungen
Das Argument Schritt ist entweder positiv oder negativ. Der Wert des Arguments Schritt legt die Schleifenausführung folgendermaßen fest:

Wert - Schleifenausführung, wenn
Positiv oder 0 - Zähler <= Ende
Negativ - Zähler >= Ende

Nachdem alle Anweisungen in der Schleife ausgeführt wurden, addiert das Programm Schritt zum Wert von Zähler hinzu. Die Anweisungen in der Schleife werden dann entweder erneut ausgeführt (aufgrund desselben Tests, der auch zu Beginn des ersten Durchlaufs durchgeführt wurde), oder das Programm beendet die Schleife und setzt die Ausführung mit der auf die Next-Anweisung folgenden Anweisung fort.
Tip:das Ändern des Wertes von Zähler innerhalb einer Schleife kann zur Folge haben, daß der Code komplizierter und schwerer zu testen wird.
Innerhalb einer Schleife kann eine beliebige Anzahl von Exit For-Anweisungen an beliebiger Stelle als alternative Möglichkeit zum Verlassen der Schleife verwendet werden. Exit For wird oft in Zusammenhang mit der Auswertung einer Bedingung (zum Beispiel If...Then) eingesetzt und überträgt die Steuerung an die unmittelbar auf Next folgende Anweisung.
Sie können For...Next-Schleifen verschachteln, indem Sie eine For...Next-Schleife innerhalb einer anderen verwenden. Das Argument Zähler muß für jede Schleife einen eindeutigen Variablennamen erhalten. Die folgende Konstruktion ist korrekt:
For I = 1 To 10
For J = 1 To 10
For K = 1 To 10
...
Next K
Next J
Next I
Anmerkung: Wenn Sie Zähler in einer Next-Anweisung nicht angeben, wird die Ausführung trotzdem so fortgesetzt, als ob Zähler enthalten wäre. Eine Next-Anweisung vor der zugehörigen For-Anweisung führt zu einem Fehler.

For...Next-Anweisung (Beispiel)
In diesem Beispiel wird die For...Next-Anweisung verwendet, um eine Zeichenfolge mit zehn Vorkommen der Ziffern von 0 bis 9 zu erstellen. Die Zahlenfolgen sind durch jeweils ein Leerzeichen voneinander getrennt. Die äußere Schleife verwendet eine Variable als Schleifenzähler, deren Wert bei jedem Schleifendurchlauf um eins verringert wird.

Dim Wörter, Zeichen, Text1
For Wörter = 10 To 1 Step -1 ' 10 Wiederholungen.
For Zeichen = 0 To 9 ' 10 Wiederholungen.
Text1 = Text1 & Zeichen ' Zahl an Zeichenfolge anfügen.
Next Zeichen ' Zähler hochzählen
Text1 = Text1 & " " ' Leerzeichen anfügen.
Next Wörter

Gruß TMS

TMSearcher · Anmeldungsdatum: 19.05.2005 Beiträge: 270 Wohnort: Bremen

Cells-Eigenschaft, wie sie auf das Application-Objekt angewendet wird. Soll heißen du hast mit dieser Eigenschaft Zugriff auf bestimmte Zellen in einer Tabelle.

Gibt ein Range-Objekt zurück, das alle Zellen des aktiven Arbeitsblattes darstellt. Wenn das aktive Dokument kein Arbeitsblatt ist, verursacht diese Eigenschaft einen Fehler. Schreibgeschützt.

Ausdruck.Cells

Ausdruck - Erforderlich. Ein Ausdruck, der ein Application-Objekt zurückgibt.

Cells-Eigenschaft, wie sie auf das Range-Objekt angewendet wird.

Gibt ein Range-Objekt zurück, das die Zellen im angegebenen Bereich darstellt. Schreibgeschützt.

Ausdruck.Cells

Ausdruck Erforderlich. Ein Ausdruck, der ein Range-Objekt zurückgibt.

Cells-Methode, wie sie auf das Worksheet-Objekt angewendet wird.

Gibt ein Range-Objekt zurück, das alle Zellen im Arbeitsblatt darstellt (nicht nur die zurzeit verwendeten Zellen). Schreibgeschützt.

Ausdruck.Cells

Ausdruck Erforderlich. Ein Ausdruck, der ein Worksheet-Objekt zurückgibt.

Hinweise
Da die Item-Eigenschaft die Standardeigenschaft des Range-Objekts ist, können Sie den Zeilen- und Spaltenindex unmittelbar nach dem Cells-Schlüsselwort angeben. Weitere Informationen finden Sie in dem Abschnitt zu der Item-Eigenschaft und den Beispielen zu diesem Thema.

Wenn Sie diese Eigenschaft ohne einen Objektkennzeichner verwenden, wird ein Range-Objekt zurückgegeben, das alle Zellen im aktiven Arbeitsblatt darstellt.

Beispiel
In diesem Beispiel wird die Schriftgröße der Zelle C5 in Sheet1 auf 14 Punkt festgelegt.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
In diesem Beispiel wird die Formel in der ersten Zelle in Sheet1 gelöscht.

Worksheets("Sheet1").Cells(1).ClearContents

Beispiel
In diesem Beispiel wird die Schriftart für alle Zellen in Sheet1 auf Arial, 8 Punkt, festgelegt.

With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With

Beispiel
Das folgende Beispiel bearbeitet in einer Schleife die Zellen A1:J4 in Sheet1. Hat eine dieser Zellen einen Wert, der kleiner ist als 0,001, wird dieser Wert durch Null (0) ersetzt.

For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex

Beispiel
In diesem Beispiel wird die Schrift der Zellen A1:C5 in Sheet1 auf kursiv gesetzt.

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
Dieses Beispiel durchsucht die Spalte "myRange", die Daten enthält. Wenn eine Zelle denselben Wert besitzt wie die darüber liegende Zelle, wird die Adresse der Zelle mit den doppelten Daten angezeigt.

Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n

Gruß TMS
(schade eigentlich, dass man den Text so schlecht Formatieren kann)