Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter über Auswahl einblenden

Tabellenblätter über Auswahl einblenden
15.05.2014 10:18:58
Fender
Hallo zusammen,
in Excel würde ich gerne mit einem Makro ausgeblendete Tabellenblätter wieder einblenden.
Ich stelle mir das so vor, dass eine (User-) Form aufpoppt, sämtliche ausgeblendete Blätter anzeigt und dann über Auswahl (mit Strg) ausgewählt werden kann, welche wieder eingeblendet werden.
Der Aufbau zum Einblenden aller ist mir klar. Nur die Userformgeschichte kriege ich so nicht hin. Hat jemand einen Tipp?
Vielen Dank!

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:20:45
Hajo_Zi
warum nicht einfach auf das Register gehen, rechte Maustaste, Einblenden.

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:27:20
Fender
Naja, ich habe hier Dateien, die teilweise bis zu 20 ausgeblendete Blätter haben. Da ist das Einblenden wirklich mühselig - Excel bietet leider nicht die Möglichkeit an, mehrere Blätter auszuwählen...

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:34:29
Rudi
Hallo, 
Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i)).Visible = xlSheetVisible
End If
Next
End With
End Sub
Private Sub UserForm_Activate()
Dim oSH As Object, arrList(), n As Integer
ReDim arrList(1 To Sheets.Count)
For Each oSH In Sheets
If oSH.Visible  xlSheetVisible Then
n = n + 1
arrList(n) = oSH.Name
End If
Next
If n > 0 Then
ReDim Preserve arrList(1 To n)
With ListBox1
.MultiSelect = fmMultiSelectMulti
.List = arrList
End With
End If
End Sub

Gruß
Rudi

Anzeige
AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:48:52
Fender
Puuh, nach meinem Verständnis wird der erste Teil über einen Button in Excel aufgerufen, der zweite startet die UserForm. Richtig?
Wie muss die denn dann aussehen? Und wie muss sie erstellt werden? Habt Ihr zufällig einen Tutorial-Tipp? Hab mich bis jetzt noch nicht viel damit auseinander gesetzt...
Vielen Dank!!

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 11:25:37
Rudi
Hallo,
VBE öffnen (Alt+F11)
1. Rechtsklick auf dein Projekt, Einfügen-Modul
Code einfügen: 
Sub Start()
UserForm1.Show
End Sub

2. 1. Rechtsklick auf dein Projekt, Einfügen-Userform
1 Listbox und 2 Commandbuttons einfügen
Rechtklick auf die UF-Code anzeigen.
Code: 
Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
Do While i  xlSheetVisible Then
ListBox1.AddItem oSH.Name
End If
Next
If ListBox1.ListCount = 0 Then
Hide
MsgBox "Keine ausgeblendeten Blätter"
End If
End Sub

VBE schließen (Alt+Q)
Makro 'Start' über Alt+F8 starten.
Gruß
Rudi

Anzeige
AW: Tabellenblätter über Auswahl einblenden
15.05.2014 12:22:07
Fender
Klasse. Das klappt. Vielen Dank!

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:35:23
Hajo_Zi 

Option Explicit
Dim LoI As Long
Private Sub UserForm_Activate()
For LoI = 1 To Worksheets.Count
If Worksheets(LoI).Visible  True Then
lst_Tabelle.AddItem Worksheets(LoI).Name
End If
Next LoI
End Sub
Private Sub Cmb_einblenden_Click()
For LoI = 0 To lst_Tabelle.ListCount - 1
If lst_Tabelle.Selected(LoI) Then
Worksheets(lst_Tabelle.List(LoI, 0)).Visible = True
End If
Next LoI
Me.Hide
End Sub
Gruß Hajo

Anzeige
AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:49:54
Fender
Der Code von Rudi sieht umfangreicher aus. Siehst Du einen Vorteil in Deiner Version? Oder wäre es egal?
Dankeschön.

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 10:57:53
Hajo_Zi
ich bin davon ausgegangen das Du Dich mit VBA auskennst, da Du es unbedingt per VBA machen willst und das Du einige Sachen schon bei Eigenschaften eingestellt hast, wie Multiselect.

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 11:12:35
Fender
Naja, VBA-Grundkenntnisse vielleicht. Mehr ist auf dem Weg ;-)
Gäbe es denn eine Lösung, es ohne VBA zu schaffen?
Ich fange jetzt mal an mich ein bisschen mehr in die Thematik einzulesen. Danke für die Codes! Die sind bestimmt hilfreich beim Lernprozess.
Danke an Euch!

Anzeige
AW: Tabellenblätter über Auswahl einblenden
15.05.2014 11:13:35
Hajo_Zi
die Lösung ohne VBA wurde ja abgelehnt.
Gruß Hajo

AW: Tabellenblätter über Auswahl einblenden
15.05.2014 12:23:22
Fender
Achso. Du meintest die Lösung mit dem einzelnen Anklicken. Dachte gerade, es gäbe die Möglichkeit die Auswahlbox von Excel so anzupassen, dass man mehrere Blätter auswählen kann...

300 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
einfaches Bild einfüges aus currdir
Ludes

Hallo zusammen,
- xls-Datei mit Makro in Ordner gespeichert.
- in selbem Ordner einen Ordner "Bilder" mit verschiedenen Bildern
- in Zelle A1 steht der Dateiname eines der Bilder
Brauch nun ein Marko, dass aus dem aktuellen Ordner in der xls-Datei gespeichert ist ein Bild in Zel...
25.08.2008 10:12:55
Thread-ID: 1004386
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
2
7
3
4
6
33
4
2
1
2
2
1
4
2
6
8
2
3
1
3
5
5
4