Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen ausblenden - via Inputbox

Zeilen ausblenden - via Inputbox
21.10.2006 16:30:30
Gerhard
Hallo,
bin da wieder an einem mittelgrossen Problem, was aber für die hier anwesenden Excel-Cracks nur ein mildes Lächeln bereiten wird....
Ich möchte mittels anhakens einer Checkbox mehrere Zeilen ausblenden,
die Anzahl sollte aber via Inputbox abgefragt werden.

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
Rows("5:INPUTBOX").Hidden = True'<<hier sollte per Inputbox nachgefragt werden, wieviel Zeilen ausgeblendet werden sollen
Else
Rows("5:65536").Hidden = False
End If
End Sub

Vielen Dank schonmal
mfg
Gerhard S.

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden - via Inputbox
21.10.2006 16:42:24
Reinhard
Hi Gerhard,
während die profis lächeln :-)...
Private Sub CheckBox1_Change()
dim Eingabe
on error goto Fehler
If CheckBox1.Value = True Then
Eingabe=Cint(inputbox("Zeilennummer"))
Rows("5:" & Eingabe).Hidden = True
Else
Rows("5:65536").Hidden = False
End If
Exit sub
Fehler:
msgbox "nur ganze Zahlen 5-65536 erlaubt"
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Das wars...
21.10.2006 16:52:22
Gerhard
Hallo Reinhard,
Vielen Dank dafür, jetzt kann ich auch wieder lächeln,
schönes WE noch
mfg
Gerhard S.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige