Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

userform ins programm einbinden

Forumthread: userform ins programm einbinden

userform ins programm einbinden
07.09.2005 13:38:52
andre
Hallo,
ich habe ein button auf meinem Tabellenblatt festgelegt.
Nach betätigung des Button öffnet sich eine Userfom mit einer abfrage ProgA und ProgB, über optionbuttons.
Das Problem ist: Wie spreche ich die Userform an(damit sie sich öffnet). Ich versuche es immer mit userform1.show, aber dabei werden ja keine werte übergeben. Wie übergebe ich übergebe ich einen Wert in mein eigenliches Programm?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: userform ins programm einbinden
07.09.2005 14:19:34
Ralf
Hallo andre,
die show-methode ist schon ok. Die nächste Frage ist doch, welche Werte willst Du wo übernehmen?
Nehmen wir einmal an, Du möchtest in der Textbox1 auf Userform1 den Wert der Zelle A1 ausgeben lassen. Dann könntest Du das so:
Suche Dir das Activate-Ereignis der Form und schreibe dort hinein:
Textbox1 = Range("A1")
Ciao, Ralf
Anzeige
AW: userform ins programm einbinden
07.09.2005 14:36:40
andre
Ja gut,
aber mein Problem ist eigentlich dieses:
Nach dem betätigen des button startet ein Programm. Es ließt zwei Zellen aus.
Danach fragt mich die Inputbox nach einen weiteren wert.
Jetzt habe ich drei Werte.
Jetzt soll sich die Userfom öffnen mit 2-Auswahlmöglichkeiten.
z.B. Programm A und Programm B
Eines davon wird ausgewählt, direkt danach soll sich die Userform wieder schließen.
Ich brauche davon ein True oder False.
Das Programm überprüft ProgA = true oder False ebenfalls ProgB=true oder False.
Dementsprechend wird ein der rest eingeleitet.
Das ist das Problem
Kann man auch einer Userfom Variablen übergeben und sie berechnet wiederbekommen?
Anzeige
AW: userform ins programm einbinden
07.09.2005 15:08:47
Ralf
Hallo andre,
erstelle boolesche Variable. Dann mußt Du, nur um zu fragen welches Programm gestartet werden soll, nicht extra eine Form aufrufen, da genügt eine Msgbox-Funktion oder eine Inputbox. Bsp. für Msgbox (hier brauchst Du nicht einmal die Variable):
Sub Dein_Startprogramm()
Dim bProg As Boolean
'Dein Code
if Msgbox("Soll Programm 2 gestartet werden?",vbyesno,"Auswahl") vbyes then
'Programm 1 starten
else
'Programm 2 starten
end if
Userform1.show
Anzeige
AW: userform ins programm einbinden
07.09.2005 15:29:54
Andre
Ok prima, das klappt schon mal.
Könnte ich den auch sowas machen:
Private Sub A_001_Click()
Dim a As Long
Dim B as Long
Dim c as long
Dim dProg as Boolean
a= cells(4, 5)
b= cells(4, 6)
if Msgbox("Soll Programm 2 gestartet werden?",vbyesno,"Auswahl") vbyes then
'Userform1.show starten, a und b mit übergeben, berechnen und wieder zurück geben
else
'Userform2.show starten, a und b mit übergeben, berechnen und wieder zurück geben
end if
cells(4, 5)=a
cells(4, 6)=b
Anzeige
AW: userform ins programm einbinden
07.09.2005 15:40:37
Ralf
Hallo andre,
ich würde erst berechnen lassen und dann die Formen starten. Ansonsten kannst Du alles machen, solange es den Regeln der Syntax entspricht.
Ciao, Ralf
AW: userform ins programm einbinden
andre
Ok, aber dann brauche ich die Userforms eigentlich gar nicht mehr nicht mehr.
Ich habe schon was vorbereitet. Ist halt für den Benutzer optisch schöner.
Ist es denn möglich 2 Werte einer Userform zuzuweisen - Sie berechnen lassen - und Sie wieder zurück geben?
Ungefähr so wie:

Sub Prog()
Dim a as long
Dim b as Long
'Code
call Userform1(a, b)
'Code
End Sub

-------------------------------------------

Sub Useform1(byref x as long, _
byref y as long)
'Code
End Sub

Anzeige
AW: userform ins programm einbinden
07.09.2005 17:51:59
Ralf
...
mit Call kannst Du Funktionen aufrufen, aber keine Form. Und selbst beim Aufruf von Funktionen kannst Du das Call weglassen.
Bsp. Du willst aus der Prozedur Ausgang die Prozedur mit dem Namen Zeigen aufrufen. 

Sub Ausgang()
Zeigen 'das ist der Aufruf
End Sub

'Jetzt kommt die Prozedur

Sub Zeigen()
Msgbox "Ich wurde gerade aufgerufen"
End Sub

....oder...
Funktionsaufruf

Sub Ausgang2()
Dim a as integer, b as integer
a = 10
b = 2
'Aufruf der Funktion Rechnen mit Übergabe von a und b
Msgbox rechnen (a, b)
Userform1.Textbox1 = Rechnen (a, b)
End Sub

'Jetzt die Funktion selbst...

Function Rechnen(Zahl1 as integer, Zahl2 as integer) as Integer
Rechnen = Zahl1 + Zahl2
End Function

Du kannst natürlich auch der Form Werte übergeben. Bsp.: Userform1.Height = Rechnen(a, b)
aber ob das so sinnvoll ist?
Ciao, Ralf
Anzeige
AW: userform ins programm einbinden
07.09.2005 18:13:26
andre
So,
ich denke mal das wird mir erstmal weiterhelfen.
Ein großes Dankeschön schon mal dafür.
Bei weiterne Fragen wird man sich sicher noch ein anderes mal hier über den Weg laufen.
Mfg Andre
AW: userform ins programm einbinden
08.09.2005 06:02:26
Hajo_Zi
Hallo Andre,
warum ist der Beitrag offen? Das lese ich nicht aus Deinem Beitrag.
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
;

Forumthreads zu verwandten Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge
Anzeige
UserForm überblenden /ein-ausblenden
Nik

Hallo.
Folgendes Problem:
Ich habe eine Userform erstellt, auf der sich links ein Menü befindet.
Je nach Klick auf Menü sollen verschiedene Elemente erscheinen (z.B. Listbox, labels usw...)
Dies mache ich z.B. mit listbox.visible = true
Da es immer mehr Objekte gibt, ist die...
04.02.2009 09:39:00
Thread-ID: 1046897
5 Beiträge
Formeln verbinden
Ralf

Hallo Experten,
ich arbeite gerade an einer Stundenberechnung für einen Dienstplan. Probleme habe ich jetzt bei der Berechnung der Krankstunden. Wenn eine Schicht geplant war und jetzt ein K (Krank) kommt sollen 8h berechnet werden, wenn aber ein DF oder kein Eintrag vorhanden war sollen 0h...
10.02.2009 20:03:15
Thread-ID: 1049294
5 Beiträge
Sortierproblem wenn Formel in Zelle vorhanden
Spiess

Hallo,
ich habe nachstehende Frage:
Ich habe eine Tabelle mit einer Spalte. In den Zellen stehen Formel, die manschmal numerische Werte oder manschmal einen Leer-String erzeugen. Beispiel:=WENN(H5="";"";E4)
Beim Sortieren der Zellen werden die Zellen mit den Leer-Strings immer in...
24.04.2009 22:39:14
Thread-ID: 1071062
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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