Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Userform Textbox als Datum übergeben
zurück: Blattschutz entfernen weiter: Bitte kurz drüber schauen: copy, paste letzte Zeile Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 09:13
Rufname:

Userform Textbox als Datum übergeben - Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Leute,

ich hoffen mir kann jemand helfen, habe folgendes Problem.

Ich habe eine Userform mit einem Textfeld das automatisch beim öffnen der Userform mit dem aktuellem Datum gefüllt wird.

Wenn die Userform Eingaben gespeichert werden wird das Datum nicht als Datum vom Autofilter erkannt, die Spalte in dem Zieltabellenblatt ist aber als Datum formatiert.

Hier mal der Code der die Eingaben der Userform in den Sheet speichert.

Private Sub cbSpeichern_Click()
If cbLief = "" Or cbHaus = "" Or cbPostenart = "" Then
MsgBox "Die Felder Lieferant, Börner Haus und Postenkaufart müssen gefüllt werden!!!", vbInformation
Else
Sheets("History").Unprotect
i = Sheets("History").UsedRange.Rows.Count + 1
Cells(i, 1) = txtBJahr
Cells(i, 2) = lblDate
Cells(i, 3) = lblTime
temp = Split(cbLief, vbTab)
Cells(i, 4) = temp(0)
Cells(i, 5) = temp(1)
Cells(i, 6) = cbHaus
Cells(i, 7) = cbPostenart
Cells(i, 8) = cbDisponent
Cells(i, 9) = txtBDate
Cells(i, 10) = txtBestellnummer.Text
Cells(i, 11) = txtBemerkung.Text
Sheets("History").EnableAutoFilter = True 'für Autofilter
End If
UserForm2.Show
End Sub

Es handelt sich um die "txtBdate" bzw auch "lblDate"

Wäre nett wenn mir jemand helfen könnte.

Danke Euch.

Gruß rerraps
Crazy Tom
eigenen Code Nichtversteher


Verfasst am:
30. Apr 2014, 09:17
Rufname:
Wohnort: Bonn

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo

probiers mal so

Cells(i, 9) = CDate(txtBDate)
Cells(i, 2) = CDate(lblDate)

_________________
MfG Tom
Rückmeldung wäre nett
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 09:26
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Tom,

danke für die schnelle Antwort funktioniert ab leider nicht bekomme die Fehlermeldung

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Laufzeitfehler '380':

Eigenschaft RowSource konnte nicht gesetzt werden. Ungültiger Eigenschaftenwert.
---------------------------
OK Hilfe
---------------------------


Aber trotzdem danke.
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 09:42
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Tom,

hat trotzdem funktioniert, man (Mann) sollte halt nicht wieder mal mehrere Sachen gleichzeitig machen, habe vergessen zu speichern jetzt funzt es richtig.

Danke nochmals.
Crazy Tom
eigenen Code Nichtversteher


Verfasst am:
30. Apr 2014, 09:47
Rufname:
Wohnort: Bonn

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo

alles klar *schweißabputz*

danke für die Rückmeldung Wink

MfG Tom
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 11:06
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Tom,

habe jetzt noch ein kleines Problem festgestellt, ich muss 2 neue Textfelder in diese Userform mit einfügen.

Einmal einen Bestellwert (Eingabe erfolgt z.B. so 1210,55 bzw. 100) und als zweites ein
Bestellrabatt (Eingabe erfolgt z.B. so 2) die Spalten in dem Übergabe Sheet sind als
Währung bzw. Prozent formatiert.

Gibt es da zufällig auch so eine C-Funktion da diese Werte auch als Text übergeben werden und man diese wieder formatieren müsste.

Währe nett wenn mir nochmal jemand helfen könnte.

Gruß rerraps
Crazy Tom
eigenen Code Nichtversteher


Verfasst am:
30. Apr 2014, 12:14
Rufname:
Wohnort: Bonn

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo

vielleicht so?

Code:
Cells(i, "A") = CCur(txtBestellwert)    '<-- Spalte anpassen
Cells(i, "B") = CDbl(txtRabatt) / 100   '<-- Spalte anpassen

_________________
MfG Tom
Rückmeldung wäre nett
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 12:59
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Danke hat funktioniert.

Gruß rerraps
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 14:26
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Tom,

vielleicht könntest du mir noch einmal weiterhelfen, stehe heute voll am Schlauch.

das Textfeld txtBetsellwert wird in (Cells(i, 11) und das Textfeld txtRabatt wird in (Cells(i, 12) geschrieben, in der Cells i, 13 steht eine Formel dies wird jedoch nicht mit Automatisch beim Eintrag mit ausgefüllt, kann man in diesen code siehe unten was mit einen Range oder was ähnlichen einbauen damit er in Cells i, 13 in der Zeile darüber die Formel in die aktuelle Zeile mit einträgt.

Hier mein aktueller Code:

Private Sub cbSpeichern_Click()
If cbLief = "" Or cbHaus = "" Or cbPostenart = "" Then
MsgBox "Die Felder Lieferant, Börner Haus und Postenkaufart müssen gefüllt werden!!!", vbInformation
Else
Sheets("History").Unprotect
i = Sheets("History").UsedRange.Rows.Count + 1
Cells(i, 1) = CDate(lblDate)
Cells(i, 2) = lblTime
temp = Split(cbLief, vbTab)
Cells(i, 3) = temp(0)
Cells(i, 4) = temp(1)
Cells(i, 5) = cbHaus
Cells(i, 6) = cbPostenart
Cells(i, 7) = cbDisponent
Cells(i, 8) = CDate(txtBDate)
Cells(i, 9) = txtBestellnummer.Text
Cells(i, 10) = txtBemerkung.Text
Cells(i, 11) = CCur(txtBpw)
Cells(i, 12) = CDbl(txtBPrab) / 100
Sheets("History").EnableAutoFilter = True 'für Autofilter
End If
UserForm2.Show
End Sub

Danke schon mal für die Hilfe.

Gruß Roman
Crazy Tom
eigenen Code Nichtversteher


Verfasst am:
30. Apr 2014, 15:21
Rufname:
Wohnort: Bonn

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo

klar kann man das

Cells(i, 13).FormulaR1C1 = "Deine Formel"

oder

Cells(i, 13).FormulaLocal = "Deine Formel"

hängt davon ab wie deine Formel geht

_________________
MfG Tom
Rückmeldung wäre nett
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 15:25
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Tom,

die Formel sieht so aus

=WENN(ODER(ISTLEER(K17);ISTLEER(L17));"";SUMME(K17/(1-L17)-K17))

Gruß Roman
Crazy Tom
eigenen Code Nichtversteher


Verfasst am:
30. Apr 2014, 15:32
Rufname:
Wohnort: Bonn

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Hallo Roman

dann sieht das so aus

Code:
Cells(i, 13).FormulaR1C1 = "=IF(OR(ISBLANK(RC[-2]),ISBLANK(RC[-1])),"""",SUM(RC[-2]/(1-RC[-1])-RC[-2]))"

_________________
MfG Tom
Rückmeldung wäre nett
rerraps
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 15:36
Rufname:

AW: Userform Textbox als Datum übergeben - AW: Userform Textbox als Datum übergeben

Nach oben
       Version: Office 2010

Funktioniert Super Tom,

Nochmals herzlichen Dank für deine Hilfe heute.

Gruß Roman
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datumsformel gesucht (Wenn Datum >= xx.xx.xxxx dann mache 3 Gast 2494 25. Mai 2005, 11:07
Gast Datumsformel gesucht (Wenn Datum >= xx.xx.xxxx dann mache
Keine neuen Beiträge Excel Formeln: Datum 12 Vision2003 1484 05. Mai 2005, 15:35
Detlef 42 Datum
Keine neuen Beiträge Excel Formeln: wenn Formel mit Datum von - bis 6 Kathy 1688 02. Mai 2005, 09:17
Kathy wenn Formel mit Datum von - bis
Keine neuen Beiträge Excel Formeln: Excel Differenz zwischen 2 verschiedenen Datum 2 Micha55 33834 26. Apr 2005, 12:00
ae Excel Differenz zwischen 2 verschiedenen Datum
Keine neuen Beiträge Excel Formeln: Zinsberechnung nach Datum (fest. Zinssatz und Kapital) 8 Mirco 32701 03. Apr 2005, 15:42
Michael B. Zinsberechnung nach Datum (fest. Zinssatz und Kapital)
Keine neuen Beiträge Excel Formeln: Datum bei 90 Tage Fristüberschreitung einfärben 7 Inge 1807 21. März 2005, 14:14
Inge Datum bei 90 Tage Fristüberschreitung einfärben
Keine neuen Beiträge Excel Formeln: Datum über Zeitraum zählen 2 cschaden 1991 09. März 2005, 08:36
cschaden Datum über Zeitraum zählen
Keine neuen Beiträge Excel Formeln: Wert und Datum verknüpfen 3 Helle67 3021 11. Jan 2005, 18:23
Helle67 Wert und Datum verknüpfen
Keine neuen Beiträge Excel Formeln: Suche Formel, welche Spalte nur bis zum akt. Datum berechnet 7 Sveny 1609 04. Jan 2005, 21:45
Sveny Suche Formel, welche Spalte nur bis zum akt. Datum berechnet
Keine neuen Beiträge Excel Formeln: Datum soll sich nicht aktualisieren (Excel XP) 1 FrankW 3830 01. Dez 2004, 12:52
ae Datum soll sich nicht aktualisieren (Excel XP)
Keine neuen Beiträge Excel Formeln: Wert mit aktuellstem Datum verwenden 3 coupi 2294 14. Okt 2004, 19:38
Coupi Wert mit aktuellstem Datum verwenden
Keine neuen Beiträge Excel Formeln: Variables Datum (HEUTE()) in Text konvertieren? 4 Chillieout 3008 04. Okt 2004, 17:04
michi795 Variables Datum (HEUTE()) in Text konvertieren?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project