Zeilen ausblenden

Question

Hallo Liebe Leute

Ich habe eine Exceltabelle und möchte Zeilen automatisch ein und ausblenden.

In der Spalte G7-G206 steht überall der Wert 0 die sollten automatisch ausgeblendet werden.

Sollte der Wert aber zwischen 1 und 500 liegen, in der Spalte G7-G206 so sollten die Zeilen wieder automatisch eingeblendet werden.

Wenn es möglich ist, solte alles automatisch bei anklicken der Tabelle passieren.

Ich hoffe dass mir jemand helfen kann

Gruss Gregy

Answer 1

Hallo Cregy,

Könnte dass von dem Sortiermakro kommen

... woher soll ich das wissen, wenn Du uns den bisherigen Code oder besser noch, die ganze Mappe nicht zeigst?

Deine Beispielmappe könnte Abhilfe bringen.

Gruß
Rainer

Answer 2

Hallo Rainer

Das ist der Code, der in Tabelle2 steht zum automatischen sortieren.

Sub SortiereSpalteAbsteigend()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "B6:G207"
Sortierspalte = "G"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlDescending, Key2:=Range(Sortierspalte & "1"), Order2:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Private Sub Worksheet_Activate()

Range("B6:G207").Sort Key1:=Range("G6"), Order1:=xlDescending, Key2:=Range("D6"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Es ist eine ganz normale Datei mit 2 Tabellen die verknüpft sind miteinander. Tabelle1 ist für eingaben und Tabelle2 ist zum Drucken.

Gruss Gregy

Answer 3

Hallo Gregy,

lösche sämtlichen Code aus Tabelle2 und füge folgenden ein

Option Explicit

Private Sub Worksheet_Activate()
Dim rngC As Range
Application.ScreenUpdating = False
Range("B6:G207").Sort Key1:=Range("G6"), Order1:=xlDescending, Key2:=Range("D6")
For Each rngC In Range("G7:G206")
If rngC.Value = 0 Then
Rows(rngC.Row).EntireRow.Hidden = True
ElseIf rngC.Value > 0 Then
Rows(rngC.Row).EntireRow.Hidden = False
End If
Next
End Sub

Wenn es immer noch nicht klappt, lade bitte die Datei hoch.

Gruß
Rainer

Answer 4

Hallo Rainer

Es funktioniert schon fast obtimal, nur der Rang in Spalte A kommt jetzt durcheinander. Gibt es eine möglichkeit dass die Nummern fortlaufend sind.

Beispiel jetziger zustand:

Rang Name
1 Auer Urs
2 Baumann Albert
3 Berger Arthur
4 Berger Heinrich
5 Alabor Walter
6 Althaus Fritz
101 Bernhard Paul
102 Berliat Martin
154 Besserer Walter

Gruss Gregy

Answer 5

Hallo Gregy,

Wenn es immer noch nicht klappt, lade bitte die Datei hoch.

...das war mein letzter Vorschlag in diesem Thread, wenn Du in nicht befolgst, ist an dieser Stelle Schluss mit meiner Hilfe.

Gruß
Rainer

Answer 6

Hallo Rainer

Wie lade ich überhaut eine Datei hoch, ich finde nirgends ewas.

Ich bin noch neu in diesem Forum

Gruss Gregy

Answer 7

Hallo Gregy,

Du stellst Deine Mappe über diese Adresse online und bekommst dort einen Download-Link gezeigt, den Du hier im Beitrag, unter Nutzungng der am oberen Rand des Antwortfensters, zuständigen HTML-Tags, postest.

Gruß
Rainer

Answer 8

Hallo Rainer

Danke für Deinen unermüdlichen Einsatz

Ich hoffe es hat geklapt mit der Datei hochladen.

Ich müsste Die Tabellen 1 - 12 Automatisch Sortieren, Zellen bei 0 ausblenden und bei einem Wert von 1 - 500 wieder einblenden.
Und wenn es geht alles Automatisch.

www.file-upload.net/download-3611807/Veteranenschiessen-Programm.xls.html

Gruss Gregy

Answer 9

Hallo Gregy,

anbei die geänderte Datei zurück.


Download

Gruß
Rainer

Answer 10

Hallo Rainer

Es sieht gut aus, aber der Rang auf Spalte A kommt jetzt durcheinander, wenn ich Daten Eingebe.

Die Spalte A Rang ist nicht mehr fortlaufend

Kann man da etwas machen

Gruss Gregy