Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

304 Forumthreads zu ähnlichen Themen

Auf jedem Tabellenblatt zurück in A1 springen
Bernd

Hallo,
ich habe mehrere Tabellenblätter und möchte, nachdem ich nachfolgende Module ausgeführt habe, daß auf jedem Tabellenblatt wieder A1 die aktive Zelle ist. Derzeit ist bei mir immer D7 aktiv.
Modul 1: Hier wird die Kopfzeile erstellt
Sub KopftextLinks() Dim i As Long Dim Blat...
20.02.2009 10:58:00
Thread-ID: 1052384
3 Beiträge
Anzeige
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
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
Anzeige
Datenbereich bei Diagramm über mehrere Blätter
Alexander

Hallo zusammen,
wollte ein Diagramm erstellen, dessen Datenbereich sich über mehrere Tabellenblätter erstreckt. In das Feld Datenbereich hätte ich dann folgendes geschrieben (=Tabelle1!$A$1:$B$3;Tabelle2!$C$1:$D$3). Dann erhielt ich die Fehlermeldung: "Verweis ist ungültig."
Gibt es da...
28.10.2009 21:08:45
Thread-ID: 1112759
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
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
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
2
4
2
2
10
4
3
5
2
2
1
3
8
7
1
2
2
3
3
7
1
5
3