title image


Smiley Zellen Formatieren mit VBA
Hallo Zusammen

Ich habe nachfolgenden VBA Cod in ein Modul geschrieben.Nun möchte ich das nicht nur

die Celle mit der Bezeichnug mit der Farbe Makiert wird Sondern auch die 4 Cellen

Rechts davon.Das Makro darf nur Manuel ausgeführt werden.



Makro

Sub Zellenformatierung()

Dim cell As Range

For Each cell In Range ("A1:C3")

Range (ActiveCell,ActiveCell.Offset(0, 4)):Select

Select Case Cell

Case Is = "Bez"

cell.Interior.ColorIndex = 3

End Select

Next

End Sub

Ich Danke im voraus!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: