Meldung bei ausgeblendeten Spalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim ws As Worksheet, i As Long Dim str As String For Each ws In ThisWorkbook.Worksheets For i = 1 To ws.UsedRange.Columns.Count If ws.Columns(i).EntireColumn.Hidden = True Then _ str = str & Chr(10) & ws.Name & " Spalte " & Chr(i + 64) Next i Next ws If str "" Then MsgBox "Folgende Spalten sind ausgeblendet: " & str End Sub

Hallo Chris,
lese hier mit, weil mich das auch interessiert.
Deine Ausgabe der Spalte in der MessageBox ist ja eine "Draufgabe" deinerseits.
Aber das funktioniert mit Chr(i + 64) nur bei Spaltenbuchstaben bis Spalte Z, oder sehe ich da was falsch?
Ich hab mal ein wenig im Archiv gestöbert und für die Umwandlung von der Spaltennummer in den Spaltenbuchstaben folgende Version von Luschi gefunden (ich möchte mich nicht mit fremden Federn schmücken).
Was hälst du davon?

Public Sub aaa()
Dim wsBlatt As Worksheet, i As Long
Dim strSpalte As String
Dim strSPBuchstabe As String
Dim strAdresse As String
For Each wsBlatt In ThisWorkbook.Worksheets
For i = 1 To wsBlatt.UsedRange.Columns.Count
If wsBlatt.Columns(i).EntireColumn.Hidden = True Then
strAdresse = Cells(1, i).Address(True, False)
strSPBuchstabe = Left(strAdresse, InStr(1, strAdresse, "$") - 1)
strSpalte = strSpalte & Chr(10) & wsBlatt.Name & " Spalte " & strSPBuchstabe
End If
Next i
Next wsBlatt
If strSpalte  "" Then MsgBox "Folgende Spalten sind ausgeblendet: " & Chr(10) & strSpalte
End Sub

Gruß Werner

Private Function SpaltenIndex2Text(intSpalte As Integer) As String Dim int1 As Integer, int2 As Integer int1 = Int(intSpalte / 27) int2 = intSpalte - (int1 * 26) If int1 > 0 Then SpaltenIndex2Text = Chr(int1 + 64) SpaltenIndex2Text = SpaltenIndex2Text & Chr(int2 + 64) End Function

Option Explicit Private Sub Workbook_Open() Dim sTabNamen As String sTabNamen = Check_Not_Visible If sTabNamen <> "" Then MsgBox sTabNamen, vbInformation, "Ausgeblendete Spalten in ..." End If End Sub

Option Explicit Function Check_Not_Visible() As String Dim oWS As Worksheet Dim rngTmp As Range Dim sTabName As String On Error Resume Next For Each oWS In ThisWorkbook.Worksheets Set rngTmp = oWS.Cells.SpecialCells(xlCellTypeVisible) If rngTmp.Columns.Count < oWS.Columns.Count Then sTabName = sTabName & oWS.Name & vbCr End If Next If sTabName <> "" Then sTabName = Left$(sTabName, Len(sTabName) - 1) Check_Not_Visible = sTabName End Function

Sub fhfg() Dim TB, Anzahl As Integer For Each TB In Sheets Anzahl = TB.UsedRange.Cells.Count - _ TB.UsedRange.SpecialCells(xlCellTypeVisible).Cells.Count If Anzahl 0 Then MsgBox "Blatt '" & TB.Name & "' enthält ausgeblendete Elemente" End If Next End Sub

Option Explicit Private Sub Workbook_Open() Dim TB, Anzahl As Integer For Each TB In Sheets Anzahl = TB.Columns.Count - _ TB.Rows(1).SpecialCells(xlCellTypeVisible).Count If Anzahl <> 0 Then MsgBox "Blatt '" & TB.Name & "' enthält ausgeblendete Spalten" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Meldung bei ausgeblendeten Spalten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Meldung bei ausgeblendeten Spalten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread