|
Ende einer Gruppe finden
|
02.12.2018, 20:05
Ha((o
Möchte in VBA eine Gruppe (Zeilen) um eine weitere Zeile erweitern. Wie finde ich die letzte Zeile einer Gruppierung, füge eine neue Zeile und erweitere um diese Zeile die Gruppe. Hat jemand einen guten Tipp? Danke Nyn007 
02.12.2018, 22:23
Hallo,
zeige mal deine Liste, ich ahne fürchterliches.
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden 
02.12.2018, 22:50
Hallo Klaus-Dieter,
meinst du hier in dem X-Post kommt noch was ? https://www.ms-office-forum.net/forum/sh...p?t=356182 Ich wüsste da ja was, wenn zwischen den 'Gruppen' ... eine Leerzeile wäre ...
VG Sabina
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
16.12.2018, 03:02
Ha((o
Sorry. War längere Zeit abwesend. Ich habe es gelöst. Mit diesem Code. z1 = ActiveCell.Row If Cells.Rows(z1).OutlineLevel = 1 Then If Cells.Rows(z1 + 1).OutlineLevel = 1 Then MsgBox ("Nicht innerhalb einer Gruppe") Exit Sub End If End If While (Not Cells.Rows(z1 + 1).OutlineLevel = 1) z1 = z1 + 1 Wend z2 = z1 While (Not Cells.Rows(z2).OutlineLevel = 1) z2 = z2 - 1 Wend Rows(z1 + 1).Insert Shift:=xlDown Grüße Nyn007
Nyn007
|
|
|
