Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Häufigkeitsverteilung

Häufigkeitsverteilung
18.11.2002 17:20:51
bine0510
Hallo!

Ich würde gerne eine Datenreihe in die zugehörige Häufigkeitverteilung der Daten transferieren, hab aber keine Ahnung, wie!!!

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
Das war ein Fehler OT
18.11.2002 17:31:58
Hajo_Zi

Re: Häufigkeitsverteilung
18.11.2002 17:37:10
andre
Hallo bine,
so als Notnagel - bastle Dir eine Rundungsregel und arbeite dann mit zählewenn.
ansonsten schaue mal nach

http://www.excelformeln.de

oder

~a~http://www.excelformeln.de/formeln.html?welcher=254~z~

gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige