Abstand von Textbox bis zum unter. Rand ermitteln

• Abstand von Textbox bis zum unter. Rand ermitteln von TomTom vom 04.08.2008 10:47:11
• AW: Abstand von Textbox bis zum unter. Rand ermitteln - von Daniel am 04.08.2008 11:23:03
  • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von TomTom am 04.08.2008 11:52:43
    • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von Daniel am 04.08.2008 12:01:28
      • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von TomTom am 04.08.2008 12:22:40
        • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von Daniel am 04.08.2008 12:38:15
          • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von TomTom am 04.08.2008 13:01:10
            • AW: Abstand von Textbox bis zum unter. Rand ermitteln - von Daniel am 04.08.2008 13:25:46
              • AW: Abstand von Textbox bis zum unter. Rand ermitt - von TomTom am 04.08.2008 15:33:49
                • AW: Abstand von Textbox bis zum unter. Rand ermitt - von Daniel am 04.08.2008 15:39:38
                  • AW: Abstand von Textbox bis zum unter. Rand ermitt - von TomTom am 04.08.2008 18:14:40
                    • AW: Abstand von Textbox bis zum unter. Rand ermitt - von Daniel am 04.08.2008 18:29:40
                      • AW: Abstand von Textbox bis zum unter. Rand ermitt - von TomTom am 04.08.2008 19:08:02

Betrifft: Abstand von Textbox bis zum unter. Rand ermitteln
von: TomTom

Geschrieben am: 04.08.2008 10:47:11

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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: Daniel
Geschrieben am: 04.08.2008 11:23:03
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: TomTom

Geschrieben am: 04.08.2008 11:52:43
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: Daniel
Geschrieben am: 04.08.2008 12:01:28
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: TomTom

Geschrieben am: 04.08.2008 12:22:40
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: Daniel
Geschrieben am: 04.08.2008 12:38:15
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: TomTom

Geschrieben am: 04.08.2008 13:01:10
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitteln
von: Daniel
Geschrieben am: 04.08.2008 13:25:46
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitt
von: TomTom

Geschrieben am: 04.08.2008 15:33:49
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitt
von: Daniel
Geschrieben am: 04.08.2008 15:39:38
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitt
von: TomTom

Geschrieben am: 04.08.2008 18:14:40
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitt
von: Daniel
Geschrieben am: 04.08.2008 18:29:40
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

Betrifft: AW: Abstand von Textbox bis zum unter. Rand ermitt
von: TomTom

Geschrieben am: 04.08.2008 19:08:02
Hi Daniel,
nein, meine 2. Textbox soll eigentlich auch auf der ersten Seite erscheinen.
Gruss
Tom

Excel-Beispiele zum Thema "Abstand von Textbox bis zum unter. Rand ermitteln"

Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten		Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen
Prüfung im Sekundenabstand, ob eine Datei geändert wurde		Text aus Textbox in Variable
Namen von TextBoxes hochzählen		Text aus Textbox in Zellen aufteilen
Nichtnumerische Eingaben in TextBox verhindern		Text aus UserForm-Textbox in Variable einlesen
Nur Buchstaben in eine UserForm-TextBox		TextBoxes- und Label-Werte in Abhängigkeit verändern
Nur AJM in TextBox akzeptieren und Anzahl zählen		Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen
Artikel aus Auswahltextbox in Sammeltextbox verschieben		Bei Doppelklick Textbox mit Text einfügen
Umwandlung eines TextBox-Wertes in eine Zahl		Wert in UserForm-TextBox eintragen und selektieren
Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen		Mit TextBox-Werten in UserForm rechnen
Werte aus UserForm-TextBox in bestimmten Formate übertragen		UserForm-TextBoxes ein- und ausblenden
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen		Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden
Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen		In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern
Bestimmte Zeichen in einer UserForm-TextBox markieren		Textvariable in eine UserForm-TextBox eintragen
UserForm-TextBox-Werte über ScrollBar einlesen		Wert aus Zelle in Tabellenblatt-Textbox eintragen
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen		Werte zweiter UserForm-TextBoxes multiplizieren
TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln		Text aus UserForm-TextBox drucken
Tabulator in UserForm-TextBox simulieren		UserForm-TextBox-Werte einer ListBox hinzufügen
UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen		Text aus UserForm-TextBox in Tabelle suchen
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen		Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen		Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt
Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox		Wert aus UserForm-TextBox suchen und Fundstelle kopieren
Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld		Eingabebegrenzungen für TextBoxes
Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes		Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen
Focus und Selection zwischen zwei TextBoxes wechseln		Wert aus ComboBox in TextBox, dann in Tabelle suchen
Datumreihe aus TextBox-Einträgen generieren		Eingetragenen Wert in TextBox speichern
Eigene Klasse für UserForm-TextBoxes bilden		Markierung einer Datumsreihe gem. UserForm-TextBoxes
Datum aus TextBox an erste frei Stelle eintragen		Letzte nichtleere Zelle ermitteln
Blattname ermitteln		Kopfzeile der Zelle mit dem höchsten Wert ermitteln.
Ermitteln von Datei- und Pfadnamen		Zellinhalt in zweitem Blatt ermitteln
Zustand von Tabellenblatt-Checkboxes ermitteln		Wert in der Zelle neben dem Maximalwert ermitteln
Summe einzelner Zellwerte ermitteln		Seitenumbruch ermitteln und Übertrag erstellen
Anzahl von CheckBoxes in einer UserForm ermitteln		Anzahl der gelb hinterlegten Zellen ermitteln
Aufrufende Menüleistenschaltfläche ermitteln		Bereichsnamen ermitteln und als Kommentare anzeigen
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln		Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln
Arbeitszeiten einer Personal-Nummer und eines Tages ermitteln		Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln
Summe aller kursiv geschriebenen Werte ermitteln		Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen
Anzahl der Wochentage in einem vorgegebenen Zeitraum ermitteln		Neues Tabellenblatt und Name über UserForm ermitteln
Laufzeit von Windows seit letzten Start ermitteln		Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln		Position der aufrufenden Schaltfläche ermitteln
Summen zwischen zwei Zeiträumen ermitteln		Vorkommen eine Zeichens in einem Bereich ermitteln
Höchstes Datum einer Reihe ermitteln und eintragen		Erstes CD-ROM-Laufwerk ermitteln
Mittelwert aus den 6 höchsten Werten in Spalte A ermitteln		Zeilennummern von Fundstellen ermitteln
Online-Kosten anhand von Start- und Endzeit ermitteln		Den ersten Wert einer gefilterten Spalte ermitteln
Werte in Abhängigkeit einer Gültigkeitslistenauswahl ermitteln		Aus Betriebseintrittsdaten Jubiläen ermitteln
Nach Artikelauswahl in ComboBox Preis ermitteln		Ausflugszeiten aus einer Reisematrix ermitteln
Aus Notenspiegel die am häufigsten vergebene Note ermitteln		Maximalwert für Wochenenden und Feiertage ermitteln
Freien Speicherplatz eines abzufragenden Laufwerks ermitteln.		Kommentartexte über SVERWEIS ermitteln und anzeigen
Anzahl von Zellen aus einem nicht rechteckigen Bereich ermitteln		Vorkommen eines Namens ab Zeitpunkt und in Gebiet ermitteln
Jahre, Monate und Tage von Zeiträumen ermitteln		Runde Geburtstage aus einer Liste ermitteln
Über InputBox zu ermittelnde Spaltenanzahl einfügen		Anzahl der Mails in einem vorgegebenem Outlook-Ordner ermitteln
Werte aus jeder 20. Zeile ermitteln		Nachtstunden ermitteln und Lohn errechnen
Minimalzeit je Athlet ermitteln