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

Textbox rechnen: Datum minus Datum

Forumthread: Textbox rechnen: Datum minus Datum

Textbox rechnen: Datum minus Datum
30.07.2013 15:02:53
Bernd
Hallo zusammen,
brauche eure Hilfe.
   TextBox12.Value = Format(CDec(TextBox8.Value) * 5 * 200) * 1.2 * 0.8 *
.. hinter dem Malzeichen komme ich nicht weiter. So sollte es aussehen: textbox7 minus heute() Format "YY" /100
Wer kann mir dabei behilflich sein?
Gruß
Bernd

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox rechnen: Datum minus Datum
30.07.2013 15:04:03
Hajo_Zi
Hallo Bernd
- Jahr(Date)

AW: Textbox rechnen: Datum minus Datum
30.07.2013 15:23:12
Bernd
Hallo Hajo,
Danke für deine Hilfe.
   TextBox12.Value = Format(CDec(TextBox8.Value) * 5 * 200) * 1.2 * 0.8 * Format(CDate(TextBox7.Value), "YY") - Jahr(Date) / 100

Anzeige
AW: Textbox rechnen: Datum minus Datum
30.07.2013 16:36:57
Hajo_Zi
Du kannst Text nicht für Rechenoperatoren benutzen, dazu musst Du Text in Zahlen umwandeln. Dir ist ja bekannt das Format Text ergibt.
Gruß Hajo

AW: Textbox rechnen: Datum minus Datum
30.07.2013 15:27:20
Bernd
Hallo Hajo,
letzte Beitrag anstatt editieren auf absenden gedrückt.
Habe dein Code wie folgt eingebaut: 

* Format(CDate(TextBox7.Value), "YY") - Jahr(Date) / 100
läuft aber nicht, kannst du mir sagen wo mein Fehler ist und was ich ändern muss?
Danke schon mal im Voraus!
Gruß
Bernd

Anzeige
In VBA muss es natürlich Year heißen! orT
30.07.2013 16:35:08
Luc:-?
Gruß Luc :-?

AW: In VBA muss es natürlich Year heißen! orT
30.07.2013 17:21:28
Bernd
Hallo Luc,
passt trotzdem nicht, irgendwo muss noch ein Fehler sein!! Aber wo?
Gruß
Bernd

AW: Textbox rechnen: Datum minus Datum
30.07.2013 16:33:59
Pepi
Hallo Bernd
Für mich ist unklar, was du da rechnen willst.
cDec(TextBox8.Value) - falls TexBox8 ein Datumswert ist und du eine Zahl willst heisst es cDec(cDate(textbox8.value))
Was Dein Schnippsel mit textbox7 soll - keine Ahnung
mfg
Pepi

Anzeige
AW: Textbox rechnen: Datum minus Datum
30.07.2013 17:16:59
Bernd
Hallo Pepi,
Danke für deine Beteiligung.
So in der Tabelle bin ich beim Ergebnis von Zelle G17 (in Formel der Userform unten, gleichbedeutend mit "*0.8)", bis dahin funktioniert es gut. Nach "*0.8)" soll folgende Berechnung erfolgen: aus TextBox.7 nehme das Datum im Format YYYY und subtrahiere es mit heute() Format YYYY, Ergebnis Differenz an Jahren ist dann Alter der Immobilie siehe G3 und das Ergebnis lautet Zelle (G17 ist der Wert nach *"0.8")*(G3% =Textbox7).
Aufregend oder?
Konnte ich einige Unklarheiten bereinigen?
Arbeitsblatt mit dem Namen 'Beleihungswert'
 BCDEFG
3Alter Immobilie    50
4Wohnfläche qm    124,00
5Bodenwert     
6Grundstück qm   m2650
7Preis pro qm   €180
8Summe Bodenwert   €117.000
9      
10Bauwert     
11umbauter Raum in m3 (Wohnfläche x 5 =)   m3620
12Preis pro m3   €200
13Summe Bauwert   €124.000
14plus 20% Nebenkosten   €24.800
15Summe Brutto-Bauwert   €148.800
16minus 20% Sicherheitsabschlag   €29.760
17Summe verminderter Bauwert   €119.040
18minus Altersabschlag (1% pro Lebensj. der Immobilie)   €59.520
19Bereinigter Bauwert   €59.520

ZelleFormel
G8=SUMME(G6*G7)
G11=G4*5
G13=SUMME(G11*G12)
G14=G13*20%
G15=SUMME(G13:G14)
G16=SUMME(G15*20%)
G17=SUMME(G15-G16)
G18=G17*G3%
G19=SUMME(G17-G18)
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

  • TextBox12.Value = Format(CLng(TextBox8.Value) * 5 * 200 * 1.2 * 0.8) * Format(CDate(TextBox7.Value), "YYYY") - Year(Date) / 100

    • Zusammen gefasst heißt das bis zur ")" alles ok, danach bekomme ich die restliche Berechnung einfach nicht hin., ... *0.8) ?
    Gruß
    Bernd

    Anzeige
    Kann noch jemand helfen?
    30.07.2013 16:26:29
    Bernd
    Hallo zusammen,
    hatte vergessen den Beitrag als "offen" zu kennzeichnen"
    Kann mir jemand helfen?
    Gruß
    Bernd

    Lösung endlich gefunden ...
    30.07.2013 18:39:55
    Bernd
    ... das hat man nun davon, wenn man im Mathematikunterricht nicht aufpasst.
    Hier nun den fehlende Rest des VBA-Codes: 
    
* (100 - (CDbl(TextBox7.Value) = Year(Date) - CDbl(TextBox7.Value))) / 100

    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Verketten von Text und Datumswerten
    Text

    Hallo!
    Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
    Etwa so: =verketten(B2;" ";jetzt())
    in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
    Leider wird das...
    11.08.2008 12:30:00
    Thread-ID: 1000804
    4 Beiträge
    Suchfunktion - TextBox kein Text sondern Datum
    Frank

    Hallo Liebe Excelgemeinde!!!
    In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
    Was muss ich ändern, damit auch nach...
    21.08.2008 15:35:00
    Thread-ID: 1003541
    4 Beiträge
    Anzeige
    Jüngstes Datum in Textstring ausgeben
    Markus

    Hallo zusammen,
    nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
    Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
    25.08.2008 18:19:00
    Thread-ID: 1004535
    17 Beiträge
    Markierte Zellen: Text in Datum umwandeln
    Peter

    Guten Tag
    Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
    Was muss ich än...
    15.09.2008 11:41:00
    Thread-ID: 1009737
    6 Beiträge
    Anzeige
    Datumsüberschreitung und Textfelder zählen
    Lemmi

    Hallo Beate,
    Hallo zusammen,
    leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
    Es sollen Textfelder und Datums Überschreitungen gezählt werden!
    Könnten jemand oder /und Beate noch einmal schauen?
    Siehe Datei!
    https://www.herber.de/bbs/user/55582.xls <...
    22.09.2008 21:16:00
    Thread-ID: 1011578
    3 Beiträge
    Anzeige
    Zeile anlegen, dann Datum von heute
    heute

    Hallo Leute,
    ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
    Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
    Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
    23.09.2008 16:37:51
    Thread-ID: 1011817
    12 Beiträge
    Datumseingabe in textbox
    Winfried

    Guten Tag
    was muss ich in einer Textbox für einen Eintrag vornehmen
    das in dieser immer das aktuelle Datum angezeigt wird.
    Leider bin ich in VBA noch nicht so fit.
    Über eine Hilfe von einem Profi würde ich mich sehr freuen.
    Gruss
    Winfried
    05.11.2008 12:39:45
    Thread-ID: 1021858
    5 Beiträge
    Verketten von Datum und Uhrzeit
    Datum

    Hallo Zusammen,
    ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
    Gruß Rafi
    16.12.2008 14:09:00
    Thread-ID: 1033272
    5 Beiträge
    Formatiert Text nicht als Datum
    Günter

    Hallo Zusammen,
    ich habe wieder ein sicherlich einfaches Problem.
    In Spalte A stehen Werte wie "18.12 15:30".
    Die Spalte ist als Datum formatiert.
    Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
    Sub JahrErgaenzen() Dim Z As Integer F...
    21.12.2008 08:20:33
    Thread-ID: 1034520
    11 Beiträge
    Datum in TextBox
    Steffen

    Hallo Zusammen!
    Im angehangenden arbeitsblatt habe ich eine userform in ihr möchte ich in der ersten und vorletzten textbox(DATUM u.ENTNOMMEN) beim laden der userform gern das aktuelle datum und bei "ENTNOMMEN" die aktuelle Zeit.
    desweiteren währe es schön,wenn die die combobox"EINTRAG...
    21.12.2008 19:04:34
    Thread-ID: 1034671
    5 Beiträge
    Datum in Textzeile - Probleme mit Format
    Andreas

    Hallo zusammen,
    ich habe in Excel 2003 ein einfaches Rechnungsformular gebastelt. In diesem Formular gibt es eine Zelle mit dem Zellnamen "RE_Datum" und "Rechnungsbetrag". In diesen Zellen stehen das Datum der Rechnung und der Rechnungsbetrag in Euro. Nun möchte ich am Ende der Rechnung ein...
    06.01.2009 20:32:00
    Thread-ID: 1037351
    3 Beiträge
    Anfangs und Enddatum in Textboxen
    Leon

    Hi Leute
    In Textbox1 habe ich ein Anfangsdatum den ich in Tabelle schreibe und in Textbox2 habe ich ein Enddatum den ich auch in Tabelle schreibe.
    Wie kann ich erreichen, daß wenn ich in Textbox2 das Datum eingebe die Prüfung erfolgt ob das Datum sicher größer als das Anfangsdatum ist.<...
    02.02.2009 23:08:42
    Thread-ID: 1046467
    4 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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