Nur sichtbare Tabellenblätter anzeigen
04.01.2004 03:16:30
Stefan Glander
ich verwende folgenden Code:
Option Explicit
Public Sub Blattwechsel()
Dim intIndex As Integer
With UserForm1
intIndex = ActiveSheet.Index - 1
If intIndex = 0 Then intIndex = Worksheets.Count
.TextBox1 = Worksheets(intIndex).Name
intIndex = ActiveSheet.Index + 1
If intIndex > Worksheets.Count Then intIndex = 1
.TextBox2 = Worksheets(intIndex).Name
End With
End Sub
Nun habe ich in einer anderen Datei zusätzlich noch eine Checkbox mit folgendem Code belegt:
Private Sub CheckBox1_Click()
If CheckBox1 Then
Workbooks("Rechnungen.xls").Sheets(1).Visible = True
Else
Workbooks("Rechnungen.xls").Sheets(1).Visible = xlVeryHidden
End If
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
wenn ich nun die UF aufrufe werden dort aber in den Textboxen alle Tabellenblätter angezeigt.
Ich möchte aber nur das die nicht ausgeblendeten Tabellen in den Textboxen erscheinen.
Wer weiß Rat?
Gruss
Stefan Glander
Anzeige