Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: bei verlassen Textbox 5, berechnen Textbox6

Forumthread: VBA: bei verlassen Textbox 5, berechnen Textbox6

VBA: bei verlassen Textbox 5, berechnen Textbox6
06.08.2013 15:18:19
Bernd
Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebnisse liefert.
Hier die Formel:
Arbeitsblatt mit dem Namen 'Kundenliste'
 O
3254

ZelleFormel
O3=WENN(UND(MONAT(E3)=MONAT(HEUTE());TAG(E3+1)=TAG(HEUTE()));"1 Tag";WENN(UND(MONAT(E3)=MONAT(HEUTE());TAG(E3)=TAG(HEUTE()));"HAPPY BIRTHDAY!";WENN(ISTFEHLER(DATEDIF(HEUTE();DATUM(JAHR(HEUTE());MONAT(E3);TAG(E3));"d"));365-DATEDIF(DATUM(JAHR(HEUTE());MONAT(E3);TAG(E3));HEUTE();"d");DATEDIF(HEUTE();DATUM(JAHR(HEUTE());MONAT(E3);TAG(E3));"d"))))
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Kann ich diese Formel in Textbox6 einfügen und wenn ja wie, oder gibt es eine andere Lösung.
Wer kann mir dabei behilflich sein?
Danke im Voraus!!!
Gruß
Bernd

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: bei verlassen Textbox 5, berechnen Textbox6
06.08.2013 16:00:46
thomas
hey Bernd
der code müsste funktionieren tut er zumindest bei mir
Private Sub TextBox1_Change()
If Left(TextBox1.Text, 5) & "." & Year(Date) = Date Then TextBox2.Text = "Happy birthday" Else
TextBox2.Text = DateDiff("d", Left(TextBox1.Text, 5) & "." & Year(Date), Date)
End Sub
hoffe das ist was du suchst
gruß thomas

Anzeige
AW: VBA: bei verlassen Textbox 5, berechnen Textbox6
06.08.2013 17:49:06
Bernd
Hallo Thomas,
Danke für deine Hilfe, fast richtig. Deine Formel zählt die Tage, die seit letztem Geb. vergangen sind. Umgekehrt, tage bis zum nächsten Geb.
Könntest du das korrigieren?
Gruß
Bernd

@Alle, mein Helfer hat sich verabschiedet
07.08.2013 11:36:01
Bernd
Hallo zusammen,
der Code von Thomas hakt etwas und zwar werden die Tage, die seit letztem Geb. vergangen sind gezählt.
Also zusammen gefasst: suche ich eine Code, der bei verlassen von UF-TextBox5 in TextBox15 die Tage bis zum nächsten Geb. anzeigt und bei direkter Übereinstimmung "Happy Birthday".
Kann mir dabei jemand helfen?
Danke im Voraus!!!
Gruß
Bernd

Anzeige
AW: @Alle, mein Helfer hat sich verabschiedet
07.08.2013 12:03:19
Rudi
Hallo, 
Private Sub Textbox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim d As Date
d = CDate(TextBox5)
d = DateSerial(Year(Date), Month(d), Day(d))
Select Case d
Case Date
TextBox15 = "Happy Birthday"
Case Is

Gruß
Rudi

AW: @Alle, mein Helfer hat sich verabschiedet
07.08.2013 12:25:04
Bernd
Hallo Rudi,
Danke für deine schnelle Hilfe!!!
Kleine Ergänzungsfrage: wie muss ich den Code ändern, dass wenn "Happy Birthday" erscheint, es in Textfarbe rot und fett ändert?
Gruß
Bernd

Anzeige
AW: @Alle, mein Helfer hat sich verabschiedet
07.08.2013 12:47:56
Rudi
Hallo, 
Private Sub Textbox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim d As Date
d = CDate(TextBox5)
d = DateSerial(Year(Date), Month(d), Day(d))
Select Case d
Case Date
With TextBox15
.Text = "Happy Birthday"
.Font.Bold = True
.ForeColor = RGB(255, 0, 0)
End With
Case Is

Gruß
Rudi

Anzeige
AW: @Alle, mein Helfer hat sich verabschiedet
07.08.2013 14:58:20
Bernd
Danke Rudi, funktioniert prima. ☺ ☺ ☺
Gruß
Bernd
PS. Schön weiter ein wachsames Auge auf meine Beiträge, gelle
;

Forumthreads zu verwandten Themen

VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
Anzeige
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
String finden und an variable übergeben
Peter

Hallöchen zusammen,
nachdem ich nun schon ne halbe Stunde suche und nicht fündig geworden bin, versuche ich die Frage einfach mal in den Raum zu stellen. Es mir hier schon ein paarmal super geholfen worden.
Voraussetzung:
Es gibt eine Tabelle, in der in Spalte "E" entweder ein Strin...
20.05.2009 19:20:33
Thread-ID: 1076477
5 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Anzeige
per VBA Textvariable nach Word
ptonka

Hallo zusammen,
folgendes Problem:
Ich stelle per VBA aus mehreren Zelleinträgen in einer Tabelle einen langen String zusammen. Dieser wird der Variable "Langtext" zugewiesen.
Nun soll dieser Text aus der Variable Langtext in ein leeres Worddokument (.doc oder .txt-File) an den Anfa...
01.01.1970 00:00:00
Thread-ID: 1106384
3 Beiträge
Anzeige
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
GÜltigkeit mit Variable in VBA
Andre

Hallo,
ich habe ein Anwendungs oder Referenzobjektiven Fehler. Bei folgender Formel. Kann mir da jemand helfen?
Dim strFormel As String
For v = nTabelle1ZeileSTART To Zeilen
strFormel = "=INDIREKT($O" & v & ")"
With Cells(v, nTabelle1SpalteFBFunktion).Validation
...
09.10.2009 10:50:11
Thread-ID: 1108490
17 Beiträge
Anzeige
variable Zellauswahl in VBA
L

Hallo,
habe mehrere Tabellen mit unterschiedlich vielen Zeilen aber immer nur 8 Spalten.
Im Makro habe ich die Tastenkombination
Shift+StRG+Pfeil runter
in Spalte C benutzt, damit nur bis zum Ende der Einträge markiert wird. So habe ich die Zellen markiert, in denen ich dara...
02.02.2010 14:59:00
Thread-ID: 1135122
3 Beiträge
VBA: Text in Spalten - variable Spalte als Text
Michael

Hallo,
ich habe folgendes Problem:
Unser ERP System exportiert CSV Dateien, die ich weiter bearbeiten Möchte. Erster Schritt ist die Trennung der Werte über Text in Spalten. Funktioniert soweit ganz gut. Jedoch ergibt sich das Probelm, dass bei einigen Daten Nullen vorneanstehen. Diese...
30.03.2010 15:45:21
Thread-ID: 1149392
7 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