Thema Datum  Von Nutzer Rating
Antwort
03.03.2017 10:52:44 Marcel
NotSolved
Blau Bestimme Anzahl von Spalten markieren
 13.03.2017 05:00:41 Kai
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
13.03.2017 05:00:41		 Views:
635		 Rating:
     
Antwort:
  Ja
Thema:
Bestimme Anzahl von Spalten markieren

Hallo Marcel,

ich habe es so verstanden, dass alle Spalten, die nach den 20 anzuzeigenden Spalten existieren auszublenden sind.

Ich hoffe dies löst das geschilderte Problem.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub spaltenAusblenden()
Dim c As Integer, cols As Integer, i As Integer, lastCol As Integer, hiddenCols As Integer, colsToHide
 
'eingeblendete Spalten ermitteln
'1. Anzahl der benutzten Spalten ermitteln
lastCol = Sheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column
'2. Anzahl ausgeblendeter Spalten ermitteln
hiddenCols = ausgeblendeteSpaltenZaehlen
 
'Anzahl anzuzeigender Spalten ermitteln:
'Anzuzeigen sind Spalte B + 20 nicht ausgeblendete Spalten
'ist keine Spalte ausgeblendet, müssen Spalten (1 & 2 sowie die nächsten 20 = 22 Spalten angezeigt werden. Ab Spalte 23 ausblenden)
i = lastCol - hiddenCols - 22
 
'
If i > 0 Then
    colsToHide = 23 + hiddenCols
'Spalten ausblenden
With Sheets("Tabelle1")
    .Range(.Cells(1, colsToHide), .Cells(1, lastCol)).Columns.Hidden = True
End With
End If
 
 
End Sub
 
 
 
Function ausgeblendeteSpaltenZaehlen()
 
Dim a As Integer, c As Integer, lc As Integer
 
'Letzte verwendete Spalte ermitteln
lc = Sheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column
'Schleife über alle verwendeten Spalten. Sobald eine ausgeblendet ist, wird diese gezählt
    For a = 1 To lc
        If ActiveSheet.Columns(a).EntireColumn.Hidden = True Then c = c + 1
    Next a
    'Ausgabe der Anzahl der ausgeblendeten Spalten
    ausgeblendeteSpaltenZaehlen = c
End Function

Viele Grüße

 

Kai

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.03.2017 10:52:44 Marcel
NotSolved
Blau Bestimme Anzahl von Spalten markieren
 13.03.2017 05:00:41 Kai
NotSolved