tabellen ausblenden
04.03.2003 09:10:58
roland_k
hier nochmal ich habe eine mappe mit 5 tabellen
in tabelle1 habe num in spalte A ab zeile 3 namen stehn
dannhabe ich folgendes makro das mir zu jedem namen (von A3 bis A(x))
tabellen anlegt.
Private Sub CommandButton1_Click() 'tabellen anlegen
Dim i As Integer
Dim tabelle As Worksheet
Dim zeile As Long
Dim tabelleI As Worksheet
Dim tabellennamen As String
Dim zelle As Long
Set tabelle = ThisWorkbook.Sheets("tabelle1")
For Each tabelleI In ThisWorkbook.Sheets
tabellennamen = tabellennamen & tabelleI.Name & ","
Next tabelleI
For zeile = 3 To tabelle.Range("A65536").End(xlUp).Row
If Trim(tabelle.Cells(zeile, 1)) <> "" Then
If InStr(1, tabellennamen, Trim(tabelle.Cells(zeile, 1))) = 0 Then
Worksheets.Add
ActiveSheet.Name = Trim(tabelle.Cells(zeile, 1))
tabellennamen = tabellennamen & Trim(tabelle.Cells(zeile, 1)) & ","
End If
End If
Next zeile
Sheets("tabelle1").Select
End Sub
Jetzt habe ich tabelle1 - tabelle5 und die angelegten namen
mit dem folgenden code:
Private Sub CommandButton3_Click() 'tabellen ausblenden bis auf (tabelle1)
'das active blatt bleit übrig
Dim blatt As Object
For Each blatt In Sheets
If blatt.Name <> ActiveSheet.Name Then
blatt.Visible = False
End If
Next blatt
End Sub
hier werden alle ausgeblendet bis auf die active tabelle .....
ich will aber nur die namen alle ausblenden nicht aber tabelle2 - tabelle5....tabelle 1 bleibt eh eingeblendet
da ich in der tabelle1 Zellen A3 - Zellen A(x)
namen hinzufüege oder rausnehme sollen eben immer alle tabellen ausser tabelle1-5 ausgeblendet werden
hmm hoffe doch dass verständlich ist was ich hier meine
danke
roland