Hallo zusammen,
ich stehe vor einem kleinen Problem. Ich möchte gerne ein Makro erstellen, dass Automatisch Spalten ausblendet.
Die bedingung zum ausblenden sind wenn in der Zeile 1 der wert 1 vorkommt.
Da man dies wohl mit einer For schleife verknüpfen muss wäre es zugunsten der Perfomance gut wenn eine zusätzliche Prüfung auf einen Wert ungleich 1 bzw. = 0.
In meiner Tabelle ist es möglich, dass in den ersten x Spalten in Zeile 1 kein Wert enthalten ist, jedoch wird nachdem die Spalten>x mit Zeile 1=1 keine weitere Prüfung benötigt wenn wieder eine Spalte mit Zeile 1 = 0 erscheint.
Bildlich gesprochen:
0|0|0|0|1|1|1|1|1|1|1|1|1|1|0|0|0|0|0|0|0|0|
n|n|n|n|a|a|a|a|a|a|a|a|a|a|e|
n= nicht ausblenden
a= ausblenden
e= Ende der prüfung - diese Spalte darf nicht ausgeblendet werden
Das habe ich bisher veranstaltet:
Sub SpaltenenAusblenden()
Dim i As Long
Dim j As Long
j = 1
For i = 1000 To UsedRange.Columns.Count
If Range(i & j) = 1 Then
Range(i & j).Columns.Hidden = True
End If
If Range(i-1 & j) = 1 Then
If Range(i & j) = 0 Then
i = 1000
Next
End Sub
Bin leider sehr VBA unerfahren, weswegen die Syntax natürlich nicht funktioniert.
Ich danke schon einmal im Voraus.
Gruß
Tribal
|