Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn denn sonst in Userform berechnen

wenn denn sonst in Userform berechnen
09.11.2014 19:28:53
Stefan
Hallo,
Ich bin ein Blutiger Anfänger was VBA betrifft und würde mich sehr über hilfe freuen
ich möchte irgendwie die daten von der Excel Datei in die Userform bringen bzw. mit der Userform nur berechnen ohne was aus der Excel Datei zu holen, also Daten eingabe und berrechnen über die Userform. Es soll auch nichts in Excel übertragen werden!!1
also D3=Textbox4=Aktuelle Temperatur
B3=Textbox2=Angegebene Temperatur
A3=Textbox1=Angegebene Dichte
C3=Textbox3=Korrekturfaktor
Textbox5+6 sollen Ergebnis Felder sein!!
es soll nichts aus einer Excel tabelle Oder sonst wo her gezogen werden!!
die textboxen 1-4 sollen eingaben sein und 5+6 ergebniss felder in textbox5 möchte ich die obengenannte formel berechnet haben und in Textbox 6 das ergebnis aus textbox 5 - 1,1
ich hoffe auf eine schnelle antwort und jetzt schon mal danke
https://www.herber.de/bbs/user/93640.xls

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 20:31:58
Crazy
Hallo Stefan
schau mal ob es so geht 
Private Sub CommandButton2_Click()
Dim A3 As Double
Dim B3 As Double
Dim C3 As Double
Dim D3 As Double
Dim erg As Double
A3 = CDbl(TextBox1)
B3 = CDbl(TextBox2)
C3 = CDbl(TextBox3)
D3 = CDbl(TextBox4)
If D3

MfG Tom

AW: wenn denn sonst in Userform berechnen
09.11.2014 21:41:21
Stefan
Hallo Crazy,
wenn ich mich nicht täusche zieht sich die programmierung die sachen dann aus der Excel tabelle,
es wäre nett von dir wenn du mir das noch zeigen könntest ohne das es sich auf die Excel Tabelle bezieht sondern direkt nur in der Userform eingegeben wird und Berechnet wird.
Oder soll ich anstatt A3, B3 usw. textbox einsetzen?
Gruß Stefan

Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 21:55:20
Stefan
Entschuldigung das ich Nerve,
könntet ihr mir noch sagen wie ich dann in Textbox 5 + 6 nur 1 stelle hinter dem komme aufrunden oder anzeigen lassen kann.
danke im vorraus

AW: wenn denn sonst in Userform berechnen
09.11.2014 21:50:03
Stefan
SUPER DANKE Karsten !!!!!!!!!
Ich danke dir Vielmals für diese große HILFE jetzt habe ich ein super beispiel
Aber könntest du mir dies noch ein bisschen Erläutern, damit ich es besser verstehen kann?
mfg
Stefan

AW: wenn denn sonst in Userform berechnen
09.11.2014 21:56:38
Stefan
Entschuldigung das ich Nerve,
könntet ihr mir noch sagen wie ich dann in Textbox 5 + 6 nur 1 stelle hinter dem komme aufrunden oder anzeigen lassen kann.
danke im vorraus

Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 22:07:44
Crazy
Hallo Stefan
um bei meinem Beispiel zu bleiben 
Private Sub CommandButton2_Click()
Dim A3 As Double
Dim B3 As Double
Dim C3 As Double
Dim D3 As Double
Dim erg As Double
A3 = CDbl(TextBox1)
B3 = CDbl(TextBox2)
C3 = CDbl(TextBox3)
D3 = CDbl(TextBox4)
If D3
MfG Tom

AW: wenn denn sonst in Userform berechnen
09.11.2014 21:57:12
Crazy
Hallo Stefan
in meinem Beispiel wird nur das gerechnet was du in die TextBoxen der Userform eingibst
und es wird nichts aus dem Tabellenblatt geholt
ich habe die Variablen nur so benannt wie die Zellen aus dem Blatt
damit du es nachvollziehen kannst
MfG Tom

Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 22:08:55
Stefan
Ahhh ok Crazy also hatte ich dein Beispiel doch nur Falsch Verstanden Wegen den Bezeichnungen Sorry.
Aber könntest du mir noch sagen wie ich das ergebnis in textbox 5 und 6 auf eine Stelle nach dem Komma Runden lassen kann ?

AW: wenn denn sonst in Userform berechnen
09.11.2014 22:29:24
Stefan
Tom könntest du mir vielleicht auch noch zeigen wie ich in den anderen textboxen auch automatich mit komma arbeiten kann bzw nach der Eingabe Automatisch eingefügt werden?
und wenns geht wie ich zusätzlich mit Enter das ergebnis bekomme zum button
dann höre ich auf zu Nerven
schon mal Danke

Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 22:48:59
Crazy
Hallo Stefan
was meinst du mit "automatich mit komma arbeiten"?
MfG Tom

AW: wenn denn sonst in Userform berechnen
09.11.2014 22:54:22
Stefan
na wenn ich zum beispiel eine temperatur habe von 12,3 Grad Celsius dann gebe ich ja ein 12,3 aber es kommen ja auch mal grad zahlen, von nur 12,0 grad z.b oder die dichte das selbe 789,0 oder 789,1. das wenn ich enter drücke um zur nächsten zeile zu kommen, automatisch die komma stelle mit angezeigt werden

AW: wenn denn sonst in Userform berechnen
09.11.2014 22:59:03
Crazy
Hallo Stefan
wenn ich dich richtig verstanden habe 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "0.0")
End Sub

damit wird in Textbox1 aus 789 beim verlassen der TextBox 789,0
für die andern TextBoxen dann genauso
und nu ists Zeit für 2meter
MfG Tom

Anzeige
AW: wenn denn sonst in Userform berechnen
09.11.2014 23:14:37
Stefan
Ja Super Funktioniert Perfekt jetzt brauche ich nur noch das so das ich auch mit enter das ergebnis bekomme

AW: wenn denn sonst in Userform berechnen
10.11.2014 06:26:45
Crazy
Moin Stefan
dann setz den Code hier hin 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim A3 As Double
Dim B3 As Double
Dim C3 As Double
Dim D3 As Double
Dim erg As Double
A3 = CDbl(TextBox1)
B3 = CDbl(TextBox2)
C3 = CDbl(TextBox3)
D3 = CDbl(TextBox4)
If D3

MfG Tom

300 Forumthreads zu ähnlichen 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
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
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
Anzeige
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
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 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

Links zu Excel-Dialogen

CommandButton TextBox

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
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1