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

Inhaltsverzeichnis

Inhaltsverzeichnis
26.04.2006 10:57:57
helena
Hallo
kann mir bitte jemand den Code anpassen, die Blattnamen
sollen in Zellbereich F15:F29
Sub Blattliste2()
Application.ScreenUpdating = False
Dim i As Integer
Sheets("Deckblatt").Select
ActiveSheet.Range("F15:F29").ClearContents
For i = 1 To Worksheets.Count
If Worksheets(i).Name ActiveSheet.Name Then
ActiveSheet.Cells(i, 1) = Worksheets(i).Name
End If
Next i
Danke
gruss helena

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsverzeichnis
26.04.2006 11:03:47
P@ulchen
Hallo Helena,


Sub Blattliste2()
Application.ScreenUpdating = False
Dim i, k As Integer
Sheets("Deckblatt").Select
ActiveSheet.Range("F15:F29").ClearContents
k = 15
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> ActiveSheet.Name Then
        ActiveSheet.Cells(k, 6) = Worksheets(i).Name
        k = k + 1
    End If
Next i
End Sub


Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Anzeige
Danke funkt ... perfekt (o.T.)
26.04.2006 11:20:39
helena
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige