Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets ausblenden über VBA

Forumthread: Sheets ausblenden über VBA

Sheets ausblenden über VBA
27.04.2006 15:50:34
Torsten
Hallo beisammen,
ich weiß zwar, wie ich ein WS über VBA-Code ausblenden kann, aber wie muß der Code lauten, wenn ich alle WS ausblenden möchte, die mit "B" beginnen?
Vielen Dank für Eure Hilfe.
Gruß
Torsten
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets ausblenden über VBA
27.04.2006 16:00:40
ede
hallo torsten
for i=1 to sheets.count
if left(sheets(i).name,1) = "W" then
next i
gruss
AW: Sheets ausblenden über VBA
27.04.2006 16:14:12
Torsten
Hallo Ede,
vielen Dank für Deine Rückmeldung.
Hier scheint Excel aber die Syntax noch nicht zu gefallen:

Private Sub cmb_SHOWWS_Click()
Dim i As Integer
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "B" or _
If Left(Sheets(i).Name, 1) = "E" Then
Sheets(i).Visible = True
Next i
End Sub

Kannst Du noch mal drüberschauen?
Vielen Dank und
Gruß
Torsten
Anzeige
AW: Sheets ausblenden über VBA
27.04.2006 16:16:19
ede
las das if nach dem or weg
erledigt - Vielen Dank und Gruß Torsten oT
27.04.2006 16:20:39
Torsten
;

Forumthreads zu verwandten Themen

sheet / tabelle is selected ?
t4z

Hallo Leute,
ich möchte gern auf jedem Sheet einer Arbeitsmappe in das Worksheet_Activate-Event folgendes schreiben:
Private Sub Worksheet_Activate() Me.Range(Me.Name & "_ISACTIVE") = True For Each SH33T In ActiveWorkbook.Sheets SH33T.Range(SH33T.Name & "_ISACTIVE") = isSelect...
04.06.2009 11:20:43
Thread-ID: 1079095
6 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Problem mit Array für Worksheets & Select
Chris

Hallo Zusammen,
ich habe hier ein Problem und steh total auf dem Schlauch.
Ich möchte einen Array verschiedener Worksheets markieren und in eine neue Datei exportieren.
Ich möchte alle von TabellenblattA bis TabellenblattX markieren.
Zuerst indiziere ich die Nummern der Blätte...
12.09.2009 15:55:03
Thread-ID: 1102242
2 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980

Hi miteinander,
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft: Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arr...
25.10.2009 13:29:53
Thread-ID: 1112009
2 Beiträge
Anzeige
VBA vereinfachen - Berechnung in einem Sheet
Stef@n

Hallo Excel-Freunde,
ich habe bislang Dateiübergreifend eine Berechnung via VBA durchgeführt.
Nun habe ich die beiden Dateien zusammengefasst (2 Tabellenblätter) und
möchte dazu meinen Code vereinfachen.
Es werden Werte aus dem Tabellenblatt "Matrix" ausgelesen, in das TB "Calcu...
27.11.2009 14:22:34
Thread-ID: 1120536
8 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Select Case ... Sheet.CodeName
Peter


Guten Tag
Ich möchte, dass ein Code nur ausgeführt wird, wenn der Tabellen-Codename Tabelle01, Tabelle02, Tabelle03, .... oder Tabelle25 ist.
Auf Codename greiffe ich zurück, da die Tabellennamen gelegentlich angepasst werden (ohne dass der Inhalt ändert).
Das versuche ich mich...
16.08.2010 10:44:55
Thread-ID: 1172363
13 Beiträge
Anzeige
Zellüberwachung auf mehreren Worksheets via VBA
Frank

Hallo zusammen,
ich möchte in einem Workbook (mit einer Vielzahl von Worksheets) Veränderungen in bestimmten Zellen per VBA abfabgen und ein Event auslösen lassen.
Ich möchte auf keinen Fall auf in jedem einzelnen Worksheet ein "Worksheet_Change" verwenden, sondern das ganze am liebsten...
15.04.2011 14:35:58
Thread-ID: 1210614
9 Beiträge
Sheet archivieren - VBA Fehlermeldung
Matthias

Hallo Excelgemeinde/-Fans,
der gefundene Code hat mir schon mal geholfen , allerdings nun mit Fehler :
1004- Anwendungs oder -objektdefenierter Fehler.
Ich habe vorher mit Excel2003 gearbeitet nun mit excel2010 (13)
Aufgabe soll eigentlich nur sein das er Tabellenblatt "Rechnung...
24.06.2011 17:28:15
Thread-ID: 1219537
8 Beiträge
Anzeige
nach Sheet select, keine Reaktion im Sheet
Frank

Hallo, ich habe das Problem, dass nach dem Öffnen der Mappe das Sheet xy zwar selected wird, Range oder irgendeine andere Anweisung dann aber nicht ausgeführt wird. Danke für die Hilfe.
Private Sub Workbook_Open() Sheets("xy").Select End Sub Sheet xy: Private Sub Worksheet_Activate() Range...
30.01.2012 20:24:04
Thread-ID: 1248593
10 Beiträge
Sheet mit Formatierung ohne VBA copy
Mike

Hallo,
ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl=anzahl*12 'für die Monate
ergeben sollte es dann sowas in 3 Monatsabständen.
Daten_3
Daten_6
Daten_9<...
07.03.2012 10:33:31
Thread-ID: 1253991
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige