PDA

Vollständige Version anzeigen : ausblenden und einblenden von zeilen


poltergeist
07.11.2005, 11:38
hi alle :)

hab hier ein kleines makro geschrieben wo ich nicht mehr weiter weiss :rolleyes:

es sollte in wechselwirkung aus und einblenden,doch es blendet keine zeilen mehr ein :boah:

woran mag das liegen :entsetzt:

viele gruesse und hoffe auf hilfe :rolleyes:

gruss poltergeist

Option Explicit
Sub suchenAusblenden()
Dim meineEingabe As String
Dim meineZeilen As Long
Dim merkZeilen As Long
Dim suche As Range

rem hier waere die wieder einblendung die aber versagt

If Range("A3:A65535").EntireRow.Hidden = True Then
Range("A3:A65535").EntireRow.Hidden = False
Else

merkZeilen = 4
meineEingabe = InputBox("Bitte geben Sie den Suchbegriff ein !")
For meineZeilen = 3 To Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set suche = Worksheets(1).Range("B" & meineZeilen & ":G" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1).Find(meineEingabe)
If Not suche Is Nothing Then
If suche.Row <> merkZeilen Then Range("A" & merkZeilen & ":A" & suche.Row - 1).EntireRow.Hidden = True
merkZeilen = suche.Row + 1
meineZeilen = suche.Row
Else
Range("A" & merkZeilen & ":A" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1).EntireRow.Hidden = True
End
End If
Next meineZeilen
End If
End Sub

Lumpensammler
07.11.2005, 11:44
Hallo, Poltergeist,

Du müßtest die Zeilen in einer Schleife abklappern oder den Gesamtbereich in einem Rutsch einblenden:

Range("A3:A65535").EntireRow.Hidden = False
Gruß
LS

poltergeist
07.11.2005, 12:26
hi lumpensammler :rolleyes:

danke :)

gruss poltergeist