Sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sortieren

30.04.2007 09:22:00

Oberschlumpf

AW: Sortieren

30.04.2007 09:29:06

Christian

GEFUNDEN - O.T.

30.04.2007 09:31:00

Christian

AW: Sortieren

30.04.2007 10:31:26

Christian

AW: Sortieren

30.04.2007 11:08:00

Oberschlumpf

AW: Sortieren

30.04.2007 11:17:00

Christian

AW: Sortieren

30.04.2007 11:39:00

Oberschlumpf

AW: Sortieren

30.04.2007 11:49:09

Christian

AW: Sortieren

30.04.2007 11:56:00

Oberschlumpf

AW: Sortieren

30.04.2007 12:03:14

Christian

Hi Christian
Du meinst das hier?


If Cells(Rows.Count, 17).End(xlUp).Row > 2 Then
Range("F2:Q" & Cells(Rows.Count, 17).End(xlUp).Row).Value = ""
End If

Die Zeile unter If löscht immer zuerst den gesamten Bereich F2:QletzteZeile
Dadurch kannst du mein Makro mehrmals verwenden.
Würde der Bereich nicht gelöscht werden, dann würde ein erneuter Makrostart alle Werte an die schon vorhandenen Werte unten "anhängen".
Die If-Zeile an sich überprüft nur, ob schon Einträge vorhanden sind.
Aber OK, ich hätte auch schreiben können
If Range("F2").Value = "" Then
...
End If
Ist vielleicht einfacher und bewirkt das Gleiche.
Ich verwendete die andere If-Variante, weil mir diese als erstes einfiel.
Konnte ich deine Frage beantworten?
Ciao
Thorsten

Hi Christian
Ich fange mal vorne an :-) (versuche es zumindest)
Mit z Bsp
Range("A1").Value = 1000
wird in VBA der Zelle A1 (ganz oben links) der Wert 1000 zugewiesen.
Aber mit dieser VBA-Zeile kannst du eben NUR die Zelle A1 ansprechen und keine andere Zelle.
Wenn du aber nun z Bsp die Zellen A1 - A10 ansprechen möchtest, geht das entweder so:
Range("A1").Value = 1
Range("A2").Value = 2
Range("A3").Value = 3
Range("A4").Value = 4
Range("A5").Value = 5
Range("A6").Value = 6
Range("A7").Value = 7
Range("A8").Value = 8
Range("A9").Value = 9
Range("A10").Value = 10
die Zellen A1 - A10 haben nun den Wert 1 - 10
oder das kannst du auch so erreichen:
For Zeile = 1 To 10
Range("A" & Zeile).Value = Zeile
Next
Hier handelt es sich um eine Schleife, in der die Befehle innerhalb der Schleife bis zur größten angegeben Zahl durchlaufen werden - hier wird die Schleife also 10x durchlaufen.
Und die hier einzige Befehlszeile wird von Excel so aufgelöst:
Range("A" & Zeile).Value = Zeile ergibt
1. Durchlauf
Range("A" & 1).Value = 1 ergibt
Range("A1").Value = 1
2. Durchlauf
Range("A" & 2).Value = 2 ergibt
Range("A2").Value = 2
3. Durchlauf
Range("A" & 3).Value = 3 ergibt
Range("A3").Value = 3
....
10. Durchlauf
Range("A" & 10).Value = 10 ergibt
Range("A10").Value = 10
Der &-Operator verknüpft also den Buchstaben "A" mit dem Wert der Schleifenvariablen "Zeile".
So stimmt dann nach der Verknüpfung die Syntax für den Befehl Range(... und es können viele Zellen mit nur wenigen Befehlszeilen angesprochen werden.
Konnte ich helfen? :-)
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread