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

Problem mit Combobox in Formular

Problem mit Combobox in Formular
06.11.2007 19:41:11
Christian
Hallo,
ich habe noch eine Frage/Problem.
In der angehängten Datei möchte ich in dem Formular je nachdem welche Zahl in der Combobox ausgewählt wurde Zeilen in Sheet1 ausblenden ... irgendas läuft da aber noch nicht rund ...
Wäre super wenn mir jemand einen Tip geben könnte!
Vielen Dank
Christian
https://www.herber.de/bbs/user/47473.xls

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Combobox in Formular
06.11.2007 19:57:00
Hajo_Zi
Hallo Christian,
gebe der Tabelle den richtigen Namen. Case 2 Prüfe den Bereich.

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
With ThisWorkbook.Worksheets("Eingabemaske")
.Rows("33:38").EntireRow.Hidden = False
[Sheet2!A1] = ComboBox1.Value
Select Case [Sheet2!A1]
Case ""
.Rows("33:38").EntireRow.Hidden = True
Case "1"
.Rows("35:38").EntireRow.Hidden = True
Case "2"
.Rows("34:38").EntireRow.Hidden = True
End Select
End With
End Sub



Anzeige
AW: Problem mit Combobox in Formular
07.11.2007 11:03:00
Christian
Hallo,
negativ ... auch so:
Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub



Private Sub ComboBox1_Change()
With ThisWorkbook.Worksheets("Sheet1")
.Rows("33:38").EntireRow.Hidden = False
[Sheet2!A1] = ComboBox1.Value
Select Case [Sheet2!A1]
Case ""
.Rows("33:38").EntireRow.Hidden = True
Case "1"
.Rows("35:38").EntireRow.Hidden = True
Case "2"
.Rows("34:38").EntireRow.Hidden = True
End Select
End With
End Sub


klappt das ganze nicht ... Fehlermeldung: Run-Time error '1004': unable to set Hidden property of the Range Class
weiss jemand weiter?!
Vielen Dank
Christian

Anzeige
AW: Problem mit Combobox in Formular
07.11.2007 15:59:00
Horst
Hi,
in deiner Mappe gibt es kein Worksheets("Eingabemaske")
mfg Horst

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige