Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Seradest vom 18.10.2019, 12:11 Options

Von wo wird Forumlar geöffnet

Hi,
ich habe ein kleines Problem. Ich müsste ermitteln, ob ein Formular mit einem Button aus einem Excel-Arbeitsblatt heraus, oder aus einem anderen Formular geöffnet wird. Es handelt sich dabei um ein Suchformular, das entweder Zellen, Listboxen oder Treeviews nach bestimmten Werten durchsucht.
Ich möchte aber nun nicht für jedes Objekt ein extra Formular erstellen, da die Maske immer die gleiche ist, nur die Funkionalität abhängig vom aufrufenden Objekt sich etwas verändert und ein Such-Treffer auch auf das aufrufende Objekt Wirkung hat.

Grüße
Carsten

Antwort schreiben

Antwort 1 von coros vom 18.10.2019, 13:57 OptionsLösung

Hallo Carsten,

dekaliere doch einfach in einem StandardModul eine Variable mit Public und setze dieser z.B. verschiedene Wert bei Klick eines Buttons zu. Beim Öffnen der UserForm prüfst Du auf diese VAriable und nimmst die entsprechenden Änderungen im Formular vo.

Als Beispiel:

2 Buttons in einem Tabellenblatt.

[b]Option Explicit

Private Sub CommandButton1_Click()
Zustand = 1
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
Zustand = 2
UserForm1.Show
End Sub[/b]

In ein StandardModul die Zeile

[b]Public Zustand As Integer[/b]

In die UserForm das Ereignis:

[b]Option Explicit

Private Sub UserForm_Initialize()
If Zustand = 1 Then
MsgBox "Konfiguration 1"
End If

If Zustand = 2 Then
MsgBox "Konfiguration 2"
End If

'.
'.
'.
'usw.
End Sub[/b]

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Seradest vom 18.10.2019, 19:32 Options

Hi Oliver

Die Idee ist gut, hätte ich auch drauf kommen können :).

Danke!

Grüße
Carsten

Antwort 3 von coros vom 18.10.2019, 19:36 Options

Hallo Cartsen,

dafür hast Du ja uns. ;-)

Danke Dir auch für die Rückmeldung.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken