Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prozedur automatisch starten

Prozedur automatisch starten
12.12.2003 16:58:42
Stefan Glander
Moin Moin Excelanier,
kann mir bitte jemand sagen wie ich in VBA eine Prozedur automatisch beim verlassen einer Zelle aufrufe?
Gruss
Stefan Glander

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

Betreff
Datum
Anwender
Anzeige
AW: Prozedur automatisch starten
12.12.2003 17:17:56
Willie
So kannst du es machen es wir jede Änderung in das Tabellenblatt "Logbuch" eingetragen!
Gruß

Willie


Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLZ, Sh As Worksheet
Set Sh = ActiveSheet
With Sheets("Logbuch")
intLZ = .Cells(5, 1).End(xlUp).Row + 1
.Cells(intLZ, 1) = UserName
.Cells(intLZ, 2) = Date
.Cells(intLZ, 3) = Sh.Name
.Cells(intLZ, 4) = Target.Address
End With
End Sub

Problem noch offen !!!
12.12.2003 17:27:39
Stefan Glander
Vielen Dank für diesen Tip....
aber ich wollte doch etwas ganz anderes Wissen
Gruss
Stefan
AW: Problem noch offen !!!
12.12.2003 17:55:50
Nepumuk
Hallo Stefan,
in einem Standardmodul:

Option Explicit
Public strAdresse As String


im Klassenmodul der Tabelle:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If strAdresse = "A1" Then MsgBox "Treffer"
strAdresse = Target.Address(False, False)
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Prozedur automatisch starten
12.12.2003 17:52:04
Hans W. Hofmann
Naja, bestenfalls gings haarscharf daneben.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub


Aber vielleicht Deine Idee ja auch semigenial?

Gruß HW

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige