Userform anzeigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Userform anzeigen
von: toni
Geschrieben am: 12.11.2003 11:38:26

Hallo VBA'ler,

ich möchte eine Userform öffnen, wenn bestimmte Zellen aktviert werden.

Mit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
  userform1.Show
End If
End Sub


öffnet sich die UF wenn ich irgendeine Zelle in Spalte A aktiviere.
Wie lautet der Code, wenn es nur für den Bereich "A7" bis "A20" gelten soll?

Gruß Toni
Bild


Betrifft: AW: Userform anzeigen
von: Hajo_Zi
Geschrieben am: 12.11.2003 11:40:38

Hallo Toni

schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Userform anzeigen
von: GerdW
Geschrieben am: 12.11.2003 11:42:36


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.address = "$A$7:$A$20" Then
  userform1.Show
End If
End Sub


Gerd


Bild


Betrifft: AW: Userform anzeigen
von: Hajo_Zi
Geschrieben am: 12.11.2003 11:45:01

Hallo Gerd

die Userform wird nur aufgerufen wenn der Bereich A7 bis A20 markiert wird, nicht bei einzelnen Zellen in diesem Bereich. Ich glaube das wollte Toni.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Userform anzeigen
von: toni
Geschrieben am: 12.11.2003 12:00:14

Ich bin's noch mal.
Danke für Eure prompte Antwort.
Ich möchte entgegen Hajo's Annahme, dass die Userform erscheint, wenn ich irgendeine Zelle im Bereich A7 bis A20 aktiviere.
Sorry, dass ich mich nicht präzise ausgedrückt habe.
Mit Gerd's Code öffnet sich die Userform nur, wenn der gesamte Bereich markiert ist.

Gruß Toni


Bild


Betrifft: AW: Userform anzeigen
von: GerdW
Geschrieben am: 12.11.2003 12:02:00

Siehe korrigierter Code.

Gerd


Bild


Betrifft: AW: Userform anzeigen
von: Hajo_Zi
Geschrieben am: 12.11.2003 12:03:03

Hallo Toni

wo hast Du diese Annahme von mir gelesen??


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Userform anzeigen
von: toni
Geschrieben am: 12.11.2003 12:12:24

Sorry Hajo,

du hast vollkommen Recht. Ich habe Deinen Kommentar noch mal gelesen und festgestellt, dass Du mich richtig verstanden hast. Ich schau jetzt mal in Dein Beispiel.

Gruss Toni


Bild


Betrifft: AW: Userform anzeigen
von: toni
Geschrieben am: 12.11.2003 13:35:44

Hallo Hajo, hallo Gerd,

habe es mit Eurer Hilfe hinbekommen.

Danke,

Toni


Bild


Betrifft: AW: Userform anzeigen
von: GerdW
Geschrieben am: 12.11.2003 12:00:36

Stimmt,

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
If Not Intersect(Target, [a7:a20]) Is Nothing Then
  userform1.Show
End If
End Sub


Gerd


Bild

Beiträge aus den Excel-Beispielen zum Thema " Userform anzeigen"