Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UF->TextBox -> Eingabewerte in Variablen speichern

UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 16:35:25
Best4you
Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, damit ich diese dann für die Berechnung verwenden kann.
Hat jemand eine Idee für mich?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 17:02:56
Hajo_Zi
Hallo Nick
DaAnfang as Date
DaAnfang=Cdate(textbox1)
zweite analog.

AW: UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 17:18:26
Best4you
hi hajo, besten dank.
ich habe es mal versucht umzusetzen. scheitere aber an der networkdays function. 

Public Sub CommandButton1_Click()
Dim anfangDat As Variant
Dim endDat As Variant
Dim netto As Double
anfangDat = CDate(TextBox1)
endDat = CDate(TextBox2)
netto = NetworkDays(anfangDat, endDat)
Me.Label1.Caption = netto
End Sub


bis zur function läuft alles super. ab da kriege ich eine fehlermeldung, dass diese nicht definiert ist. lt. referenz ist aber alles korrekt.*grübel

Anzeige
AW: UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 17:23:07
Hajo_Zi
Hallo Nick,

Option Explicit
Public Sub CommandButton1_Click()
Dim anfangDat As Variant
Dim endDat As Variant
Dim netto As Double
anfangDat = CDate("12.05.09")
endDat = CDate("15.06.09")
netto = Application.WorksheetFunction.NetworkDays(anfangDat, endDat)
MsgBox netto
'Me.Label1.Caption = netto
End Sub


Gruß Hajo

AW: UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 17:41:13
Best4you
Hi hajo,
super für deine tolle Hilfe. Es hat gefunzt. Mein Code für andere vielleicht. Sonnige Sonntagsgrüße. Danke Best4you

Private Sub cb_berechnen_Click()
Dim anfangDat As Variant
Dim endDat As Variant
Dim netto As Double
Dim alleT As Double
anfangDat = CDate(txb_aDate)
endDat = CDate(txb_eDate)
If anfangDat > endDat Then
MsgBox "Das Enddatum liegt vor dem Anfangsdatum. Bitte geben Sie die Daten neu ein!",  _
vbCritical
Me.txb_aDate = ""
Me.txb_eDate = ""
Me.lbl_tage = ""
Me.lbl_nettotage = ""
Me.txb_aDate.SetFocus
End If
netto = Application.WorksheetFunction.NetworkDays(anfangDat, endDat)
alleT = endDat - anfangDat
Me.lbl_tage.Caption = alleT
Me.lbl_nettotage.Caption = netto
If anfangDat > endDat Then
Me.lbl_tage = ""
Me.lbl_nettotage = ""
End If
End Sub


Anzeige
AW: UF->TextBox -> Eingabewerte in Variablen speichern
17.05.2009 17:49:17
Best4you
Hi hajo,
super für deine tolle Hilfe. Es hat gefunzt. Mein Code für andere vielleicht. Sonnige Sonntagsgrüße. Danke Best4you

Private Sub cb_berechnen_Click()
Dim anfangDat As Variant
Dim endDat As Variant
Dim netto As Double
Dim alleT As Double
anfangDat = CDate(txb_aDate)
endDat = CDate(txb_eDate)
If anfangDat > endDat Then
MsgBox "Das Enddatum liegt vor dem Anfangsdatum. Bitte geben Sie die Daten neu ein!",  _
vbCritical
Me.txb_aDate = ""
Me.txb_eDate = ""
Me.lbl_tage = ""
Me.lbl_nettotage = ""
Me.txb_aDate.SetFocus
End If
netto = Application.WorksheetFunction.NetworkDays(anfangDat, endDat)
alleT = endDat - anfangDat
Me.lbl_tage.Caption = alleT
Me.lbl_nettotage.Caption = netto
If anfangDat > endDat Then
Me.lbl_tage = ""
Me.lbl_nettotage = ""
End If
End Sub


Anzeige

305 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
*Text* in einer Variable
Thomas

Hallo,
wie kann ich herausfinden ob ein Text in einer Variable enthalten ist?
Beispiel: If variable = *text* Then xxxxx
oder If *text* IsIn variable Then xxxx
Grüße
16.10.2008 12:09:00
Thread-ID: 1016816
8 Beiträge
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
6
4
5
1
3
4
1
7
2
1
22
6
5
3
5
3
1
1
3
3
4
4
2
16
2