Die Auswertung im Direktbereich
?Range("_numStart")
gibt folgenden String:
0100
Wenn ich dann im Direktbereich
Zeilen(25) aufrufe, wird als erstes Worksheet nicht
Sheet "0100" sichtbar gemacht und selektiert, sondern Sheet("0401").
Wenn ich dann bei den Zeilen
Sheets(Range("_numStart")).Visible = True
Sheets(Range("_numStart")).Select
nach Range("_numStart") noch .Value anfüge, wird dann Sheet "0100" sichtbar gemacht.
Weshalb erscheint ohne .Value "irgendeine" Tabelle?
Gruss, Peter
Sub Zeilen_aus(iZeile As Integer)
Dim lngZaehler As Long, lngIndex As Long
Select Case iZeile
Case 0
MsgBox "Für Zeile wurde Parameter 0 übergeben"
Exit Sub
Case Is = Range("zeEndAll").Value
MsgBox "Letzte Zeile des Datenbereichs oder Zeile unterhalb darf nicht gelöscht werden"
Exit Sub
Case Else
Sheets(Range("_numStart")).Visible = True
Sheets(Range("_numStart")).Select
Do
Loop Until ActiveSheet.Name = Range("_NumEnd").Value
End Select
ThisWorkbook.Save
End Sub