HERBERS Excel-Forum - die Beispiele

Thema: Kopfzeilen anhand von Max/Min-Werten ermitteln

Home

Gruppe

Funktion

Problem

Zu den Werten im Bereich F2:I2 werden im Bereich F4:I4 die Kopfzeilen aus der Matrix in A1:D2 geliefert.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
ClassModule: frmCaption

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
              (ByVal hWnd As Long, ByVal nIndex As Long) As Long
                
Private Declare Function SetWindowLong _
               Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
               ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" ( _
               ByVal hWnd As Long) As Long

Private Sub cmdCancel_Click()
  Unload Me
End Sub

Private Sub cmdOn_Click()
  Call fncHasUserformCaption(True)
End Sub

Private Sub cmdOff_Click()
   Call fncHasUserformCaption(False)
End Sub

Private Sub UserForm_Initialize()
  Call fncHasUserformCaption(False)
End Sub

Private Function fncHasUserformCaption(bState As Boolean)
  Dim Userform_hWnd As Long
  Dim Userform_Style As Long
  Dim Userform_Rect As RECT
  Const GWL_STYLE = (-16)
  Const WS_CAPTION = &HC00000
  Userform_hWnd = FindWindow( _
     lpClassName:=IIf(Val(Application.Version) > 8, _
     "ThunderDFrame", "ThunderXFrame"), _
     lpWindowName:=Me.Caption)
  Userform_Style = GetWindowLong(hWnd:=Userform_hWnd, _
     nIndex:=GWL_STYLE)
  If bState = True Then
     Userform_Style = Userform_Style Or WS_CAPTION
  Else
     Userform_Style = Userform_Style And Not WS_CAPTION
  End If
  Call SetWindowLong(hWnd:=Userform_hWnd, nIndex:=GWL_STYLE, _
     dwNewLong:=Userform_Style)
  Call DrawMenuBar(hWnd:=Userform_hWnd)
End Function

StandardModule: Modul1

Sub DialogAufruf()
   frmCaption.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VERGLEICH/INDEX Formelproblem VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion Index Formel_Berechnung nur bei bestimmten Wert
neues Aktien Index Problem Array - Index außerhalb des gültigen Bereichs
Zelladressen von FunktionsParametern ermitteln Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
Formel Index(RGP @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Interior.ColorIndex
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Colorindex Excel-Word RGB-Werte
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig Kombination von INDEX/Vergleich für Wertevergleich
zählenwenn-funktion mit mehreren kriterien Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht WENN-Funktion