Herbers Excel/VBA-Archiv

Maximum aus Zeile,ausgeblendete Spalte nicht berüc

• Maximum aus Zeile,ausgeblendete Spalte nicht berüc von HermannZ vom 13.08.2008 19:42:43
• AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc - von Hajo_Zi am 13.08.2008 19:53:47
• AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc - von Daniel am 13.08.2008 19:58:27
  • AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc - von HermannZ am 13.08.2008 20:28:34

Betrifft: Maximum aus Zeile,ausgeblendete Spalte nicht berüc von: HermannZ
Geschrieben am: 13.08.2008 19:42:43

Hi;

wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.

	C	E	F	G	H
1	2	4	6
2
3
4
5
6					6
7

Formeln der Tabelle

Zelle Formel H6 =MAX((ZELLE("Breite";C1)>0)*C1;(ZELLE("Breite";D1)>0)*D1;(ZELLE("Breite";E1)>0)*E1;(ZELLE("Breite";F1)>0)*F1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Ich möchte das aber in VBA damit ich das in einer UDF verwenden kann.

Gruss Hermann

Betrifft: AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc von: Hajo_Zi
Geschrieben am: 13.08.2008 19:53:47

Hallo Hermann,

die Spaltenbreite bei ausgeblendeten Spalten ist Null.

Betrifft: AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc von: Daniel
Geschrieben am: 13.08.2008 19:58:27

Hi

im prinzip musst du mit Schleife über alle Zellen laufen, die die grösste Zahl merken und dabei berücksichtigen, ob die Zeile sichtbar ist oder nicht

Dim Max As Double
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange 'Hier dein Zellbereich
     If Zelle.EntireColumn.Hidden = False Then
              If IsNumeric(Zelle.Value) Then
                  If Zelle.Value > Max Then Max = Zelle.Value
              End If
      End If
Next

Gruß, Daniel

Betrifft: AW: Maximum aus Zeile,ausgeblendete Spalte nicht berüc von: HermannZ
Geschrieben am: 13.08.2008 20:28:34

Hallo Daniel;

danke für die Antwort damit kann ich leben.

Gruss Hermann

Beiträge aus den Excel-Beispielen zum Thema "Maximum aus Zeile,ausgeblendete Spalte nicht berüc"