Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.01.2025 15:09:23
Probleme beim Speichern eines Tabellenbalttes mit SaveAs
15.01.2025 13:43:54
Daten in zwei Registern miteinander vergleichen
15.01.2025 13:23:32
Einzelne Buchstaben einer Zelle per VBA einfärben
15.01.2025 11:46:48
Hyperlink in Userform aktualisiern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abstand von Textbox bis zum unter. Rand ermitteln

Kategorie
Benutzeroberfläche
Tags
#anpassung #layout #textboxen
Relevante Fragen
Anzeige
Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 10:47:11
Textbox
Hi,
ich habe auf meinem Sheet eine Textbox1, die mit Inhalt gefüllt wird und dann unterschiedlich gross ausfallen kann.
Nun habe ich zwei weitere textboxen die soll in der Grösse (Höhe) so gross sein, dass sie sich den Rest des Sheets bis zum unteren Rand teilen. Also, je grösser meine erste Textbox ist, um so kleiner muss die zweite und dritte werden.
Wie kann ich ermitteln, wieviel Höhe mir von meiner textbox1 bis zum unteren Rand des Sheet noch zur Verfügung stehen, um den nacher durch zwei zu teilen und den beiden anderen textboxen in der Höhe zuweisen kann.
Danke mal
Gruss
Tom

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 11:23:03
Textbox
Hi
mal so als Ansatz:
mit den Funktionen:

activewindow.VisibleRange.Top
activewindow.VisibleRange.Height


kannst du die Pixel-Positon und die Höhe des aktiven Fensters ermitteln.
gleiches geht hauch für die Textboxen mit


Textbox1.Top
Textbox1.Height


der Code dazu könnte dann so aussehen:
Sub test()
Dim a As Double
a = ActiveWindow.VisibleRange.Height - (TextBox1.Top - ActiveWindow.VisibleRange.Top) - TextBox1.Height
a = a / 2
TextBox2.Top = TextBox1.Top + TextBox1.Height
TextBox2.Height = a
TextBox3.Top = TextBox2.Top + TextBox2.Height
TextBox3.Height = a
End Sub
Gruß, Daniel

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 11:52:00
Textbox
Hi,
was passiert den, wenn ich mein aktives Fenster mal minimiere, verändert sich da auch wieder meine Höhe der beiden Boxen ?
Das sollte nicht passieren, ich muss die Seite naher ausdrucken und ich gehe immer von einem vollen DinA4 Blatt aus.
Gruss
Tom

AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 12:01:28
Textbox
Hi
die grösse der Textboxen ändert sich immer nur dann, wenn das Makro läuft.
Änderst du die Fenstergrösse ohne hinterher das Makro laufen zu lassen, ändern sich die Textboxen nicht.
Gruß, Daniel

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 12:22:00
Textbox
Hi Daniel,
aber wenn ich das Makro an einem Laptop mit anderer Auflösung laufen lasse oder das ganze an einem Rechner mit anderer Auflösung, dann habe ich aber jedesmal ein anderes Ergebnis, weil die gasamte Höhe der Monitore anders ist.
das Makro geht immer von der Auflösung aus aber nicht vom Rand des DinA4 Blattes
Man dürft nicht die Anzahl der Pixel abprüfen , sondern müsset den tatsächlichen Rand bis zur Fusszeile (Voransicht) ermitteln.
Gruss
Tom

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 12:38:15
Textbox
Hi
von einem Ausdruck auf ein DinA4-Blatt war in deiner Anfrage ja auch keine Rede, da bin ich halt von der Bildschrimanzeige ausgegangen.
Sorry, wenn die Frage nicht präzise gestellt wird, dann ist die Anwort eben 42.
du kannst die position des ersten Zeilenumbruchs so feststellen:
activesheet.HPageBreaks(1).Location.top
damit das präzise funktioniert, solltest du vorher mal kurz die Seitenansicht aktivieren und der Druckbreich muss grösser als eine Seite sein.
Gruß, Daniel

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 13:01:00
Textbox
Hi
sorry, wenn ich mich nicht richtig ausgedrückt habe.
Welchen Zeilenumbruch meinst Du denn und wie kann ich dann damit die Höhe meine zwei Textboxen berechnen ?
Gruss
Tom

AW: Abstand von Textbox bis zum unter. Rand ermitteln
04.08.2008 13:25:46
Textbox
Hi
sorry, meinte nicht Zeilenumbruch, sondern Seitenumbruch.
das ist die stelle, wo der Drucker ein neues Blatt anfängt.
über "activesheet.HPageBreaks(1).Location" bekommst du die Zelle, wo der erste horizontale Seitenumbruch sitzt und über "activesheet.HPageBreaks(1).Location.Top" eben die Pixel-Position dieser Stelle
ist im Prinzip das gleiche wie VisibleRange, nur halt nicht für den Bildschirm, sondern für den Drucker
Gruß, Daniel

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitt
04.08.2008 15:33:00
Textbox
Hi Daniel
Danke, ach so, der Seitenumbruch. Aber wenn ich den restlichen Platz , der für die zwei beschriebenen Textboxen zur Verfügung stehen soll, noch ausrechnen muss, dann brauche ich doch die Position meiner ersten Textbox, wo sie endet, bzw, wie weit sich nach unten reicht.
Oder denkst Du an sowas, dass ich von activesheet.HPageBreaks(1).Location.Top (also meine Gesamthöhe) die Höhe meiner ersten Textbox abziehen und den Rest durch 2 teile und diesen errechneten Wert dann als Höhe für meine beiden folgenden Textboxen nehme ?
Gruss
Tom

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitt
04.08.2008 15:39:38
Textbox
Hi
Hpagebreaks(1).Location.Top ist quasi der Platz, den du auf deinem ersten Blatt zu verfügung hast.
bei der Berechnung des freien Platzes unterhalb der Texbox1 musst du immer Höhe (.Height) und Startposition (.Top) der Textbox1 berücksichtigen.
Gruß, Daniel

AW: Abstand von Textbox bis zum unter. Rand ermitt
04.08.2008 18:14:40
Textbox
Hi,
also, dann gehe ich davon aus, dass meine Vermutung richtig ist:
werde mal von Hpagebreaks(1).Location.Top die Höhe meiner textbox1 abziehen, dann noch mal ca. -10 und dann hätte ich ja eigentlich Textbox2.top.
Dann müsste doch die Textbox2 direkt unter Textbox1 stehen, oder
Gruss
Tom

Anzeige
AW: Abstand von Textbox bis zum unter. Rand ermitt
04.08.2008 18:29:00
Textbox
Hi
wie sagt man bei uns in der Firma so schön: Versuch macht kluch(g)
aber ein sei dir gesagt, die Startposition der Textbox2 hängt nur dann vom Hpagebreaks(1).Location.Top ab, wenn die Textboxen auf der 2. Seite erscheinen sollen.
Gruß, Daniel

AW: Abstand von Textbox bis zum unter. Rand ermitt
04.08.2008 19:08:00
Textbox
Hi Daniel,
nein, meine 2. Textbox soll eigentlich auch auf der ersten Seite erscheinen.
Gruss
Tom
Anzeige

Forumthreads zu verwandten Themen

Wörterabstand in einer Zelle
Anja

Hallo Allerseits!
Ich möche einen Vor- und Zunamen in einer Zelle formatieren. Kann man den Abstand der untereinanderstehenden Wörter verändern?
Beispieldatei ist im Anhang.
https://www.herber.de/bbs/user/58883.xls
DANKE im Vorraus für Holfe.
Gruß ANJA
29.01.2009 09:13:00
Thread-ID: 1044800
4 Beiträge
UnterschiedlicheFormatierung innerhalb einer Zelle
Heinzelmännchen

Hallo zusammen,
ich möchte einen Wert innerhalb einer Zelle (Formel) mit einer Formatierung versehen (Fett gedruckt). Funktioniert das?
Viele Grüße
Steffi
02.02.2009 11:50:00
Thread-ID: 1046136
6 Beiträge
Text innerhalb einer Zelle faerben
Timmy

Liebe Excler,
gibt es eine Moeglichkeit (evtl. in der bed. Formatierung) einen Text innerhalb einer Zelle zu faerben?
Z.B.
A1 Excel 2003 ist super
A2 Excel 2003 ist genial
Excel soll mir nun jeweils "Excel 2003" farblich machen, den Zusatz jedoch nicht!
Geht das, am best...
20.03.2009 14:28:40
Thread-ID: 1062211
19 Beiträge
Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
Anzeige
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
werte in zelle automatisch verändern
nadja

hallo leute,
habe ein problem mit meinem excelfile.
ich habe in einer spalte (c) folgende werte:
VP_1FU_Mod1_k_bb2
VP_2FL_Mod2_v_bb3
VB_3VG_Mod3_k_bb4
usw.
neben dieser spalte (c)sind die nächsten spalten(d) leer.
nun hätte ich gerne, dass mir excel automatisch...
22.07.2009 11:21:08
Thread-ID: 1090470
5 Beiträge
Anzeige
Bezug in Zelle X nach Eingabe in Zelle Y ändern
Jan

Liebe Excelianer,
ich programmiere gerade an einem Budgettool und möchte das folgende einbauen:
(Siehe auch Beispieltabelle) https://www.herber.de/bbs/user/63381.xls
Eine Tabelle besteht aus drei Spalten:
"Schätzung", "Aktuelle Kosten" und "Vertraglich fest" und zeigt, dass am...
23.07.2009 17:45:49
Thread-ID: 1090891
9 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Mehrfaches Verändern von Zelleninhalten [Excel 200
Zelleninhalten

Ich habe hier eine riesen Liste mit E-Mailadressen, welche alle umgezogen sind und anstatt "user@xy.com" nun "user@abc.com" haben.
Mir ist bekannt, dass es eine Funtion in Excel gibt, mit welcher man sagen kann: Ersetze mir für in allen Zellen das "xy.com" durch "abc.com" jedoch finde ich d...
07.11.2009 13:09:28
Thread-ID: 1115198
2 Beiträge
Anzeige
diagramm aus sich verändernden werten einer zelle
Gill

hallo, hier ein hoffentlich kleines problemchen:
in zelle b12 wird ein wert in abhängigkeit der eingaben in zeile 7 ermittelt.
der verlauf der änderungen in b12 soll grafisch dargestellt werden.
ein bekannter meinte, das ginge nur mit vba.
leider kenne ich mich mit vba nicht aus...
17.11.2009 13:30:19
Thread-ID: 1117955
4 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige