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

userform

Forumthread: userform

userform
18.08.2008 23:12:27
Corinna
Ich schon wieder,
habe auf meiner Userform einen Button Abbrechen eingefügt. Er funktioniert auch, dass aber allerdings nur, wenn ich vorher die Felder der Userfrom ausgefüllt habe. Ich würde den Button aber gerne auch gleich drücken können und er schliesst dann sofort die Userform. Kann mir jemand helfen?
Corinna

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: userform
18.08.2008 23:14:00
Jens
Hallo Corinna
Zeig doch mal den ganzen Code.
Gruß aus dem Sauerland
Jens

AW: userform
18.08.2008 23:16:04
Horst
Hi,
welche Anweisung steht im Klick-Ereignis des Button?
Was passiert, wenn du das Schließkreuz klickst?
Am besten mal Hochladen.
mfg Horst

AW: userform
18.08.2008 23:32:25
Corinna 

Private Sub BtnAbbrechen_Click()
Unload Me
End Sub


Anzeige
AW: userform
19.08.2008 01:20:00
Jens
Hallo Corinna
Poste mal bitte den GESAMTEN code Deiner Mappe. Da muss ja noch mehr drin stehen.
Gruß aus dem Sauerland
Jens

AW: userform
19.08.2008 09:57:00
Corinna
Das ist er:

Private Sub BtnKaufen_Click()
Range("B10").Select
ActiveCell.Value = FldDatum.Value
Range("C10").Select
ActiveCell.Value = CbxBezeichnung.Value
Range("D10").Select
ActiveCell.Value = FldWKN.Value
Range("E10").Select
ActiveCell.Value = FldMenge.Value
Range("F10").Select
ActiveCell.Value = FldKurs.Value
Unload Me
End Sub




Private Sub BtnAbbrechen_Click()
Unload Me
End Sub




Private Sub BtnKurs_Click()
Follow_Link 'Homepage ansteuern
End Sub




Public Sub Follow_Link()
Dim objIE As Object
Dim strPage As String
Set objIE = CreateObject("InternetExplorer.Application")
strPage = "www.boerse.de/kurssuche.php"
With objIE
.Navigate strPage
.Visible = True
End With
Set objIE = Nothing
End Sub




Private Sub FldDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldDatum) Then
FldDatum = ""
Cancel = True
Else
Cells(10, 2) = CDate(FldDatum)
FldDatum = Format(CDate(FldDatum), "DD.MM.YY")
End If
End Sub




Private Sub UserForm_Click()
End Sub


Anzeige
AW: userform
19.08.2008 10:22:00
Jens
Hi Corinna
Das ganze Select kannst Du Dir sparen:

Private Sub BtnKaufen_Click()
Range("B10") = FldDatum.Value
Range("C10") = CbxBezeichnung.Value
Range("D10")= FldWKN.Value
Range("E10") = FldMenge.Value
Range("F10") = FldKurs.Value
Unload Me
End Sub




Private Sub BtnAbbrechen_Click()
Unload Me
End Sub




Private Sub BtnKurs_Click()
Follow_Link 'Homepage ansteuern
End Sub




Public Sub Follow_Link()
Dim objIE As Object
Dim strPage As String
Set objIE = CreateObject("InternetExplorer.Application")
strPage = "www.boerse.de/kurssuche.php"
With objIE
.Navigate strPage
.Visible = True
End With
Set objIE = Nothing
End Sub




Private Sub FldDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldDatum) Then
FldDatum = ""
Else
Cells(10, 2) =  Format(CDate(FldDatum), "DD.MM.YY")
End If
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
AW: userform
19.08.2008 12:19:58
Corinna
Hi Jens!
Danke, Du hast recht. Das mit dem Select hat uns unser Dozent so gezeigt. Hast Du vielleicht auch noch einen Tipp wegen meinem Button für Abbrechen?
Gruß Corinna

AW: userform
19.08.2008 12:31:31
Jens
Hi
Hast Du Dir den geänderten Code mal angesehen?
Wenn Du den Code

Private Sub FldDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldDatum) Then
FldDatum = ""
Cancel = True
Else
Cells(10, 2) = CDate(FldDatum)
FldDatum = Format(CDate(FldDatum), "DD.MM.YY")
End If
End Sub


änderst in:


Private Sub FldDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldDatum) Then
FldDatum = ""
Else
Cells(10, 2) =  Format(CDate(FldDatum), "DD.MM.YY")
End If
End Sub


sollte es funktionieren.
Probier es mal aus.
Gruß aus dem Sauerland
Jens

Anzeige
AW: userform
19.08.2008 13:41:48
Corinna
Super, ich danke dir

gern geschehen... oT
19.08.2008 13:51:08
Jens
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Caption der aktiven UserForm abfragen
Martin

Hallo liebe Excelianer,
besteht die Möglichkeit aus einem VBA-Modul heraus die aktive UserForm abzufragen? Bislang verwende ich folgende zwei Makros für zwei verschiedene UserFormen, die ich gerne zu einem Makro vereinen würde, weil deren Inhalt gleich ist:
Sub AK() 'für Userform "Te...
07.08.2008 17:06:21
Thread-ID: 1000037
3 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Aufruf UserForm
lasmik

hallo zusammen
wie kann ich dieses macro erweitern das es auch genau so ausgeführt wird wenn ich d3 anklicke.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$3" Then UserForm1.Show If Not Intersect(Target, Range("C3")) Is Nothin...
07.08.2008 18:04:57
Thread-ID: 1000062
7 Beiträge
Überstunden-Nachweis
BuStü

Hallo Leute,
Ich komme einfach nicht weiter, habe eine Arbeitsmappe in der ich die Überstunden erfasse. (Siehe https://www.herber.de/bbs/user/54424.xls ) Es sollen jedoch nur 10 Überstunden im Monat vergütet werden, 8 Überstunden können zur Verwendung (abbummeln) bleiben. Sollten darüberhin...
07.08.2008 19:13:00
Thread-ID: 1000079
11 Beiträge
Anzeige
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Anzeige
Beitrag sortieren 2 Datums Uhrzeit werte VBA
chris

Hallo zusammen,
habe zwar schon einen thread offen zu dem Thema hier der Link.Wollte in nur vorschieben weil ich am besten noch heute eine Antwort benötige da ich sonst nicht weiter machen kann mit meiner datei.
Würde mich freuen wenn mir jemand helfen könnte.
Danke rudi schon mal f...
08.08.2008 09:33:49
Thread-ID: 1000181
5 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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