Microsoft Excel

Herbers Excel/VBA-Archiv

Maximum aus Zeile,ausgeblendete Spalte nicht berüc

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.

 CEFGH
1246  
2     
3     
4     
5     
6    6
7     

Formeln der Tabelle
ZelleFormel
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.

GrußformelHomepage


  

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"