Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm Min und Max /Tastleiste

UserForm Min und Max /Tastleiste
22.11.2006 10:21:57
achim
Hallo Excel Freunde
Thema: UserForm Min u. Max Button
Habe eine beispielsdatei mit code von Thomas risi gefunden. leider bekomme ich die meldung " Fehler beim kompilieren, Erwarte bezeichner
kennt jemand das problem und wie kann ich das problem lösen?
danke
achim h.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm Min und Max /Tastleiste
22.11.2006 10:40:52
EtoPHG
Hallo Achim,

Sub Hilfe()
Dim Txt$, i%, Loesung$
Txt = "087111032105115116032100101114032067111100101063"
For i = 1 To Len(Txt) Step 3
Loesung = Loesung & Chr(Mid(Txt, i, 3))
Next
MsgBox Loesung
End Sub

Gruss Hansueli
AW: UserForm Min und Max /Tastleiste
23.11.2006 07:39:59
achim
Das ist ja mal wieder eine spaß code :-)
nun wieder zur sache
da der code recht umfangreich ist,anbei beispieldatei
https://www.herber.de/bbs/user/38425.xls
danke achim h.
AW: UserForm Min und Max /Tastleiste
23.11.2006 09:06:33
EtoPHG
Hallo Achim,
Getestet auf Win XP, Excel 2000 SP-3 No problems
Unklar ist mir: Deine Sub HideCloseButton ?
Vermutung: Liegt an Excel 97 oder Win-Komponenten.
Frage: Wo, wann tritt Fehler auf? Ev. mehr Debugger-Angaben?
Gruss Hansueli
Anzeige
AW: UserForm Min und Max /Tastleiste
23.11.2006 10:51:33
achim
Hallo
danke für die rückmeldung..
also ich arbeite mit excel97 und habe auch nichts anderes.
an dieser stelle bekomme ich den fehler angezeigt..
Public Enum BorderStyles
xlFest = 0
xlÄnderbar = 1
End Enum
danke und gruss achim h.
AW: UserForm Min und Max /Tastleiste
23.11.2006 10:54:21
achim
sorry hatte nicht erwähnt das bei
Enum der fehler konkret angezeigt wird
kann es sein das excel97 das nicht kennt?
gruss
achim h.
AW: UserForm Min und Max /Tastleiste
23.11.2006 14:28:20
EtoPHG
Hallo Achim,
Ja Enum ist erst ab Office 97 verfügbar.
Du kannst aber folgende Anpassungen am Code vornehmen, vielleicht läuft's dann trotzdem unter 97, allerding OHNE die dynamische Grössenänderung der UF über Rahmen-Ziehen.
Auskommentieren:

Im Klassenmodul CUserForm
'Public Enum BorderStyles
'    xlFest = 0
'    xlÄnderbar = 1
'End Enum
'Public Property Let BorderStyle(Style As BorderStyles)
'    Select Case Style
'    Case 0: Border = 0
'    Case 1: Border = WS_SIZEBOX
'    End Select
'End Property
in UserForm1 Code:
Private Sub UserForm_Initialize()
With UF
.MaxButton = True
.MinButton = True
'        .BorderStyle = xlÄnderbar
.Create UserForm1
End With
End Sub
Gruss Hansueli
Anzeige
Danke für die intensive hilfe, klappt
24.11.2006 08:32:10
achim
Hallo Hansueli
mit deinen vorgeschlagenen anpassungen klappt es nun.
super
danke
achim h.

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige