Spalten ausblenden wenn Bedingung erfüll

Sub Spalte_ausb() Dim intSpalte As Integer Application.ScreenUpdating = False For intSpalte = 1 To 256 If Cells(1, intSpalte) = "" Then Columns(intSpalte).EntireColumn.Hidden = True End If Next Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus Namensvetter,
nein, das hast du nicht vollständig richtig interpretiert. Ersetze in deinem Text "Spalte" durch "Zeile", dann passt es wieder halbwegs :-)
Der von dir gezeigte Code geht von Spalte 1 (=A) bis Spalte 256 (=IV) die erste Zeile (also von A1 bis IV1) durch und prüft ob diese Zelle leer ist. Wenn leer, dann die ganze Spalte ausblenden, falls nicht leer zur nächsten Spalte weitergehen. Wenn du die 1 durch eine 3 ersetzt, dann prüft er A3-IV3.
Die Sntax lautet "Cells(Zeilenindex, Spaltenindex)".
Verbundene Zellen sollten im Idealfall ohnehin vermieden werden und sind es i.d.R. auch zu 99,9%.
Sind die Abstände/auszublendenden Bereiche immer 4 Spalten breit, oder variieren sie?
Experimentiere vielleicht mal mit sowas hier:


Sub Verbunden()
Dim Zelle As Range
For Each Zelle In Worksheets("Tabelle1").UsedRange
If Zelle.CurrentRegion.Count > 1 Then
MsgBox "Die Zelle " & Zelle.Address & " ist mit " & Zelle.CurrentRegion.Count & _
" verbunden", , "Hinweis"
End If
Next Zelle
End Sub

Grüße, Bernd

Sub Spalte_ausb() Dim intZelle As Integer Application.ScreenUpdating = False For intZelle = 1 To 100 If Cells(3, intZelle) = "z" Then Columns(intZelle).EntireColumn.Hidden = True End If Next Application.ScreenUpdating = True End Sub

Servus Namensvetter,
ich verstehe gerade nur Bahnhof bei der Beschreibung.
Es gibt natürlich Funktionen welche dann nicht geprüft werden brauchen und mit einem z mangezeigt werden. Wo angezeigt? in der Zeile 3 von Spalte A bis IV?
Die Spalten will ich dann ausblenden. Problem ist sicherlich das die Spalte eine Verbundene Spalte ist über 4 Zeilen. Es müssen dann also auch 4 Spalten ausgeblendet werden... Das z steht immer in Spalte 3 (=C) Was denn nun? Spalten, oder Zeilen?
Lade im Idealfall mal eine Beispieldatei mit vereinfachten/verfälschten Daten hoch und erkläre in diesem konkreten Beispiel/der Datei deine Vorstellungen. Ich kann mir aktuell die Struktur nur bedingt vorstellen...
Grüße, Bernd

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden wenn Bedingung erfüll

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden wenn Bedingung erfüll

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread