Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1400to1404
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
Inhaltsverzeichnis

kleine Makroergänzung

kleine Makroergänzung
06.01.2015 17:41:06
Markus
Hallo zusammen,
ich erstelle mit folgenden Makro eine Übersicht von Tabellenblättern.
Die werte werden dann nach B2 abwärts gelistet.
was muss ich ergänzen damit die Werte erst ab B5 abwärts gelistet werden.
Kann mir da jemand helfen?
Danke.
  • 
    Sub übersicht()
    Dim sh As Worksheet
    ThisWorkbook.Worksheets("Übersicht").Range("B2:B51").ClearContents
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name  "Muster" And sh.Name  "anfang" And sh.Name  "Übersicht" And sh.Name  " _
    ende" Then
    ThisWorkbook.Worksheets("Übersicht").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = sh. _
    Name
    End If
    Next
    End Sub
    

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: kleine Makroergänzung
    06.01.2015 17:56:40
    daniel
    Hi
    Beim Löschen erst ab Zeile 5 löschen und in B4 eine Überschrift eintragen, damit das End(xlup) eine Grenze findet.
    Oder du arbeitet mit einem Zähler für die Zeilen.
    Sub übersicht()
    Dim z as long
    Dim sh As Worksheet
    ThisWorkbook.Worksheets("Übersicht").Range("B5:B51").ClearContents
    z = 5
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name  "Muster" And sh.Name  "anfang" And sh.Name  "Übersicht" And sh.Name  " _
    ende" Then
    ThisWorkbook.Worksheets("Übersicht").Cells(z, 2).Value = sh. _
    Name
    z = z + 1
    End If
    Next
    End Sub
    
    Gruss Daniel

    Anzeige
    AW: kleine Makroergänzung
    06.01.2015 18:08:12
    Markus
    Hallo daniel,
    klappt perfekt danke.

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige