Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.06.2025 09:18:27
Excelprogramm mit makro zurücksetzen
19.06.2025 00:23:42
bedingte Formatierung einer Zeilengruppe
18.06.2025 20:36:16
Datum wird bei erneuter Suche nicht gefunden
18.06.2025 19:40:30
Per Spill-Formel sortieren und hochzählen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UF->TextBox -> Eingabewerte in Variablen speichern

Forumthread: 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?
Anzeige

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

Kategorie
Benutzerform
Tags
#benutzerform #datenverarbeitung #vba
Relevante Fragen
Anzeige
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

Anzeige
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

Forumthreads zu verwandten 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
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
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
Anzeige
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
Anzeige
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
Anzeige
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
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige