< und > dann ausblenden
05.06.2008 08:47:30
Hannes
Möchte alle spalten ausblenden deren 7 Zeile kleiner der Eingabe und größer der Ausgabe ist.
z.b.: Eingabe = 5 und Ausgabe = 9
dann alle Spalten ausblenden in denen eine 1,2,3,4,10,11,12 etc stehen.
der Fehler muss in dieser zeile stechen:
If Cells(7, iCol).Value Ausgabe Then
Hier mein Programm:
Sub HideColumns()
Dim iCol As Integer
Dim Eingabe As Integer
Dim Ausgabe As Integer
Eingabe = InputBox("Ausdruck KW...? Eingabemöglichkeiten 1-25 ", "Eingabe ")
Tabelle2.Cells(37, 5) = Eingabe
Ausgabe = Eingabe + 5
Tabelle2.Cells(37, 7) = Ausgabe
Application.ScreenUpdating = False
For iCol = 3 To 256
If Cells(7, iCol).Value Ausgabe Then
Columns(iCol).Hidden = True
End If
Next iCol
Application.ScreenUpdating = True
End Sub
Für jeden Tipp bin ich dankbar
Der Hannes