Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro starten nach Abfrage

Makro starten nach Abfrage
01.03.2007 12:06:56
Gerhard
Hallo zusammen,
wie kann ich unteres Makro starten, wenn Cursor im Zellbereich von B5:B20 steht?
mommentan wird Makro nur gestartet,wenn ich in Zelle B5 stehe!

Sub Dialog_open()
If ActiveCell.Address <> "$B$5" Then Exit Sub
frmListe.Show
End Sub

Vielen Dank
Gruß
Gerhard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro starten nach Abfrage
01.03.2007 12:18:00
Beate
Hallo Gerhard,
das Makro gehört ins Codefenster der Tabelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B5:B20")) Is Nothing Then Exit Sub
frmListe.Show
End Sub


Anzeige
AW: Makro starten nach Abfrage
01.03.2007 13:07:00
Gerhard
Hallo
Makro funktioniert...
noch eine Frage,
wie lautet die Abfrage, wenn ich noch zusätzlich in der gleichen Tabelle ein
zweites Dialogfenster aber im Bereich von G5:G50 anzeigen lassen möchte?
Vielen Dank
Gruß
Gerhard
AW: Makro starten nach Abfrage
01.03.2007 13:25:00
Beate
Hallo Gerhard,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 And Target.Row < 21 Then
    frmListe.Show
End If
If Target.Column = 7 And Target.Row > 4 And Target.Row < 51 Then
    frmListe2.Show
End If
End Sub


Gruß,
Beate
Anzeige
AW: Makro starten nach Abfrage
01.03.2007 14:40:26
Gerhard
Hallo Beate,
funktioniert super...
Vielen vielen Dank
Gruß
Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige