kleine Makroergänzung
06.01.2015 17:41:06
Markus
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
Anzeige