Steuerelemente in VBA

Computer: Software & Programmierung Visual Basic
#1

hi, alle…

auch wenn ich löstig werde, ich hab einfach ein problem mit steuerelemten, insbesondere mit der listbox:

sie verkleinert sich, wenn man nicht aufpasst auf einen einfachen strich.

man kann dies umgehen, wenn man im eigenschaftenfenster den wert „integralhigh“ auf „false“ stellt.

wenn man das nicht sofort tut, passiert eben der oben erwähnte effekt.

dieser „rest“ des elements bleibt als unschöner strich zurück, der durch nichts mehr zu beseitigen ist.

wie krieg ich das weg?

vielen dank für eure hilfe.

NikoDemo

#2

steuerelemten, insbesondere mit der listbox:
sie verkleinert sich, wenn man nicht aufpasst auf einen
einfachen strich.
man kann dies umgehen, wenn man im eigenschaftenfenster den
wert „integralhigh“ auf „false“ stellt.
wenn man das nicht sofort tut, passiert eben der oben erwähnte
effekt.
dieser „rest“ des elements bleibt als unschöner strich zurück,
der durch nichts mehr zu beseitigen ist.

Hallo Nikodemo,

da ich dein Problem nicht nachstellen kann, auch mit Integralhigh nicht, bat ich um eine Beispielmappe wo das auftritt.
Wenn die Mappe nicht kommt…*Schulterzuck*
Übrigens, es ist immer gut die Excelversion anzugeben.

Gruß
reinhard

#3

Hallo NikoDemo.

Normalerweise solltest Du IntegralHeight nicht auf False stellen. IntegralHeight bewirkt, daß die ListBox immer automatisch an die Größe der verwendeten Schriftart angepaßt wird und dann ganze Zeilen darstellen kann.

Läßt sich denn die ListBox nicht vergrößern, indem Du im Eigenschaftenfenster die Height-Eigenschaft auf einen Wert > 0,75 einstellst? Versuche das bitte 'mal

Du kannst die zum Strich geschrumpte ListBox markieren, indem Du den Pfeil des DropDowns oben im Eigenschaftenfenster anklickst und dann die ListBox in der Liste der dort angezeigten Steuerelemente auswählst (die DropDown-Liste im Eigenschaftenfenster enthält alle Steuerelemente, die Du auf dem UserForm platziert hast). Danach dann vorsichtig mit der Maus eine Positionier-Ecke der nun markierten ListBox anklicken und dann auf der Tastatur „Entf“ drücken.

Mir ist allerdings auch völlig unklar, warum die ListBox zu einem Strich schrumpfen sollte.

VG
Carsten

#4

lieber carsten, das ist es eben:

dieser „strich“ oder diese „linie“ läßt sich eben nicht mehr „anklicken“ oder sonstwie markieren. es ist eine linie dort, wo ürsprünglich die listbox war. sie läßt sich aber auch nicht durch „bearbeiten/löschen/alles“ noch durch das entfernen der entsprechenden zeilen löschen. es ist zum verzweifeln.

tut mir leid.

es grüßt dich

nikodemo

#5

hallo, reinhard…

ich würde ja gerne das gesamte programm (excel2003) an deine mail schicken. per wer-weis-was geht das irgendwie nicht, dort kann man ja nur den code übertragen, der nützt dir ja nix.

trotzdem danke für deine mühe.

nikodemo

#6

ich würde ja gerne das gesamte programm (excel2003) an deine
mail schicken. per wer-weis-was geht das irgendwie nicht, dort
kann man ja nur den code übertragen, der nützt dir ja nix.

Hallo Nikodemo,

a) auf FAQ:2606 klicken
b) einen Webhoster aussuchen und im Browser eingeben, z.B. Hostarea
c) Datei hochladen
d) angezeigten Link zur Datei kopieren und hier zeigen.

Gruß
Reinhard

#7

hallo, reinhard,

ich habe folgendes versucht und meine datei hochgeladen.
hier bei hostarea:

http://www.hostarea.de/server-07/Juli-7640c6fbb6.xls

hoffentlich hat das geklappt.

und bitte keinen unfug mit meinen daten treiben…

gruß nikodemo

#8

Hallo Niko,

http://www.hostarea.de/server-07/Juli-7640c6fbb6.xls
hoffentlich hat das geklappt.

ja, wo ist denn nun da der Strich? Leider bisher nicht gefunden.

und bitte keinen unfug mit meinen daten treiben…

Zu spät. Jetzt steht sie im Internet und Jeder hat Zugriff.

Gruß
Reinhard

#9

wenns nicht so ein dringendes problem wär`hät ich den blödsinn mit dem hochladen nicht gemacht…

auf der startseite z.b. lebensmittel anklicken, dann beim button „bestätigen“ nachsehen. oberhalb sind linien zu sehen, die dort nichts zu suchen haben.

ich bitte um re, wenn gefunden.

sonst vielen dank.

nikodemo

#10

Hallo Nikodemo,

wenns nicht so ein dringendes problem wär`hät ich den blödsinn
mit dem hochladen nicht gemacht…

Daten anonymisieren, geht in wenigen Minuten, dann hochladen.

auf der startseite z.b. lebensmittel anklicken, dann beim
button „bestätigen“ nachsehen. oberhalb sind linien zu sehen,
die dort nichts zu suchen haben.

Ich habe im Blatt Haushalt auf den Button lebensmittel in C5 geklickt.
Anschließend änderte sich die Ansicht aber im Umfeld des Buttons Bestätigung waren keine irgendwelche außergewöhnliche Linien sichtbar.

Übrigens, du sagst dein problem ist dringend, okay, kann passieren. Aber wenn du du von mir den Hinweis auf die Angabe der Excelversion bekommst, warum sagst du sie nicht?
Je koopertiver du bist desto schneller ist dein Problem gelöst.

Gruß
Reinhard

#11

hi,

wenn du weiter nach unten scrollst, tauchen identische formulare auf.

da entdeckst du dann diese linien.

es grüßt dich nikodemo

#12

Hallo NikoDemo.

Ich hatte gedacht, die Listboxen wären auf einem UserForm, aber sie sind ja auf dem Tabellenblatt.

dieser „strich“ oder diese „linie“ läßt sich eben nicht mehr
„anklicken“ oder sonstwie markieren. es ist eine linie dort,
wo ürsprünglich die listbox war. sie läßt sich aber auch nicht
durch „bearbeiten/löschen/alles“ noch durch das entfernen der
entsprechenden zeilen löschen. es ist zum verzweifeln.

Die waagerechten Striche, die man in der Datei sieht, sind einfach mit Rahmen formatierte Zellen. (Wenn wir hier über die gleichen Striche reden)

Um eventuelle Steuerelemete zu markieren, die auf Strichgröße geschrumpt sind (ich habe den Verdacht, daß Listbox2 so ein Kandidat ist), kannst Du folgenden Code im Codefenster von „Haushalt“ verwenden:

Private Sub Worksheet\_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 ListBox2.Select
End Sub

Danach den Entwurfsmodus einschalten und das Steuerelement bearbeiten/entfernen.

VG
Carsten

#13

Moin, Nikodemo,

falls damit das Feld links von „Auswahl Datum“ auf dem Blatt 03.Hygiene (und 04. und 05. …) gemeint sein sollte: Dort sitzt keine Listbox.

Prüfen kannst Du das, indem Du die Mappe öffnest, ohne die Makros zu aktivieren.

Gruß Ralf

#14

wenn du weiter nach unten scrollst, tauchen identische
formulare auf.
da entdeckst du dann diese linien.

Hallo Nikodemo,

dann werden das Linien o.ä. und keine Listboxen sein.

Es sind keine Listboxen mit der Höhe 0,1,2,3 o.ä vorhanden.

Lass das makro laufen, dann siehst du es

Sub tt()
Dim wks, W, S, C, Nam(1000), Hoe(1000), Bla(1000), N
Application.ScreenUpdating = False
For Each wks In ThisWorkbook.Worksheets
 For Each S In wks.Shapes
 Nam(C) = S.Name
 Hoe(C) = S.Height
 Bla(C) = wks.Name
 C = C + 1
 Next S
Next wks
Worksheets.Add after:=Worksheets(Worksheets.Count)
For N = 0 To C
 Cells(N + 1, 1) = Nam(N)
 Cells(N + 1, 2) = Hoe(N)
 Cells(N + 1, 3) = Bla(N)
Next N
Columns("A:C").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, \_
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard