Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aktive Zelle Makro starten

Aktive Zelle Makro starten
Manfred
Hallo zusammen,
ich habe mir den ersten Code aus dem Forum, der funzt auch supper.
Den zweiten habe ich mir aufgezeichent.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$7" Then Call Makro2
End Sub

----------------------------------------------------------------
Sub Makro2()
'
Sheets("Verteiler").Select
Range("D7").Select
ActiveCell.FormulaR1C1 = "X"
Range("A3").Select
End Sub Nun ist es so daß mir das Makro in die Zelle D7 ein X reinschreibt.
Wenn dieses aber falsch gesetzt wurde kann ich es nicht mehr löschen da ja das Makro bei aktiver D7 Zelle anfängt zu laufen und das X wieder reinschreibt. (Ich habe noch weitere Zellen bis D33).
Hat mir jemand einen Tipp ?
Mit freundlichen Grüßen
Manfred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aktive Zelle Makro starten
07.10.2009 16:17:21
Rudi
Hallo,
so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D33")) Is Nothing Then
On Error GoTo ERRHDL
Application.EnableEvents = False
If Target = "x" Then Target = "" Else Target = "x"
End If
ERRHDL:
Application.EnableEvents = True
End Sub

Gruß
Rudi
AW: Aktive Zelle Makro starten
07.10.2009 16:27:18
Manfred
Hallo Rudi,
es funzt supper.
Vielen Dank
Grüße
Manfred
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige