Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.11.2023 14:44:49
Textbox Vertikale Bildlaufleiste immer am Anfang
30.11.2023 14:02:49
Hallo Piet Finde keine Lösung zu meinem Problem
30.11.2023 13:45:40
Zahlenfolgen gruppieren
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform an Zelle ausrichten

Userform an Zelle ausrichten
28.07.2008 20:34:22
SteffenS
Hallo Zusammen,
wier kann ich eine Userform an der linken unteren Ecke der aktiven Zelle ausrichten?
Danke im Voraus.
MFG
Steffen Schmerler

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Gegenfrage
28.07.2008 20:57:13
Tino
Hallo,
normal gehört sich dass ja nicht zu einer Frage eine Gegenfrage zu stellen, aber ich muss einfach mal nachfragen.
Wie möchtest Du gewährleisten, dass immer die korrekte Zelle die Aktive ist.
Was ist wenn die aktive nicht im Sichtbereich ist oder die aktive Zelle in Spalte A liegt.
Gruß Tino

www.VBA-Excel.de


hm, das ist ein noch ein Problem
28.07.2008 21:01:28
SteffenS
was ich erreichen will ist, dass wenn ich eine Zelle einen Wert eingeben eine Userform daneben aufgeht wo ich eine Info Zeige bzw. einen weiteren Wert eingeben kann.
Leider habe ich keine Ahnung wie ich die UF in zellnähe anordnen kann.
Man kann sie vielleicht noch darüber zeigen.
Vielleicht hat das schonmal jemand von Euch gemacht.
Danke im Voraus.
Steffen Schmerler

Anzeige
AW: nicht getestet
28.07.2008 21:26:15
Tino
Hallo,
hier mal ein Beispiel, die Zelle sollte nach oben gescrollt werden und die Userform darunter geöffnet.
In ein Modul

Public Zelle As Range


Ins Tabellenblatt als Code


Private Sub Worksheet_Change(ByVal Target As Range)
Set Zelle = Target
UserForm1.Show
End Sub


In der Userform


Private Sub UserForm_Initialize()
ActiveWindow.ScrollRow = Zelle.Row
UserForm1.Left = Zelle.Left
UserForm1.Top = Zelle.Top + Zelle.Height
End Sub


Die Eingabe Zelle sollte aber im Change Ereignis entsprechend eingeschränkt werden.
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: nicht getestet
28.07.2008 21:51:40
OttoH
Hallo Leute,
da kommen noch einige Klippen hinzu:
- Wieviele Symbolleisten sind aktiv?
- Ist das Excelfenster in Vollbild- oder verkleinerter Ansicht
- Wie ist die Bildschirmauflösung?
DAs sind einige Fragen, die vorab geklärt werden müssen. der Aufwand erscheint mir sehr hoch zu sein.
Gibt es nicht einen anderen Ansatz?
Reicht es nicht aus, dass das UF-Fenster zebntriert auf den Schirm gebracht wird?
Gruß OttoH

AW: nicht getestet
28.07.2008 22:26:29
Tino
Hallo OttoH,
genau du hasst recht, die Zellen haben die Top und Left Werte von Excel und die Userform die von Windows.
@SteffenS
Also vergiss mein Beispiel mit Top und left, dass geht so nicht.
Gruß Tino

Anzeige
vielleicht reicht es so
28.07.2008 22:38:55
Tino
Hallo,
eine nicht 100% Lösung könnte ich noch anbieten.
Die Userform ab der Desktop Mitte darzustellen.

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Private Sub UserForm_ Initialize()
ActiveWindow.ScrollRow = Zelle.Row
UserForm1.Left = GetSystemMetrics(0) * 0.75 / 2 - UserForm1.Width / 2
UserForm1.Top = GetSystemMetrics(1) * 0.75 / 2
End Sub


Gruß Tino

AW: Teste mal ob es so geht.
29.07.2008 00:56:50
Tino
Hallo,
habe mal etwas experimentiert,
kommt dies in etwa hin, Tabelle muss aber Maximiert sein?
Schreibe in eine Zelle Deiner Wahl etwas rein, Mitte oder unten.
https://www.herber.de/bbs/user/54184.xls
Gruß Tino

www.VBA-Excel.de


Anzeige
Danke für Deine
31.07.2008 10:26:00
SteffenS
werd mal probieren. Sieht aber gut aus :-)))
MFG
Steffen

260 Forumthreads zu ähnlichen Themen

Textfeld ändern und in Zelle schreiben
Sergej

Hallo ich habe mehrer Textfelder, diesen ein Makro hinterlegt:
Dabei soll bei Eingabe der neue String in die bestimmte Zelle und in das Textfeld gechreiben werden, ich komme mit der Syntax nicth ganz klar, ich möchte in der ZEILE
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select, stat...
23.04.2013 13:48:00
Thread-ID: 1310019
2 Beiträge
VBA: bei verlassen Textbox 5, berechnen Textbox6
Bernd

Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebni...
06.08.2013 15:18:19
Thread-ID: 1325930
8 Beiträge
VBA Textbox - Texteingabe wird nicht angzeigt
MFuchs

Hallo zusammen.
Nachdem ich die letzten zwei Tage durch div. Beiträge hier und mit Googles Hilfe versucht habe eine Lösung für mein Problem zu finden, aber bisher zu keinem Ergebnis gekommen bin, bitte ich jetzt doch die Experten um Rat.
Beschreibung des Situation:
Ich habe ein User...
19.08.2016 15:18:56
Thread-ID: 1510217
2 Beiträge
Diagramm an Zelle ausrichten?
TomTom
Hallo Forum,

ich mal wieder...
Meine Diagramme machen was sie sollen, ... fast ...

Ich erstelle einige Diagramme und zwar als Objekte in einem bestimmten Datenblatt. Kann ich irgendwie festlegen, dass die linke obere Ecke des Diagramm1 an Zelle A1 und alle fogenden Diagramme da...
15.10.2003 11:16:01
Thread-ID: 323780
4 Beiträge
Text in Combobox vertikal zentrieren
{Boris}
Hi Leute,
ist es möglich, den Text in einer Combobox vertikal zu zentrieren?
Also analog der Zellausrichtung für "Vertikal" - Zentriert.
Oder muss man das immer aus Comboboxhöhe und Schriftgröße "zusammenbasteln"?
Danke und
Grüße {Boris}
09.02.2004 15:56:46
Thread-ID: 379155
3 Beiträge
Userform an zelle ausrichten
Torsten

Hallo,
ich öchte dass wenn ich in Spalte A in eine Zelle klicke (Worksheet Selection Change), dass dann eine Userform sich öffnet und diese sich unten rechts an der Zelle positioniert.
Vielen Dank,
Torsten
13.10.2004 11:40:18
Thread-ID: 499736
2 Beiträge

Links zu Excel-Dialogen

UserForm
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige