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

Forumthread: InputBox-Übergabe-Zeilen ausblenden

InputBox-Übergabe-Zeilen ausblenden
22.07.2007 14:57:23
Burghard
Hallo,
ich möchte über eine Inputbox eine Fußballmannschaft eingeben (Beispiel VfB Stuttgart). Anschließend sollen alle Zeilen des Tabellenblattes, die nicht diesen Mannschaftsnamen haben, ausgeblendet werden.
Der Bereich der abgesuchten Zellen ist B2 bis C307.
Hilfe/Code wäre nett.
Schönen Gruß
Burghard

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: InputBox-Übergabe-Zeilen ausblenden
22.07.2007 18:18:30
Chaos
Servus Burghard,
so in etwa ?

Sub Stuttgart()
Dim n As String
Dim z As Integer
n = InputBox("Mannschaft?")
Application.ScreenUpdating = False
For z = 2 To 307 Step 1
If Cells(z, 2).Value  n And Cells(z, 3).Value  n Then
Cells(z, 2).EntireRow.Hidden = True
End If
Next z
Application.ScreenUpdating = True
End Sub



Sub einblenden()
Dim z As Integer
Application.ScreenUpdating = False
For z = 2 To 307
If Cells(z, 2).EntireRow.Hidden = True Then
Cells(z, 2).EntireRow.Hidden = False
End If
Next z
Application.ScreenUpdating = True
End Sub


Gruß
Chaos

Anzeige
AW: InputBox-Übergabe-Zeilen ausblenden
22.07.2007 20:13:00
Burghard
Hallo Chaos,
klappt super! Vielen Dank!
Schönen Gruß
Burghard
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige