Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Code auf Bereich begrenzen

Betrifft: Code auf Bereich begrenzen von: Conny
Geschrieben am: 31.08.2004 11:22:13

Hallo liebe Community!

Ich bräuchte dringend eure Hilfe.

Ich hab einen VBA Code gefunden, mit dem ich mehr als 3 Kriterien für eine Formatierung angeben kann, dieser funktionierte auch bestens - für das ganze Tabellenblatt. Ich bräuchte ihn aber nur in der Spalte G von Zeile 12 bis 40 - hab jetzt solange damit rumgespielt, dass gar nix mehr funktioniert..Kann mir bitte jemand helfen und diesen Mist korrigieren??
lg Conny

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Target.Value


Case 0 To 10
Target.Interior.ColorIndex = 4

Case 10 To 25
Target.Interior.ColorIndex = 6

Case 25 To 1000
Target.Interior.ColorIndex = 3

Case -10 To 0
Target.Interior.ColorIndex = 4

Case -25 To -10
Target.Interior.ColorIndex = 6

Case -1000 To -24
Target.Interior.ColorIndex = 3

Case Else
Target.Interior.ColorIndex = xlColorIndexNone


End Select

End Sub

  


Betrifft: AW: Code auf Bereich begrenzen von: Roland Hochhäuser
Geschrieben am: 31.08.2004 11:34:21

Hallo conny,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 12 Or Target.Row > 40 Or Target.Column <> 7 Then Exit Sub
. . .weiterer Code
Gruß
Roland


  


Betrifft: AW: Code auf Bereich begrenzen von: Conny
Geschrieben am: 31.08.2004 11:49:54

Hallo Roland!

Ich bin leider eine totale Null, aber es funktioniert leider immer noch nicht. Könnest du dir den Code bitte nochmal auf Fehler anschauen? Ich müsste noch irgendwo das Select einbauen, aber ich weiß eben nicht wo.
Vielen lieben Dank!
Conny



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 12 Or Target.Row > 40 Or Target.Column <> 7 Then Exit Sub



Case 0 To 10
Target.Interior.ColorIndex = 4

Case 10 To 25
Target.Interior.ColorIndex = 6

Case 25 To 1000
Target.Interior.ColorIndex = 3

Case -10 To 0
Target.Interior.ColorIndex = 4

Case -25 To -10
Target.Interior.ColorIndex = 6

Case -1000 To -24
Target.Interior.ColorIndex = 3

Case Else
Target.Interior.ColorIndex = xlColorIndexNone


End Select

End Sub



  


Betrifft: Case was ? von: Harald E
Geschrieben am: 31.08.2004 11:51:41

Hallo Conny

...und nochwas

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Target.Value

gibt Fehler, gelle ?

Select Case Target.Value 'ist besser ;-)

Gruß
Harald


  


Betrifft: AW: Case was ? von: Roland Hochhäuser
Geschrieben am: 31.08.2004 11:56:22

So müsste es funktionieren:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 12 Or Target.Row > 40 Or Target.Column <> 7 Then Exit Sub
Select Case Target.Value
Case 0 To 10
Target.Interior.ColorIndex = 4
Case 10 To 25
Target.Interior.ColorIndex = 6
Case 25 To 1000
Target.Interior.ColorIndex = 3
Case -10 To 0
Target.Interior.ColorIndex = 4
Case -25 To -10
Target.Interior.ColorIndex = 6
Case -1000 To -24
Target.Interior.ColorIndex = 3
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Gruß Roland


 

Beiträge aus den Excel-Beispielen zum Thema "Code auf Bereich begrenzen"