Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen für Funktion bestimmen

Forumthread: 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!
Anzeige

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
Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige