Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel umstellen

Forumthread: Formel umstellen

Formel umstellen
04.01.2003 17:04:28
Ralf
Hallo und ein Frohes neues Jahr
Ich habe da ein Problem ich möchte gerne diese Formel nicht nur für die celle a1 haben, sondern für den cellenbereich a1 -a36.
muss ich jedes mal die formel dafür umändern oder gibt es da eine Leichtere Möglichkeit


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target <> [a1] Then Exit Sub
With Application
.EnableEvents = False
If [a1] > 8 Then
[a3] = [a1] - 8
[a1] = [a1] - [a3]
End If
.EnableEvents = True
End With
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Formel umstellen
04.01.2003 17:12:14
Bernd Held
Hallo Ralf,

so täts funktionieren:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range

Set Bereich = Range("A1:A36")

If Intersect(Target, Bereich) Is Nothing Then Exit Sub

With Application
.EnableEvents = False
If Target.Value > 8 Then
Target.Offset(2, 0).Value = Target.Value - 8
Target.Value = Target.Value - Target.Offset(2, 0).Value
End If
.EnableEvents = True
End With
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Jetzt neu: Excel-VBA in 21 Tagen, neue FAQs und Makros unter: http://held-office.de

Anzeige
Re: Formel umstellen
04.01.2003 17:20:53
Ralf
Oh sorry ich habe mich vertippt, da wo a3 steht muss c1 stehen ich habe es schon selber versucht umzuformen klappt aber irgendwie nicht
Re: Formel umstellen
05.01.2003 09:52:22
Josef B
Hallo Ralf

Ändere die zwei Zeilen so:
Target.Offset(0, 2).Value = Target.Value - 8
Target.Value = Target.Value - Target.Offset(0, 2).Value

Gruss
Josef

Anzeige
;

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