Microsoft Excel

Herbers Excel/VBA-Archiv

Was bewirkt diese Snippet

Betrifft: Was bewirkt diese Snippet von: Marcus Kempf
Geschrieben am: 07.11.2014 08:34:25

Hallo,

kann mir kurz jemand Step by Step die Funktionsweise dieses Scriptauszuges erläutern?

Danke im Voraus.

 MaxRow = ExecuteExcel4Macro("LOOKUP(2,1/('" & .Name & "'!R1C2:R1000C2<>""""),ROW('" & .Name & " _
'!R1C2:R1000C2))")
    On Error Resume Next
    .UsedRange.Columns(1).Rows.Ungroup

  

Betrifft: Letze gefüllte Zeile von: {Boris}
Geschrieben am: 07.11.2014 08:45:05

Hi Marcus,

damit wird die letzte gefüllt Zeile ermittelt.
Die Funktionsweise der Formel findest Du hier (unten unter "Erläuterung"):
http://www.excelformeln.de/formeln.html?welcher=48

VG, Boris


  

Betrifft: AW: Letze gefüllte Zeile von: Marcus Kempf
Geschrieben am: 07.11.2014 09:01:19

Mir ging es vor Allem auch um den Ungroup-Teil,


Ich würde diesen gern so abändern, dass erst ab Zeile 43 die Gruppierungen aufgehoben werden.


  

Betrifft: Gruppierung ab Zeile ... aufheben von: {Boris}
Geschrieben am: 07.11.2014 09:40:43

Hi Marcus,

statt Columns(1) gib den Bereich an, z.B.

Range("A43:A1000").Rows.Ungroup

VG, Boris


  

Betrifft: AW: Gruppierung ab Zeile ... aufheben von: Marcus Kempf
Geschrieben am: 07.11.2014 09:46:34

Hallo Boris,

ich habe herausgefunden, es geht sogar noch einfacher:


    .Rows("43:422").Ungroup

Wenn ich aber Folgendes versuche:

    MaxRow = ExecuteExcel4Macro("LOOKUP(2,1/('" & .Name & "'!R1C2:R1000C2<>""""),ROW('" & .Name  _
& "'!R1C2:R1000C2))")
    On Error Resume Next
    .Rows("43:MaxRow").Ungroup

dann funktioniert das Ganze nicht mehr richtig.

Ist dies die richtige Weise die Variable MaxRow (Long) anzusprechen?


  

Betrifft: .Rows("43:" & MaxRow) von: {Boris}
Geschrieben am: 07.11.2014 09:48:04

VG, Boris


  

Betrifft: AW: .Rows("43:" & MaxRow) von: Marcus Kempf
Geschrieben am: 07.11.2014 10:12:39

Danke, nun sind zu dieser Problematik alle Fragen beantwortet, funktioniert tadellos.

Kannst Du mir zu meinem anderen Post bezüglich der Gruppierungen eventuell auch einen Tipp geben?