Spalten auf Befehl ausblenden
04.12.2019 18:41:38
CH
Ich hoffe Ihr könnt mir bei der Lösung meines Problem helfen. Ich musste Daten aus 3 Tabellen in eine zusammenfügen. Da nicht alle Spalten für alle Anwender nötig sind, habe ich mir gedacht ich könnte mit "Spalten ausblenden" die Tabelle auf die Relevanten Spalten "kürzen".
Das heisst z.B.
1 = Bauvorhaben = Spalte C-E ausblenden
2 = Auftragsliste = Spalte B, F, H ausblenden
3 = Ferienliste = Spalte D-F, I ausblenden
Ich habe diesen Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Select Case Target.Value
Case Is = 5
Worksheets("Tabelle1").Columns("B:D").Hidden = True
Case Is = 6
Worksheets("Tabelle1").Columns("B:D").Hidden = False
End Select
End If
End Sub
Meine Frage ist jetzt, wie muss ich diesen Code anpassen. Auf diese Variante kann ich ja Spalten "von - bis" ausblenden. "B:D"
Kann ich auch einzelne Spalten B + D + F oder B + D-F.
Ich hoffe ihr wisst was ich möchte :o).
Besten Dank für Eure Hilfe
Limited