wie kann ich alle Tabellen (deren Anzahl und Namen ständig wechseln) ausser der TAbelle 1 ausblenden. Danke und SErvus
Eure Hilda
Option Explicit
Private Sub Ausblenden()
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "Tabelle1" Then Sheets(InI).Visible = False
Next InI
End Sub
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Gruß Hajo
HTH, Matthias
Dort siehst du links im " Projekt-VBAProject" fenster deine gesammte Arbeitsmappe.Wenn du zum Beispiel die Tabelle 2 nicht sehn möchtest einmal anklicken. Darunter musst du das Eigenschaftsfenster offen haben. Wenn nicht oben hast du eine symbolleiste unter "Ansicht" - " Eigenschaftsfenster" kannst du es einschalten. Wenn du im Eigenschaftsfenster bist hast du unten " Visible" stehen und daneben "-1-xlSheetVisible". Das anklicken und auf " 0-xlSheetHidde" setzen.
Das kannst du mit jeder Tabelle machen.