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

Zellen für Funktion bestimmen

Zellen für Funktion bestimmen
06.10.2004 17:01:26
Etomi
Worti hat mir freundlicherweise folgende Vorlage für mein vorheriges Problem gegeben;
Meine Frage dazu:
Die Funktion ist jetzt für Zelle A1-A10.
Wie sähe das VBA für die Zellen B3-D6 aus?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row > 10 Or Target.Column > 1 Then
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Target.Value / 1.6
Application.EnableEvents = True
End Sub

Vielen Dank!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen für Funktion bestimmen
06.10.2004 17:10:51
Mac4
Hi,
versuchs hiermit:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B3:D6")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value / 1.6
Application.EnableEvents = True
End If
End Sub

Marc
Funzt leider nicht
06.10.2004 17:21:29
Etomi
Danke Marc,
klappt aber leider nicht.
Bitte um weitere Antworten und die Lösung..
Etomi
AW: Funzt leider nicht
Reinhard
Hi etomi,
ungetestet:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target.address, Range("B3:D6")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value / 1.6
Application.EnableEvents = True
End If
End Sub

Anzeige
AW: Funzt leider nicht
07.10.2004 08:22:45
Etomi
Tschudligung!
Einwandfrei, dankscheen, Marc!
Gruzz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige