Office: Ausblenden von Spalten

Hallo,

ich habe folgendes Problem:

Ich habe eine Fahrplantabelle in der in der ersten Spalte die Haltestellennamen stehen, in den weiteren (bis zu 5) Fahrzeiten und in den folgenden danach Fahrplanzeiten, die sich innerhalb der Tabelle errechnen.

Die ersten drei Zeilen sind reserviert für Verkehrstageregelung [tgl., W, W(Sa), Sa, S, Sa+S, wobei tgl.=täglich, W=werktags, Sa=samstags/sonnabends, S= sonn- und feiertags, (Sa)=außer samstags/sonnabends], Zugnummer und Liniennummer.

Ich möchte gerne nun Fahrpläne für einen bestimmten Verkehrstag (auch in Kombination z.B. [tgl.+W+W(Sa)]) haben, die anderen Fahrten sollen dann nicht dargestellt werden. Die ersten drei Zeilen und die Haltestellennamen sollen natürlich mit dargestellt werden.

Leider habe ich von Excel nicht die große Ahnung und komme mit dem, was mir bekannt ist, nicht weiter.

Würde mich freuen, wenn ich Hilfe bekomme.

Gruß

Laurent

 

Hallo!

Ich habe gerade mal versucht nach deiner Beschreibung eine Tabelle nachzubauen, aber irgendwie mag es mir nicht recht gelingen.
Magst du hier mal eine Bespielmappe hochladen, wir das genau aussieht?
Vielleicht hilft das meiner mangelnden Vorstellungskraft auf die Sprünge...

 

Ich empfehel einfach www.bahn.de
;-) ;-) ;-)

 

Hallo,

hier mal eine Beispieldatei.

www.bahn.de hilft da leider nicht weiter.;-)


Gruß

Laurent

ps.: Ich habe Office 2003. Sorry, hatte ich vergessen.

 

Hallo!

Wenn du deine Tabelle transponierst, also um 90° drehst, dann könntest du mit dem Autofilter arbeiten. (siehe Anhang)
Vielleicht ist das ja eine Option für dich.

 

Hallo,

hmm. und kann ich dann die transponierte Tabelle wieder zurückdrehen? :-? Und wenn ich etwas ändere muss ich dann jedesmal zweimal transponieren und formatieren.
Ich brauche nämlich die Tabelle zum offiziellen Weitergeben, sprich sie wird beruflich wieder eingespielt. Und da ist diese transponierte Tabelle leider nicht geeignet.

Die Sache mit dem Auto-Filter hatte ich auch schon im Blick, aber habe halt davon Abstand genommen, weil Haltestellenname links stehen sollte.

Gruß

LaurentD

 

Hallo!

Dann geht's wohl nur mit VBA:
Rechtsklicke in deiner Beispieldatei auf den Tabellenreiter und wähle "Code anzeigen"
Füge diesen Code in das Codefenster rechts ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Bereich As Range
Dim Spalte As Range
Application.ScreenUpdating = False
For Each Spalte In UsedRange.Columns
Spalte.Hidden = False
Next Spalte
Set Bereich = Range(Cells(1, 3), Range("IV1").End(xlToLeft))
If Target.Address = "$A$1" Or Target.Address = "$A$2" _
Or Target.Address = "$A$3" Then
For Each Zelle In Bereich
If Zelle.Value <> Range("A1").Value And Zelle.Value <> Range("A2").Value _
And Zelle.Value <> Range("A3").Value Then
Zelle.EntireColumn.Hidden = True
End If
Next Zelle
End If
If Application.WorksheetFunction.CountBlank(Range("A1:A3")) = 3 Then
For Each Spalte In UsedRange.Columns
Spalte.Hidden = False
Next Spalte
End If
Application.ScreenUpdating = True
End Sub

Nun kannst du in den Zellen A1, A2 und A3 maximal drei Kriterien festlegen, nach denen gefiltert werden soll.
Um den Filter wieder aufzuheben, lässt du alle drei Zellen leer.

Passt es so?

 

Hallo,

das ist ja toll... :-o :-)

Vielen Dank

Gruß

Laurent