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

Ausführen Wenn

Ausführen Wenn
09.02.2006 23:40:19
Sieglinde
Hallo!
Ich möchte ein Macro ausführen wenn bestimmte Voraussetzungen gegeben sind.
In der aktiven Zeile Spalte A und B sollte ein Wert enthalten sein und wenn ich dann auf die Spalte C der aktiven Zeile klicke soll das Macro ausgeführt werden.
Kann mir jemand von Euch sagen wie das geht mit dem If.
Bitte um Eure Hilfe
Sieglinde

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausführen Wenn
09.02.2006 23:47:40
Josef
Hallo Sieglinde!
Auswahl ist meist sehr unpraktisch, besser Doppelklick!
Hier beide Möglichkeiten.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Bei Doppelklick einer Zelle in Spalte C
With Target
  If .Column = 3 And .Count = 1 Then
    Cancel = True
    If Cells(.Row, 1) = 15 And Cells(.Row, 2) = 10 Then Call deinMakro
  End If
End With
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Bei Auswahl einer Zelle in Spalte C
With Target
  If .Column = 3 And .Count = 1 Then
    If Cells(.Row, 1) = 15 And Cells(.Row, 2) = 10 Then Call deinMakro
  End If
End With
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub deinMakro()
MsgBox "Makro"
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige