Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten Ausblenden wenn =#NV

Spalten Ausblenden wenn =#NV
cooler
Hallo
ich habe eine Tabelle in der es viele Spalten gibt in denen z.B. in der 6. Zeile eine Formel steht, die das Ergebnis #NV ausgibt.
Jetzt möchte ich diese Spalten ausblenden, in denen in der 6. Zeile #NV steht. (über Makro)
wer kann helfen?
Gruss
Jürgen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten Ausblenden wenn =#NV
10.10.2010 16:07:53
Hajo_Zi
Hallo Jürgen,
Option Explicit
Sub Juergen()
Dim InLetzte As Integer
Dim InI As Integer
InLetzte = IIf(IsEmpty(Cells(6, Columns.Count)), Cells(6, Columns.Count).End(xlToLeft). _
Column, Columns.Count)
For InI = 1 To InLetzte
Columns(InI).EntireColumn.Hidden = Cells(6, InI).Text = "#NV"
Next InI
End Sub

AW: Spalten Ausblenden wenn =#NV
10.10.2010 16:18:16
Dirk
Hallo!
dazu ein kleines Macro laufen lassen:
Sub Spalte_EINAUS()
Dim LastCol As Long, i As Long
LastCol = Range(Cells(1, 256).Address).End(xlToLeft).Column
For i = LastCol To 1 Step -1
If Cells(6, i).Value = "#NV" Then
ActiveSheet.Columns(i).Hidden = True
Else
ActiveSheet.Columns(i).Hidden = False
End If
Next i
End Sub

Gruss
Dirk aus Dubai
Anzeige
AW: Spalten Ausblenden wenn =#NV
10.10.2010 16:27:12
cooler
Hallo,
funktioniert super,
jetzt brauch ich aber noch einen code um alle spalten einzublenden.
gruss
jürgen
AW: Spalten Ausblenden wenn =#NV
10.10.2010 16:53:28
Hajo_Zi
Hi,
Sub Juergen2()
Cells.EntireColumn.Hidden = False
Range("A1").Select
End Sub
Gruß Hajo

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige