 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - bkself
Seiten: [1]
1
« am: April 29, 2017, 13:23:14 Nachmittag »
Super Antwort. Mein Resume:
Da ja immer nur eine Zeile dazukommt kann man das Script ja so verändern:
kommt in Range("Name") ein Wert dazu, löst er die Anzeige des neuen Wertes der Range("ID") in der darunter noch ausgeblendeten Zeile aus. Dadurch soll er diese, zuzüglich der darüber liegenden eingeblendeten Zeilen im Ganzen, alle auf eingeblendet lassen und alle darunter im Block auf ausgeblendet lassen. Also nicht alle Zeilen einzeln prüfen.
Da schau ich doch mal, wie ich das hinbekomme. Und es wäre wohl völlig wurscht, wie viele Datensätze das Sheet hat.
2
« am: April 29, 2017, 10:58:44 Vormittag »
Moin,
ich hatte auch etwas gebastelt, jedoch speziell die Range("ID") benannt.
Sub Zeilen_einblenden()
Application.ScreenUpdating = False
For i = Range("ID").Row To Range("ID").Row + Range("ID").Rows.count - 1
If Range("ID").Cells(i, 1).Value > 0 Then
Range("ID").Rows(i).Hidden = False
Else
If Range("ID").Cells(i, 1).Value <= 0 Then
Range("ID").Rows(i).Hidden = True
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
Er funktioniert auch. Nur, ich habe den Eindruck, dass das durchlaufen der Schleife etwas dauert. Wobei bisher die Range bis auf Zeile 100 begrenzt war. Aber was passiert, wenn man mehr Zeilen füllt. An der Hardware kann es definitiv nicht liegen.
Wenn ich jetzt daraus eine intelligente Tabelle erstelle, komme ich irgendwann ja auch auf mehr als 100 gefüllte Zeilen. Jetzt kommt alternativ Dein Script.
Verstehe ich das richtig - Das durchlaufen der Schleife Deines Scriptes wird unterbrochen, sowie eine Zelle in der Range erscheint, welche nicht das Kriterium 0 erfüllt?
Danke für die Hilfestellung und nicht vergessen, soviel VBA hatte ich noch nicht.
3
« am: April 29, 2017, 05:38:52 Vormittag »
Hallo Günther, ich muss feststellen, das intelligente Tabellen echt gut sind. Die Möglichkeiten sind recht umfangreich. Danke für den Hinweis. Sie sind aber für mein Problem scheinbar nicht ausreichend hilfreich, oder ich übersehe etwas. - in meiner Tabelle sind nur die gefüllte Zeilen eingeblendet( hidden.false )
- wie automatisiere ich das einblenden der neuen Zeile, wenn der Wert in der Range("ID") größer 0 wird? Das knifflige daran aus meiner Sicht ist, dass diese Zeile bis zum auslösen der ID-Berechnung eben nicht eingeblendet ist.
4
« am: April 28, 2017, 22:09:07 Nachmittag »
Hi,
erstmal danke für die Antwort. Intelligente Tabellen sind mir völlig neu, da habe ich die Nacht zu tun.
5
« am: April 28, 2017, 17:57:43 Nachmittag »
Ein Hallo in die Gemeinde,
ich habe hier schon einiges durchgewühlt, aber noch keine Lösung.
Mein Problem in Office 2007:
ich habe ein Sheet mit einer Tabelle
die erste Spalte beinhaltet die Range("ID"), einige Spalten später die Range("Name")
alle noch nicht gefüllten Zeilen sind ausgeblendet
in den Zellen der Range("ID") steht folgende Formel:
Bsp. aus Zelle B13: =WENN($O12<>"";$C12+1;0) - Spalte B steht für die Range("ID"), Spalte O steht für die Range("Name")
Auslöser für die Formel in B13 ist also in dem Fall die Zelle $O12.
Die Zeile 13, wie auch alle nachfolgenden sind ausgeblendet. Durch die Berechnung erhöht sich der Zähler der ID automatisch um 1 und ist damit immer >0.
Als VBA-Lösung zum einblenden der Zeile 13 schwebt mir vor, all die Zeilen nach dem Calculate-Ereignis einzublenden, welche in der Range("ID") einen Wert >0 haben.
Da ich von VBA nur begrenzt Kenntnisse habe, wäre mir Hilfe sehr recht. Dafür schonmal Danke im Voraus.
Seiten: [1]
|
Beiträge anzeigen