Tabelle aufräumen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hugo
evtl. mit einer extra Liste?
Tabelle1

	A	B
1	Zuständige	Hier Datenliste nehmen
2	Hans	Hans
3	Fritz	Fritz
4		sss
5	sss	Bruno
6	Bruno	Heinz
7	Heinz	Andreas
8		Günter
9	Andreas	Karl
10
11	Günter
12	Karl
13
14
15
16		<---in A16 ein Leerzeichen

verwendete Formeln
Zelle	Formel
B2	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B3	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B4	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B5	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B6	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B7	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B8	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B9	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B10	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B11	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}
B12	{=INDIREKT("A"&KKLEINSTE(WENN(A$1:A$15<>0;ZEILE($1:$15);16);ZEILE()))}

{} Matrixformel mit Strg+Umschalt+Enter abschließen

Tabellendarstellung in Foren

formel aus:
http://www.excelformeln.de/formeln.html?welcher=160
gruss hary

Hallo Robert
Dieser Teil (mit den Namen) in einer Spalte dient nur dazu, als "Datenfütterung"bei einer "Namensauswahl-Box" zu fungieren. Wird ein Name nun im Teil der Spalte (mit den Namen) gelöscht hat dies keine Auswirkung auf die Zelle wo der Namen durch eben diese Auswahl bereits eingefügt wurde. Anmerkung: Ein Hinweis beim möglichen Löschen eines Namens für den Anwender muss dann natürlich angezeigt werden.
Damit dann in dem Teil der Spalte wo die Namen aufgelistet sind nach dem Löschen keine Leerzellen vorhanden sind, will ich mit dem Aufrücken von unten bezwecken, dass in der "Namensauswahl-Box" keine "Löcher" angezeigt werden.
Ich habe nun die Sache so gelöst, dass ich den Bereich (mit den Namen) markiere und über die Sortierfunfktion (von A-Z) diese Löcher auch "entfernen" kann. Nach dem Aufzeichnen habe ich nun den VB-Code und kann in einbauen. Vielleicht nicht die schönste Lösung aber sie funktioniert mit dem kleinen Nebeneffekt, dass die Namen auch noch alphapetisch sortiert sind.
Danke dir für deine Hilfestellung aber auch der Anregung, die bei mir auch einige Gedankengänge aktiviert hat.
Gruss
Hugo

Sub LEEREZEILEN_WEG() ' löscht alle Leerzeilen in allen Tabellen der Mappe ' ansonsten einfach "Blatt" setzen Dim ac As Long, z As Long, zm As Long Dim ws As Worksheet For Each ws In Sheets With ws If Application.WorksheetFunction.CountA(.Cells) > 0 Then ac = Application.Calculation Application.Calculation = xlCalculationManual zm = .Cells.Find(what:="*", After:=.Range("A1"), _ searchOrder:=xlByRows, SearchDirection:=xlPrevious).Row - 1 For z = zm To 1 Step -1 If Application.WorksheetFunction.CountA(.Rows(z).EntireRow) = 0 Then .Rows(z).EntireRow.Delete End If Next z Application.Calculation = ac End If End With Next ws End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread