Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige