@Achill wg. Gestern ScrollArea!



Excel-Version: Versionsunabhängig
nach unten

Betrifft: @Achill wg. Gestern ScrollArea!
von: Timo
Geschrieben am: 21.06.2002 - 10:11:59

Hallo Achill,

so sollte eigentlich alles funzen. Viel Erfolg!


Sub Bereichz()
Dim As String
Dim alt As Integer
Dim As Integer
Dim As Byte

a = Worksheets(1).ScrollArea ' Schreibt die Scrollarea in die Variable

For i = 1 To Len(a)
    If IsNumeric(Mid(a, i, 1)) Then 'Wenn das i-te Zeichen eine Ziffer ist
        alt = Mid(a, i, 1)
        j = i
        Do
            j = j + 1
            If IsNumeric(Mid(a, j, 1)) Then 'Und die nächsten Zeichen auch
                alt = Mid(a, i, j - i + 1) 'Alt = Alte Zeile, in der die Scrollarea beginnt
            End If
        Loop Until IsNumeric(Mid(a, j, 1)) = False
        Exit For
    End If
Next i

alt = alt + 1   'Alt wird um 1 erhöht, Scrollarea fängt 1 Zeile später an

a = Left(a, i - 1) & alt & Mid(a, j, Len(a))    'a enthält die neue Scrollarea als String

For i = Len(a) To Step -1 'Das selbe mit der unterern Zeile
    If Not (IsNumeric(Mid(a, i, 1))) Then
        alt = Mid(a, i + 1, Len(a))
        Exit For
    End If
Next i

alt = alt + 1

a = Left(a, i) & alt

Worksheets(1).ScrollArea = a    'Setzen der Scrollarea
Range(a).Select
End Sub

Gruss
TImo


nach oben   nach unten

Super Timo, Vielen Dank fuer die Erklaerung!
von: Achill
Geschrieben am: 23.06.2002 - 13:56:52

Grosse Klasse!

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "MIt SVERWEIS und wie ?"