Wenn best Spalten alle eingeblendet sind,dann...

Hallo Michael,
vorerst vielen Dank für deinen Vorschlag!. Anbei der ganze Code..., denn leider kommt die msgbox... "Not more..." immernoch auch wenn nicht alle Spalten eingeblendet sind.

Public Sub AddingProcess()
Application.ScreenUpdating = False
Dim ws4 As Worksheet
Dim intLastC As Integer
Dim i As Integer
Set ws4 = ThisWorkbook.Worksheets("Calculation")
ActiveSheet.Unprotect
'wenn  Prozessschritt (Spalte) eingeblendet ist, dann blende die nächste ein, und zwar nur  _
diese
'Zähler Rückwärts
' Anfang: Spalte P, bis Spalte H
For i = 16 To 8 Step -1
'Blende zuerst die letzte Spalte hinter der letzt eingeblendeten ein
If ws4.Columns(i).Hidden = False Then
ws4.Columns(i + 1).Hidden = False
'wenn eine Spalte von P bis H ausgeblendet ist, dann blende diese ein
ElseIf ws4.Columns(i).Hidden = True Then ws4.Columns(i).Hidden = False
Exit For
End If
Next i
Dim r As Range
Set r = Range("H1:P1")
On Error Resume Next
If r.SpecialCells(xlCellTypeVisible) Is Nothing Then
'...Code wenn Spalten H:P vollständig ausgeblendet sind
MsgBox "Passt, H:P ausgeblendet"
Else:
'...Code wenn eine oder mehrere Spalten H:P eingeblendet sind
MsgBox "Not more than... "
End If
'If ws4.Columns("H:P").Hidden = False Then
'MsgBox "EN: More than 10 process steps not possible!" _
'& Chr(13) & Chr(13) & "DE: Es können maximal 10 Prozessschritte erstellt werden!", vbOKOnly +  _
vbInformation, _
'"Information"
'End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B5").Select
Application.ScreenUpdating = True
End Sub

Hallo Michael,
danke dir!, der Code läuft. Mit dem Spalten einblenden, gibt es ein paar Anforderungen.
Wie bau ich dein Code am besten ein ?


Public Sub AddingProcess()
Application.ScreenUpdating = False
Dim ws4 As Worksheet
Dim intLastC As Integer
Dim i As Integer
Set ws4 = ThisWorkbook.Worksheets("Calculation")
ActiveSheet.Unprotect
'wenn  Prozessschritt (Spalte) eingeblendet ist, dann blende die nächste ein, und zwar nur  _
diese
'Zähler Rückwärts
' Anfang: Spalte P, bis Spalte H
'  For i = 16 To 8 Step -1
'  'Blende zuerst die letzte Spalte hinter der letzt eingeblendeten ein
'  If ws4.Columns(i).Hidden = False Then
'   ws4.Columns(i + 1).Hidden = False
'  'wenn eine Spalte von P bis H ausgeblendet ist, dann blende diese ein
'   ElseIf ws4.Columns(i).Hidden = True Then ws4.Columns(i).Hidden = False
'   Exit For
' End If
' Next i
Dim r As Range: Set r = Range("H1:P1")
Dim c As Range
For Each c In r
If c.EntireColumn.Hidden = False Then i = i + 1
Next c
If i = r.Cells.Count Then MsgBox "EN: More than 10 process steps not possible!" _
& Chr(13) & Chr(13) & "DE: Es können maximal 10 Prozessschritte erstellt werden!", vbOKOnly +  _
vbInformation, _
"Information"
Set r = Nothing: Set c = Nothing
'If ws4.Columns("P").Hidden = False Then
'MsgBox "EN: More than 10 process steps not possible!" _
'& Chr(13) & Chr(13) & "DE: Es können maximal 10 Prozessschritte erstellt werden!", vbOKOnly +  _
vbInformation, _
'"Information"
'Else: MsgBox "ok"
'End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B5").Select
Application.ScreenUpdating = True
End Sub

Wenn best Spalten alle eingeblendet sind,dann...

Forumthread: Wenn best Spalten alle eingeblendet sind,dann...

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wenn best Spalten alle eingeblendet sind,dann...

Forumthread: Wenn best Spalten alle eingeblendet sind,dann...

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread