Office: Dynamische Range wählen

Hallo zusammen

Ich brauche eure Hilfe bezüglich der richtigen Range wählen.
Hab in meinem VBA Code einen kleine For-Schleife:

PHP:

         For i = (ActiveSheet.Range("F200").End(xlUp).Row - 1) To 2 Step -1
If Cells(i, 6) <> Cells(i - 1, 6) Then
Range(i).Insert
End If
Next i


:)

 

Hallo karl1988,

das funktioniert nur, wenn man den Tabellenbereich in eine intelligente Tabelle 'als Tabelle formatieren' umwandelt.
hier mal ein Beispiel dazu.

Gruß von Luschi
aus klein-Paris

 

Hallo,

so?
Code:

@Luschi
Das klappt auch in einem "normalen" Tabellenblatt.

Grüße
EarlFred

 

Hi Luschi

erstmal Danke für deine Antwort. Den Bereich als "Tabelle" zu formatieren wäre ja kein Problem wenn es mir helfen würde *Smilie
Aber in deinem Code sagst du auch:
Code:

Das klappt zwar, aber die Range ist somit für meine Zwecke immer noch nicht Dynmaisch. Hab "Selection.ListObject.ListRows.Add (4)" in meiner For-Schleife eingebaut, aber geht leider nicht...

 

\@EarlFred
Danke funktioniert super - hilft mir sehr *Smilie

Aber gibt es allgemein keine Möglichkeit mit Range(F(i):J(i)) zu bestimmen? Oder geht es nur über Cells?

 

Hallo,

"gehen" geht viel, aber meist kompliziert:
Code:

(Ich breche mir dabei die Finger)

Cells().Resize() ist zudem flexibler. Was machst Du bei Range(), wenn Du den gleichen Code eine Spalte weiter rechts einsetzen willst? Oder den Bereich um eine Spalte einengen willst?

Grüße
EarlFred

 

Hi Danke nochmals *Smilie
Komm aus der Java Ecke und VBA ist in vielen Sachen natürlich ähnlich, aber mit Range, Cells ect. in Excel natürlich sehr spezifisch *Smilie

Gut dass es hier so ein nettes Forum gibt (ähnlich wie StackeOverFlow für Java und co)

Schönes Wochenende und danke nochmals