Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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 ?)

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige