Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm Position, Code für alle Blätter

Forumthread: UserForm Position, Code für alle Blätter

UserForm Position, Code für alle Blätter
18.10.2014 09:35:55
rieckmann
Hallo und guten Morgen,
dieser Code den ich gefunden habe, bestimmt die Position einer UserForm durch Eingabe der Spalte und Zeile in den Zellen A1 + A2.
O.K. die eingegebene Position stimmt nicht so ganz, aber zum feintunen finde ich die Lösung ganz toll.
Wie kann ich den Code anwenden, wenn ich die Einstellung im Blatt "Menü" vornehmen möchte, und die Anwendung in den Blättern 1 - 9 stattfinden sollen.
Also die Position im Blatt "Menü" einstellen so dass sich dann die UserForm in den Blättern 1 bis 9 dann in dieser eingestellten Position, beim öffnen des jeweiligen Blattes öffnet.
Oh Man, ich hoffe das ich es verständlich erklärt habe !
Gruß
Fred
Hier die Beispielmappe:
https://www.herber.de/bbs/user/93225.xls

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm Position, Code für alle Blätter
18.10.2014 09:46:53
Crazy
Hallo Fred
wo ist das Problem?
die Userform öffnet sich doch in jedem Tabellenblatt an gleicher Stelle
MfG Tom

