Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1124to1128
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
Inhaltsverzeichnis

Prozentangaben vorbelegen

Prozentangaben vorbelegen
Claudia
Hallo zusammen,
wünsche allen frohe Weihnachten!
Leider stehe ich mal wieder vor einem Problem. Folgenden VBA-Code hat man mir hier im Forum gebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("d8:d1000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 6).FormulaR1C1 = "=IF(AND(RC[-6]2,RC[-6]5),"""",60%)"
.Offset(0, 6).NumberFormat = "0%"
.Offset(0, 6).Value = .Offset(0, 6).Value
.Offset(0, 7).NumberFormat = "0%"
.Offset(0, 7).FormulaR1C1 = "=IF(AND(RC[-7]2,RC[-7]5),"""",40%)"
.Offset(0, 7).Value = .Offset(0, 7).Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub
Jetzt soll aber nicht nur bei einer "2" die Prozentangaben hinterlegt werden, sondern auch bei einer "3".
Vermutlich eine leichte Änderung, aber ich kriege es nicht.
Wer kann mir helfen?
LG
Claudia

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

Betreff
Benutzer
Anzeige
AW: Prozentangaben vorbelegen
25.12.2009 19:17:05
Hajo_Zi
Halo Claudia,
in der formel wird geprüft auf 2 und 5 die Prüfung auf =2 habe ich nicht gefunden.

Danke, habe es glatt übersehen.
25.12.2009 19:36:55
Claudia
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige