Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle durchsuchen

Forumthread: Tabelle durchsuchen

Tabelle durchsuchen
22.01.2003 22:24:00
Sascha
Hallo,
ich habe eine Frage ...gibt es eine Möglichkeit per Mausklick (Makro) eine Tabelle zu durchsuchen und abhängig vom Ergebnis die Zeilenhöhe auf 0 zu setzen ? (Eventuell auch für Word ?)
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nimm dies...
22.01.2003 22:33:17
L.Vira
Option Explicit
Sub suchen()
Dim c As Range
Dim SAdr As String
Dim SB As Variant
SB = "Wasweißich"
Application.ScreenUpdating = False
With Columns(1)
Set c = .Find(SB, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByColumns)
If Not c Is Nothing Then
SAdr = c.Address
Do
On Error Resume Next
Rows(c.Row).RowHeight = 0
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> SAdr
End If
End With
Application.ScreenUpdating = True
End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige