For Next mit Abbruchsbedingung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
ganz einfach:
mit Cells(x,y) beziehst du dich immer auf eine einzelne Zelle, die du mit den beiden Parameteren REIHE und SPALTE genau berschreibst.
mit RANGE("...") beziehst du dich auf einen Zellbereich, der eine, aber auch mehrer Zellen umfassen kann.
Eingabeparameter für RANGE ist entwerder
- ein Textstring, der der Zelladdresse in der A1-Schreibweise entspricht, oder
- zwei Einzelzellen, die die Ecke oben links bzw unten rechts des Zellbereiches definieren. (Beispiele unten)
das heißt, in deinem Fall müsstest du korrekt schreiben:


Range(Cells(Frage(q,2,1),1).address).Select

weil Cells(Frage(q,2,1),1).address = "A1" den Textstring liefert, den Range benötigt.
allerdings ist das völlig überflüssig, solange du Einzelzellen arbeitest, sind Cells() und Range() gleichwertig, dh. du kannst gleich schreiben


For q = 1 To AnzFragen
Cells(Frage(q,2,1),1).Font.Bold = True
Next q

Gruß, Daniel
PS. Das select kann man sowieso in 99,99% aller Fälle weglassen und sollte dies auch tun.
Beispiel Range, 2 Möglichkeiten, den Zellbereich von A1 bis B10 mit Range zu beschreiben

Fall eins mit Zelladdresse:
Range("A1:B10")

Fall 2 mit 2 Zellen:
Range(Cells(1,1), Cells(10,2))

Hallo
mir sind bisher nur 2 Fälle bekannt, die zwingend ein Select erfordern.
- Fenster fixieren (weil man nur so festlegen kann, welche Zeile Fixiert wird)
- Bedingte Formatierung setzten (weil sich die relativen Zellbezüge der Formel auf die gerade aktive Zelle beziehen
manchmal ist es ganz praktisch mit SELECTION zu arbeiten, wenn man ein Objekt eingefügt hat, ist es erstmal selektiert, wenn ich dann dessen Eigenschaften noch verändern will, ist es natürlich am einfachsten mit SELECTION.xxx = yyy zu arbeiten.
ansonsten geht eigentlich alles ohne select.
Columns("A:A").ColumnWidth = 45
Range(Cells(oz, us + 1), Cells(uz, us + 1)).Insert Shift:=xlToRight
beim letzten Problem stellt sich die Frage, für welche Spalte du die Breite neu bestimmen willst,
für die Zellen, die du neu eigefügt hast, dann so:
Range(Cells(oz, us + 1), Cells(uz, us + 1)).Insert Shift:=xlToRight
Range(Cells(oz, us + 1), Cells(uz, us + 1)).ColumnWidth = 45
wenn du die Breite der nach rechts verschobenen Zellen ändern willst, dann so:
with Range(Cells(oz, us + 1), Cells(uz, us + 1))
.Insert Shift:=xlToRight
.ColumnWidth = 45
end with
Wie du siehts, es geht fast alles ohne Select und so sollte man es auch schreiben, weil die ganze selectierei macht deine Code langsam und man verliert leicht den Überblich, was man jetzt eigentlich bearbeitet.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread