Das Archiv des Excel-Forums
Userform bei Klick
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
- Userform bei Klick von Chris vom 12.10.2003 13:12:36
- AW: Userform bei Klick - von Josef Ehrensberger am 12.10.2003 13:26:28
- AW: Userform bei Klick - von Chris am 12.10.2003 13:32:48
- If IsNumeric(Target) And Target > "" Then - von Josef Ehrensberger am 12.10.2003 13:46:17
- AW: Userform bei Klick - von Chris am 12.10.2003 14:15:52
- AW: Userform bei Klick - von Josef Ehrensberger am 12.10.2003 14:46:17
- AW: Userform bei Klick - von Chris am 12.10.2003 14:51:04
- statt IsNumeric IsDate !!! o.T. - von Josef Ehrensberger am 12.10.2003 14:54:55
- statt IsNumeric IsDate !!! o.T. - von Josef Ehrensberger am 12.10.2003 14:54:55
- AW: Userform bei Klick - von Chris am 12.10.2003 14:51:04
- AW: Userform bei Klick - von Josef Ehrensberger am 12.10.2003 14:46:17
- If IsNumeric(Target) And Target > "" Then - von Josef Ehrensberger am 12.10.2003 13:46:17
- AW: Userform bei Klick - von Josef Ehrensberger am 12.10.2003 13:26:28
 |
Betrifft: Userform bei Klick
von: Chris
Hilfe,
habe eine Tabelle (Kalender)
bei klick in eine Zelle soll eine Userform aufgehen
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$D$5" Then
UserForm1.Show
End If
End Sub
Bei diesem Script wird aber nur bei klick auf D5 eine Userform geöffnet, wie schaffe ich das, dass der Bereich D5:AN16 ancklickbar ist und auch nur dann, wenn er eine Zahl enthält ????
 |
Betrifft: AW: Userform bei Klick
von: Josef Ehrensberger
Geschrieben am: 12.10.2003 13:26:28
Hallo Chris,
das müsste funzen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target,[D5:AN16]) Is Nothing Then Exit Sub
If IsNumeric(Target) Then
UserForm1.Show
End If
End Sub
Gruß Sepp
|
Betrifft: AW: Userform bei Klick
von: Chris
Geschrieben am: 12.10.2003 13:32:48
Hi Sepp,
danke für Deine Hilfe, es soll aber genau umgedreht sein, jetzt macht er ne Userform auf, wenn kein Inhalt in einer Zelle ist. Die Userform soll nur dann aufgehen, wenn eine Zahl drin steht :-)
Chris
|
Betrifft: If IsNumeric(Target) And Target > "" Then
von: Josef Ehrensberger
Geschrieben am: 12.10.2003 13:46:17
kleine ergänzung.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, [D5:AN16]) Is Nothing Then Exit Sub
If IsNumeric(Target) And Target > "" Then
UserForm1.Show
End If
End Sub
Gruß Sepp
|
Betrifft: AW: Userform bei Klick
von: Chris
Geschrieben am: 12.10.2003 14:15:52
Hallo Sepp,
geht nicht. Nochmal:
Ich möchte, wenn sich eine Zahl in einer Zelle befindet sich durch klick auf diese eine Userform öffnet. Wenn sich keine Zahl in einer Zelle befindet keine Userform.
Chris
Danke
|
Betrifft: AW: Userform bei Klick
von: Josef Ehrensberger
Geschrieben am: 12.10.2003 14:46:17
hallo Chris,
bei mir gehts ohne probleme.
Bist du sicher das du zahlen in deinen zellen hast?
Oder vieleicht ein Datum?
Gruß Sepp
|
Betrifft: AW: Userform bei Klick
von: Chris
Geschrieben am: 12.10.2003 14:51:04
Ups,
es ist ein Datum es ist so formatiert: TT
was muss ich da einstellen ???
Gruss Chris
|
Betrifft: statt IsNumeric IsDate !!! o.T.
von: Josef Ehrensberger
Geschrieben am: 12.10.2003 14:54:55
ot
| |
