Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

UserForm

30 views
Skip to first unread message

Peter Kraeft

unread,
Feb 1, 2017, 9:50:29 AM2/1/17
to
Liebe NG,

mittels einer "Befehlsschaltfläche" auf einer Userform(liegt auf Sheet(1)) wollte ich ein anderes Tabellenblatt aufrufen. ThisWorkbook.Sheets(2).Range("B2").Select
Blatt (2) wird auch angezeigt lässt sich aber nicht bearbeiten. Alle Eingabe werden auf Blatt(1) ausgeführt. Es liegt daran dass der Code in der Befehlsschaltfläche ausgeführt wird; aber wie kann ich es ändern.
Über Tipps würde ich mich freuen.

Viele Grüße
Peter

Hans.Alborg

unread,
Feb 1, 2017, 3:56:38 PM2/1/17
to
Hi Peter,

Peter Kraeft schrieb:

> mittels einer "Befehlsschaltfläche" auf einer Userform(liegt auf Sheet(1)) wollte ich ein anderes Tabellenblatt aufrufen. ThisWorkbook.Sheets(2).Range("B2").Select
> Blatt (2) wird auch angezeigt lässt sich aber nicht bearbeiten. Alle Eingabe werden auf Blatt(1) ausgeführt. Es liegt daran dass der Code in der Befehlsschaltfläche ausgeführt wird; aber wie kann ich es ändern.

Eine Userform ist normal unabhängig vom Blatt (na, ich weiß auch nicht
alles).

Aber man kann auch Buttons direkt auf ein Blatt plazieren.
Ich nutze statt dessen gern bestimmte Zellen die beim draufklicken wie
ein Schalter reagieren. Lassen sich färben und beschriften.

Kopier hier doch mal was von Deinem Code rein und vor allem wo er
abgelegt ist: "unter" dem Blatt, der Userform, in einem Modul?

Hans







Rudi Tüscher

unread,
Feb 2, 2017, 6:59:39 AM2/2/17
to
Le mercredi 1 février 2017 15:50:29 UTC+1, Peter Kraeft a écrit :
> Liebe NG,
>
> mittels einer "Befehlsschaltfläche" auf einer Userform(liegt auf Sheet(1)) wollte ich ein anderes Tabellenblatt aufrufen. ThisWorkbook.Sheets(2).Range("B2").Select
> Blatt (2) wird auch angezeigt lässt sich aber nicht bearbeiten. Alle Eingabe werden auf Blatt(1) ausgeführt.

hast du schon mal versucht, das Blatt vorher zu aktivieren?

so:

Worksheets(2).Activate
Worksheets(2).Cells(2, 2).Select

Peter Kraeft

unread,
Feb 3, 2017, 6:17:24 AM2/3/17
to
Hallo Rudi,

Activate hatte ich schon versucht. Wenn ich im Editor mittels Einzelschritt den Code laufen lasse kann ich Blatt (2) bearbeiten. Aber nach End Sub springt der
"Focus" wieder auf Blatt(1). Auf dem Bildschirm ist noch Blatt(2) zu sehen.

Claus Busch

unread,
Feb 3, 2017, 6:34:34 AM2/3/17
to
Hallo Peter,

Am Fri, 3 Feb 2017 03:17:22 -0800 (PST) schrieb Peter Kraeft:

> Activate hatte ich schon versucht. Wenn ich im Editor mittels Einzelschritt den Code laufen lasse kann ich Blatt (2) bearbeiten. Aber nach End Sub springt der
> "Focus" wieder auf Blatt(1). Auf dem Bildschirm ist noch Blatt(2) zu sehen.

wenn du sowohl im Blatt als auch auf der UserForm arbeiten willst, musst
du die UserForm modeless anzeigen, also UserForm1.Show vbmodeless.
Der Focus bleibt aber auf deinem CommandButton und somit ist ein Eintrag
in Blatt2 nicht möglich.
Benötigst du die UserForm noch, wenn du auf Blatt2 gewechselt hast?


Mit freundlichen Grüßen
Claus
--
Windows10
Office 2016

Rudi Tüscher

unread,
Feb 3, 2017, 10:22:49 AM2/3/17
to

> Activate hatte ich schon versucht. Wenn ich im Editor mittels Einzelschritt den Code laufen lasse kann ich Blatt (2) bearbeiten. Aber nach End Sub springt der
> "Focus" wieder auf Blatt(1). Auf dem Bildschirm ist noch Blatt(2) zu sehen.

Habe deine Frage zu schnell gelesen. In UserForm sieht es ganz wenig anders aus. So:

im Modul folgenden Code (entsprechend vorheriger Antwort einfach abgeändert):
Sub Bouton1_Cliquer()
Worksheets(2).Activate
Worksheets(2).Cells(2, 2).Select
End Sub
im Code des UserForm folgender Code:
Private Sub CommandButton1_Click()
Bouton1_Cliquer
Unload Me
End Sub
(so heisst bei mir der Button, sonst Name anpassen)
Schau dir in der Hilfe vielleicht noch die Methoden Show, Hide und Unload in Bezug auf UserForms an, dann solltest du die Möglichkeiten sehen.

Peter Kraeft

unread,
Feb 6, 2017, 5:53:35 AM2/6/17
to
Hallo Claus,

die UserForm wird nicht benötigt.
Ich hatte dafür UserForm.Hide benutzt.
Wie kann ich hier eine Tabelle hochladen?

Viele Grüße
Peter

Peter Kraeft

unread,
Feb 6, 2017, 5:55:33 AM2/6/17
to
Hallo Rudi,

Unload und Hide habe ich versucht. Es liegt an meinen lückenhaften Kenntnissen zu VBA:-( Die Struktur ist vermutlich Müll.

Gruß
Peter

Claus Busch

unread,
Feb 6, 2017, 6:02:23 AM2/6/17
to
Hallo Peter,

Am Mon, 6 Feb 2017 02:53:33 -0800 (PST) schrieb Peter Kraeft:

> Wie kann ich hier eine Tabelle hochladen?

hier kannst du nichts hochladen.
Lade deine Mappe bei einem Filehoster wie DropBox oder in eine Cloud wie
OneDrive hoch und poste hier den Link dazu.

Peter Kraeft

unread,
Feb 7, 2017, 7:33:19 AM2/7/17
to
Ich versuche es mal mit Google.drive Es ist nur ein Gerüst aber der Fehler tritt hier auch auf.

Gruß Peter

https://drive.google.com/file/d/0B6TAEGVjU9knM2pIT3g1S1NvajQ/view?usp=sharing

Claus Busch

unread,
Feb 7, 2017, 8:37:50 AM2/7/17
to
Hallo Peter,

Am Tue, 7 Feb 2017 04:33:18 -0800 (PST) schrieb Peter Kraeft:

> Ich versuche es mal mit Google.drive Es ist nur ein Gerüst aber der Fehler tritt hier auch auf.

lade dir hier die Mappe wieder herunter:
https://1drv.ms/x/s!AqMiGBK2qniTgYo-qvCrzdV_T1--UA

Peter Kraeft

unread,
Feb 7, 2017, 3:57:17 PM2/7/17
to
Hallo Claus,

super, toll, danke schön. VBmodeless kannte ich zwar(von Dir) habe es benutzt weil ich auf dem Sheet und Userform gleichzeitig zugreifen wollte; dass es hier auch hilft(will ja nach dem Schließen) erst auf Sheet(2) zugreifen cool. Nochmals vielen Dank
0 new messages