Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste aller Arbeitsblätter

Liste aller Arbeitsblätter
15.08.2006 19:36:43
bluemania
Hallo,
ich bin sicher, es kann mir jemand helfen.
Ich hätte gern im ersten Arbeitsblatt in einer Spalte untereinander die Namen aller übrigen Arbeitsblätter der Mappe.
Habe auch schon die Suchfunktion hier bemüht, suche allerdings eine ganz unkomplizierte Lösung ohne Hyperlinks, Sortierfunktion, Add-In o.ä.
Besten Dank,
STEFAN

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste aller Arbeitsblätter
15.08.2006 19:52:23
Thorsten
Das habe ich im Forum gefunden:
Sub Listen() Dim Blatt As Worksheet Dim Zelle As Range Dim i As Integer Sheets.Add.Name = "Liste" Cells(1, 1) = "Blatt" Cells(1, 2) = "Zelle" Cells(1, 3) = "Verknüpfung nach" i = 1 For Each Blatt In Sheets If Blatt.Name = "Liste" Then End i = i + 1 Cells(i, 1).Value = Blatt.Name For Each Zelle In Blatt.UsedRange If (InStr(Zelle.Formula, "!") > 0) And (InStr(Zelle.Formula, "=") > 0) Then i = i + 1 Cells(i, 2).Value = Zelle.Address Cells(i, 3).Value = Right(Zelle.Formula, Len(Zelle.Formula) - 1) End If Next Zelle Next Blatt End Sub Liebe Grüßé aus Thüringen-ein begeisteter Forumanhänger
Anzeige
AW: Liste aller Arbeitsblätter-Korrektur
15.08.2006 20:02:23
Thorsten
Sorry war ein kleiner Fehler drin, so müßte es gehen.
'

Sub Listen()
Dim Blatt As Worksheet
Dim Zelle As Range
Dim i As Integer
Sheets.Add.Name = "Liste"
Cells(1, 1) = "Blatt"
Cells(1, 2) = "Zelle"
Cells(1, 3) = "Verknüpfung nach"
i = 1
For Each Blatt In Sheets
i = i + 1
Cells(i, 1).Value = Blatt.Name
For Each Zelle In Blatt.UsedRange
If (InStr(Zelle.Formula, "!") > 0) And (InStr(Zelle.Formula, "=") > 0) Then
i = i + 1
Cells(i, 2).Value = Zelle.Address
Cells(i, 3).Value = Right(Zelle.Formula, Len(Zelle.Formula) - 1)
End If
Next Zelle
Next Blatt
End 


Sub
Liebe Grüßé aus Thüringen-ein begeisteter Forumanhänger
Anzeige
AW: Liste aller Arbeitsblätter
15.08.2006 19:53:11
Daniel
Hallo
ganz ohne VBA gehts meines Wissens nach leider nicht.
Man bekommt zumindest eine Auflistung, wenn mit der Rechten Maustaste unten links auf Navigationstasten der Arbeitblätter clickt.
Ist aber nur zum Auswählen, nicht zum weiterberarbeiten.
ein Makro dazu sähe so aus:

Sub BlätterListe()
Dim sh As worksheet
range("A:A").clearcontents
For each sh in activeworkbook.worksheets
cells(sh.index,1).value = sh.name
next
End Sub


Ist nicht wirklich kompliziert, aber eben VBA.

deswegen lass ich die Frage mal offen, vielleicht hat ja noch jemand eine Idee.

Gruß, Daniel Eisert
Anzeige
AW: Liste aller Arbeitsblätter
15.08.2006 21:22:09
bluemania
Scheint tatsächlich nicht ohne VBA zu gehen.
Trotzdem vielen Dank!
STEFAN
AW: Liste aller Arbeitsblätter
15.08.2006 21:33:25
Josef
Hallo Stefan!
Klar geht das auch ohne VBA.
Tabelle1
  
 ABCD
3    
4 Nur NameHyperlink 
5 Tabelle1Tabelle1 
6 Tabelle2Tabelle2 
7 Tabelle3Tabelle3 
8    
Formeln der Tabelle
B5 : =WENN(ZEILEN($1:1)>ANZAHL2(alle);"";TEIL(INDEX(alle;ZEILEN($1:1));FINDEN("]";INDEX(alle;ZEILEN($1:1)))+1;31))

C5 : =WENN(ZEILEN($1:1)>ANZAHL2(alle);"";HYPERLINK("#'"&INDEX(alle;ZEILEN($1:1))&"'!A1";TEIL(INDEX(alle;ZEILEN($1:1));FINDEN("]";INDEX(alle;ZEILEN($1:1)))+1;31)))

B6 : =WENN(ZEILEN($1:2)>ANZAHL2(alle);"";TEIL(INDEX(alle;ZEILEN($1:2));FINDEN("]";INDEX(alle;ZEILEN($1:2)))+1;31))

C6 : =WENN(ZEILEN($1:2)>ANZAHL2(alle);"";HYPERLINK("#'"&INDEX(alle;ZEILEN($1:2))&"'!A1";TEIL(INDEX(alle;ZEILEN($1:2));FINDEN("]";INDEX(alle;ZEILEN($1:2)))+1;31)))

B7 : =WENN(ZEILEN($1:3)>ANZAHL2(alle);"";TEIL(INDEX(alle;ZEILEN($1:3));FINDEN("]";INDEX(alle;ZEILEN($1:3)))+1;31))

C7 : =WENN(ZEILEN($1:3)>ANZAHL2(alle);"";HYPERLINK("#'"&INDEX(alle;ZEILEN($1:3))&"'!A1";TEIL(INDEX(alle;ZEILEN($1:3));FINDEN("]";INDEX(alle;ZEILEN($1:3)))+1;31)))

B8 : =WENN(ZEILEN($1:4)>ANZAHL2(alle);"";TEIL(INDEX(alle;ZEILEN($1:4));FINDEN("]";INDEX(alle;ZEILEN($1:4)))+1;31))

C8 : =WENN(ZEILEN($1:4)>ANZAHL2(alle);"";HYPERLINK("#'"&INDEX(alle;ZEILEN($1:4))&"'!A1";TEIL(INDEX(alle;ZEILEN($1:4));FINDEN("]";INDEX(alle;ZEILEN($1:4)))+1;31)))


 
 


Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Gruß Sepp


		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            @Sepp
                                            

                    

                                                    15.08.2006 21:41:37
                                            

                                

                                            Thorsten
                                    

            

        

        

                            
Hallo Sepp, ich bin dein größter Fan. Ich bin immer wieder begeistert was du alles weist und dich nehme ich mir zum Vorbild. :-))

Liebe Grüße aus Thüringen-ein begeisteter Forumanhänger

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: @Sepp
                                            

                    

                                                    15.08.2006 21:45:57
                                            

                                

                                            Josef
                                    

            

        

        

                            
Hallo Thorsten!

Mit "Vorbildern" hab' ich so meine Probleme.

Und "viel" zu Wissen, heist oft nur zu wissen wo man nachschauen muss;-)


Gruß Sepp


                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Liste aller Arbeitsblätter
                                            

                    

                                                    16.08.2006 22:53:23
                                            

                                

                                            Daniel
                                    

            

        

        

                            
Hallo,

schaut interessant aus.

aber in diesem Fall ist die VBA-Lösung eindeutig die einfachere.

Gruß, Daniel

                    


            


    
    


            
    
    
    
    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige