Gezielt Spalten ausblenden (teil 3)
26.08.2003 13:00:58
Thorsten
dank eurer hilfe bin ich gut vorangekommen.
Um gezielt einige Spalten auszublenden habe ich folgende
Programmierung benutzt:
Sub SpaltenAusblenden()
Dim Target, i As Integer
Target = Cells(12, 6) 'Spalte f12 in Arbeitsmappe 1
For i = 18 To 115 'Spaltenindex Spalte Q bis DK
If Sheets("Bal - Origen").Cells(2, i).Value >= Target Then
Sheets("Bal - Origen").Columns(i + 1).EntireColumn.Hidden = True
End If
Next i
End Sub
klappt auch alles ganz gut, allerdings treten folgende Probleme auf:
(a) beim ersten Mal:
wenn ich eine Zahl in Arbeitsmappe 1 angebe muss ich erst noch
"Makro Ausfuehren" aufrufen bevor die jeweiligen Spalten
in "Bal - Origen" ausgeblendet werden.
(b) bei nachfolgenden Veraenderungen:
wenn ich die Zahl in Arbeitsmappe 1 kontinuierlich veraendern moechte,
werden die Spalten in "Bal - Origen" NICHT AUTOMATISCH aus- bzw
eingeblendet. Es wird immer nur der ERSTE wert anerkannt (siehe a).
Wie kann ich beide Prozesse automatisch / dynamisch ablaufen lassen ?
Wer hat eine Idee ?
Thorsten