AW: UserForm Position, Code für alle Blätter
18.10.2014 13:27:41
rieckmann
Hallo Tom,
da diese Tabelle auf verschiedenen PC`s läuft, verschiebt sich schon mal die Ansicht der UserForm.
Zumindest wirkt es so, wenn die Monitore unterschiedliche Formate haben.
Deshalb möchte ich das beim öffnen eines der 11 Tabellenblätter die Position der UserForm so anpasst, wie es im Tabellenblatt "Menü" eingestellt wurde.
Oder gibt es eine einfachere Lösung, wie ich die UserForm in Zeile 1 links oben platzieren kann ?
Gruß
Fred

Anzeige
AW: UserForm Position, Code für alle Blätter
18.10.2014 13:50:28
Daniel
Hi
das Grundsätzliche Problem ist, dass du die Startposition der Userform immer bezogen auf den gesamten Bildschirm angibst.
die Koordinaten einer Zelle beziehen sich aber immer auf die Position innerhalb einer Tabelle.
wenn du jetzt eine Userform genau bei einer Zelle platzieren willst, musst du, um die Bildschirmkoordinaten für die Userform zu erhalten, folgende Werte berücksichtigen bzw zusammenaddieren:
- Position des Excelfensters auf dem Bildschirm
- Rahmenbreite des Excelfensters
- für die y-Koordinate Höhe der Menüleiste und Bearbeitungszeile
- Position des Mappenfensters innerhalb des Excelfensters
- Rahmenbreite des mappenfensters
- Breite und Höhe der Zeilen/Spaltenköpfe
- Position der Zelle im Blatt
also nicht so ganz einfach, google man "Userform an Zelle ausrichten", du solltest genügend finden.
Gruß Daniel

Anzeige
AW: UserForm Position, Code für alle Blätter
18.10.2014 14:01:30
rieckmann
Hallo Daniel,
danke für die Info.
UserForm an Zelle ausrichten ist ein guter Tipp.
Die andere Sache habe ich es hinbekommen.
Private Sub Worksheet_Activate()
Tabelle1.Cells.Interior.ColorIndex = xlNone
UserForm1.Show
End Sub
Gruß
Fred

Anzeige
AW: UserForm Position, Code für alle Blätter
20.10.2014 15:45:41
Ewald
Hallo Fred,
teste mal so
Private Sub UserForm_Initialize()
Dim zeile, spalte, mytop, myleft, x, y
On Error GoTo fehler
zeile = Tabelle1.Cells(1, 1)
spalte = Tabelle1.Cells(2, 1)
y = Application.Height - ActiveWindow.Height + 14
x = Application.Width - ActiveWindow.Width + 20
mytop = Tabelle1.Cells(zeile, spalte).Top + y
myleft = Tabelle1.Cells(zeile, spalte).Left + x
Tabelle1.Cells(zeile, spalte).Interior.ColorIndex = 3
UserForm1.StartUpPosition = 0
UserForm1.Left = myleft
UserForm1.Top = mytop
Exit Sub
fehler:
MsgBox "Programm kann nicht vollständig ausgeführt werden", , "Ein Fehler ist aufgetreten"
End Sub
Bedenke aber das die anderen Tabellen auch das gleiche Layout wie Tabelle1 haben muß,ansonsten mußt du außer der Zeilen. und Spaltenvorgabe in Tabelle1, "Tabelle1" durch "ActiveSheet" ersetzen.
Gruß Ewald

Anzeige
AW: UserForm Position, Code für alle Blätter
20.10.2014 17:45:58
rieckmann
Hallo Ewald,
danke für deine Mühe,
und die farbige Markierung in der Zelle wird im Tabellenblatt7 in richtiger Position angezeigt,
aber die Userform1 öffnet sich nicht !
Ich habe die Eingabe-Zellen auf dem Tabellenblatt7 in A1 und A2.
Der CommandButton2, der die UserForm auslösen soll, ist auf Tabellenblatt "Menü".
Private Sub CommandButton2_Click()
Dim zeile, spalte, mytop, myleft, x, y
On Error GoTo fehler
zeile = Tabelle7.Cells(1, 1)
spalte = Tabelle7.Cells(2, 1)
y = Application.Height - ActiveWindow.Height + 14
x = Application.Width - ActiveWindow.Width + 20
mytop = Tabelle7.Cells(zeile, spalte).Top + y
myleft = Tabelle7.Cells(zeile, spalte).Left + x
Tabelle7.Cells(zeile, spalte).Interior.ColorIndex = 3
UserForm1.StartUpPosition = 0
UserForm1.Left = myleft
UserForm1.Top = mytop
Exit Sub
fehler:
MsgBox "Programm kann nicht vollständig ausgeführt werden", , "Ein Fehler ist aufgetreten"
End Sub

Gruß
Fred

Anzeige
AW: UserForm Position, Code für alle Blätter
20.10.2014 18:27:05
rieckmann
Hallo Ewald,
danke für deine Mühe,
und die farbige Markierung in der Zelle wird im Tabellenblatt7 in richtiger Position angezeigt,
aber die Userform1 öffnet sich nicht !
Ich habe die Eingabe-Zellen auf dem Tabellenblatt7 in A1 und A2.
Der CommandButton2, der die UserForm auslösen soll, ist auf Tabellenblatt "Menü".
Private Sub CommandButton2_Click()
Dim zeile, spalte, mytop, myleft, x, y
On Error GoTo fehler
zeile = Tabelle7.Cells(1, 1)
spalte = Tabelle7.Cells(2, 1)
y = Application.Height - ActiveWindow.Height + 14
x = Application.Width - ActiveWindow.Width + 20
mytop = Tabelle7.Cells(zeile, spalte).Top + y
myleft = Tabelle7.Cells(zeile, spalte).Left + x
Tabelle7.Cells(zeile, spalte).Interior.ColorIndex = 3
UserForm1.StartUpPosition = 0
UserForm1.Left = myleft
UserForm1.Top = mytop
Exit Sub
fehler:
MsgBox "Programm kann nicht vollständig ausgeführt werden", , "Ein Fehler ist aufgetreten"
End Sub

Gruß
Fred

Anzeige
AW: UserForm Position, Code für alle Blätter
20.10.2014 19:08:39
rieckmann
Na super,
so klapps das ja sehr gut.
Danke und Gruß
Fred
;

Forumthreads zu verwandten Themen

Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Anzeige
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Passworte für alle Blätter
Bernd

Hallo,
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code g...
04.09.2009 18:22:14
Thread-ID: 1100680
3 Beiträge
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
MIN über mehrere Blätter
Thomas

Hallo liebe Gemeinde,
und frohes neues Jahr erst einmal.
Ich möchte gerne einen Streckenrekord einer bestimmten Streckenlänge anzeigen lassen.
Hierzu habe ich mehrere Sheets mit Ergebnislisten aus den vergangenen Jahren mit Namen "2009", "2008" usw.
Darin befinden sich in Spalte...
02.01.2010 13:14:28
Thread-ID: 1126702
5 Beiträge
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
Anzeige
summe über mehrere Tabellenblätter
Volker

Hallo Liebe Excel- Gemeinde
In einem Forum habe ich mal eine Hinweis auf eine "Summen- Formel" gelesen, die aus einer Arbeitsmappe eine Summe aus allen Tabellenblätter dieser Mappe aus einer bestimmten Zelle zusammen bildet.
Also mein Problem ist
1. aus einer Arbeitsmappe immer die...
31.01.2010 13:23:17
Thread-ID: 1134569
6 Beiträge
Änderung in allen Worksheets
highman4

Hallo Excelfreunde,
Ich möchte eine Berechnung in allen Arbeitsblättern (ca. 150) vornehmen lassen.
Folgender Code:
Sub Bestellung_Ausloesen() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Cells(10, 2) > Cells(9, 2) Then Cells(11, 2) = 0 Else Cells(11, 2) = Cells(...
05.02.2010 07:11:14
Thread-ID: 1135983
3 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 11:54:52
Thread-ID: 1137344
2 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 12:57:50
Thread-ID: 1137372
4 Beiträge
SUmme über mehrere Tabellenblätter bilden
Wolf

Hallo, ich hatte schon mal diese Frage gestellt, aber mit der Antwort kam ich nicht richtig weiter (10.2.10).
Ich muss die Formel SUMMEWENN über mehrere Tabellenblätter anwenden. Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine auf einem eigenen Tabellenblatt selbst...
24.02.2010 12:24:40
Thread-ID: 1141005
9 Beiträge
Anzeige
Indirekt über mehrere Tabellenblätter
Jessica

Hallo,
ich habe ein Problem, für das ich bereits in einem älteren Thread eine Lösung gefunden habe. Leider funktioniert das bei mir nicht! :-(
Ich habe 12 Sheets mit den Namen "Januar" bis "Dezember"
Auf dem Übersichtsblatt möchte ich in D2 den Monat eingeben, z.B. März und dann sol...
27.02.2010 08:14:02
Thread-ID: 1141906
2 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