Re: Häufigkeitsverteilung
18.11.2002 17:31:20
Hajo_Zi
'Nicht registrierte Benutzung der Excel Code Jeanie 1.0
Option Explicit
Option Base 1
Sub Patricia()
Dim SFarbe(37, 3) As String
Dim BAusblenden As Boolean
Dim IZaehler1 As Integer, IZaehler2
If MsgBox("Soll der Bereich ausgeblendet werden.", vbYesNo + _
vbQuestion, "Drucken ?") = vbYes Then
BAusblenden = True
IZaehler2 = 1
For IZaehler1 = 43 To 59
SFarbe(IZaehler2, 1) = Cells(IZaehler1, 13).Font.ColorIndex
SFarbe(IZaehler2, 2) = Cells(IZaehler1, 13).Interior.ColorIndex
SFarbe(IZaehler2, 3) = Cells(IZaehler1, 13).Address
Cells(IZaehler1, 13).Font.ColorIndex = 2
Cells(IZaehler1, 13).Interior.ColorIndex = 2
IZaehler2 = IZaehler2 + 1
Next IZaehler1
For IZaehler1 = 43 To 59
SFarbe(IZaehler2, 1) = Cells(IZaehler1, 14).Font.ColorIndex
SFarbe(IZaehler2, 2) = Cells(IZaehler1, 14).Interior.ColorIndex
SFarbe(IZaehler2, 3) = Cells(IZaehler1, 14).Address
Cells(IZaehler1, 14).Font.ColorIndex = 2
Cells(IZaehler1, 14).Interior.ColorIndex = 2
IZaehler2 = IZaehler2 + 1
Next IZaehler1
SFarbe(35, 1) = Cells(63, 9).Font.ColorIndex
SFarbe(35, 2) = Cells(63, 9).Interior.ColorIndex
SFarbe(35, 3) = Cells(63, 9).Address
Cells(63, 9).Font.ColorIndex = 2
Cells(63, 9).Interior.ColorIndex = 2
SFarbe(36, 1) = Cells(63, 11).Font.ColorIndex
SFarbe(36, 2) = Cells(63, 11).Interior.ColorIndex
SFarbe(36, 3) = Cells(63, 11).Address
Cells(63, 9).Font.ColorIndex = 2
Cells(63, 9).Interior.ColorIndex = 2
SFarbe(37, 1) = Cells(63, 13).Font.ColorIndex
SFarbe(37, 2) = Cells(63, 13).Interior.ColorIndex
SFarbe(37, 3) = Cells(63, 13).Address
Cells(63, 13).Font.ColorIndex = 2
Cells(63, 13).Interior.ColorIndex = 2
End If
ActiveWindow.SelectedSheets.PrintOut
If BAusblenden = False Then Exit Sub
For IZaehler1 = 1 To 37
Range(SFarbe(IZaehler1, 3)).Font.ColorIndex = CInt(SFarbe(IZaehler1, 1))
Range(SFarbe(IZaehler1, 3)).Interior.ColorIndex = CInt(SFarbe(IZaehler1, 2))
Next IZaehler1
End Sub
Code eingefügt mit: Excel Code Jeanie