Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in Userform bringen

Forumthread: Formel in Userform bringen

Formel in Userform bringen
19.06.2024 10:06:03
chris1958
Hallo !
Ich weiß, ich bin unverschämt, doch ich probier es einfach.
Icfh habe eine Formel von BoskoBiati2 (Edgar) bekommen und die Funktioniert wunderbar. Nun versuche ich seit ich die Formel bekommen habe, diese in einer Userform zu bekommen um mittels Dropdown die Spalte auszuwählen und dann die Jahreszahl, um die Berechnung in der Userform berechnen zu lassen.
Ich bin dazu einfach .......................naja egal
Ich habe die Bitte, ob mir jemand behilflich sein kann, um bei dem u.a. Link, welche eine Datei mit den Daten, der Userform und mit der Formel beinhaltet, dies zu bewerkstelligen.
Mit großem Danke
chris1958

https://www.herber.de/bbs/user/170353.xls
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Userform bringen
19.06.2024 10:29:19
daniel
Hi
am einfachsten so:

1. in der Combobox für die Spaltenwahl nur den Buchstaben (also das, was in Zelle 4 für die für die Formel benötigt wird) anzeigen und auswählen lassen
2. Combobox mit der Zelle A4 verknüpfen (Zelladdresse in der Eigenschaft ControlsSource eintragen)
3. Textbox für die Jahresangabe mit der Zelle A5 verknüpfen (wiedere Zelladresse in der Eigenschaft ControlSource eintragen
4. verwende als Steuerelement für die Ergebnisausgabe eine Listbox (keine Textbox). Vernküpfe dann diese mit der Zelle mit der Formel (D4), in dem du die Zelladresse in der Eigenschaft RowSource einträgst.

eine Textbox ist für die Ergenisausgabe ungünstig, da dann die Formel in der vernküpften Zelle überschrieben wird, sobald der Anwender in die Textbox klickt. Bei einer Listbox ist die Vernknüpfung RowSource automatisch "ReadOnly"

wenn du mehrere Blätter hast, dann die Zelladresse mit Tabellenblatt eintragen und sicherheitshalber immer mit Hochkomma (wird benötigt, wenn der Tabellenblattname Sonderzeichen wie das Leerzeichen enthält): 'Berechnung'!A4

Gruß Daniel
Anzeige
AW: Formel in Userform bringen
19.06.2024 10:52:45
Alwin Weisangler
Hallo,

Berechnung per VBA wäre so (ins Modul das Userforms): 


Option Explicit



Private Sub SummeErmitteln()

    Dim i&, Sum#, arr(): arr = Tabelle2.Range("A22:L" & Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row).Value

    If ComboBox1.ListIndex = -1 Or TextBox1 = "" Or Len(TextBox1) > 4 Then Exit Sub

    For i = 1 To UBound(arr)

        If Year(arr(i, 1)) = CDbl(TextBox1) Then

            Sum = Sum + arr(i, CDbl(ComboBox1))

        End If

    Next i

    TextBox2 = Sum

End Sub



Private Sub ComboBox1_Change()

    SummeErmitteln

End Sub



Private Sub TextBox1_Change()

    SummeErmitteln

End Sub



Private Sub UserForm_Initialize()

    ComboBox1.List = Application.Transpose(Tabelle2.Range("G1:L1"))

End Sub


Gruß Uwe
Anzeige
AW: Formel in Userform bringen
19.06.2024 11:47:31
chris1958
Hallo Uwe !
Das passt hervorragend - WOW
Nur eines noch.............
Ich habe die Spalten nicht mit 1,2................12 in Zeile 1 nummeriert. Das war nur zur Veranschaulichung gedacht.
Kann man das irgendwie so machen, das in der Userform als Auswahl steht: G. H, I, J....... L.
Das wäre dann der Hammer.
Danke jedenfalls für die fixe Antwort.
Danke chris58
Anzeige
AW: Formel in Userform bringen
19.06.2024 12:12:18
Alwin Weisangler
das sollte so ausreichend sein: 


Option Explicit



Private Sub SummeErmitteln()

    Dim i&, Sum#, arr(): arr = Tabelle2.Range("A22:L" & Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row).Value

    If ComboBox1.ListIndex = -1 Or TextBox1 = "" Or Len(TextBox1) > 4 Then Exit Sub

    For i = 1 To UBound(arr)

        If Year(arr(i, 1)) = CDbl(TextBox1) Then

            Sum = Sum + arr(i, Asc(ComboBox1) - 64)

        End If

    Next i

    TextBox2 = Sum

End Sub



Private Sub ComboBox1_Change()

    SummeErmitteln

End Sub



Private Sub TextBox1_Change()

    SummeErmitteln

End Sub



Private Sub UserForm_Initialize()

    ComboBox1.List = Array("G", "H", "I", "J", "K", "L")

End Sub


Gruß Uwe
Anzeige
AW: Formel in Userform bringen
19.06.2024 12:16:48
chris1958
Hallo Uwe !
Danke - phänomenal - ich bin begeistert.
Herzichen Danke
chris58
AW: Formel in Userform bringen
19.06.2024 13:00:49
Alwin Weisangler
Gerne.

Gruß Uwe
;

Forumthreads zu verwandten Themen

Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Formeleditor in Userform???
Martin

Hallo zusammen,
ich nehme in einer Userform verschiedene Berechnungen vor, nun sollte ich wenn mit der Maus über ein Ergebnis gefahren wird per MouseMove die zugehörige Berechnugsformel in einem Textfeld anzeigen.
Ist es möglich dies per Formeleditor zu machen um die Formeln vernünftig...
15.01.2009 21:19:00
Thread-ID: 1040313
8 Beiträge
Anzeige
Formelergebnisse in UserForm eintragen
Hans

Hallo,
Ich brauche ein meiner UserForm insgesamt 12 Formelergebnisse in den Label. Das heißt 12 Label, für je ein Ergebniss
Die Ergebnisse dienen als Vorabinformation (über verschiedene Berechnungsvarianten) für den User, der dann in der UF eine Variante mit einem "OptionButton" auswähl...
03.03.2009 22:03:23
Thread-ID: 1056120
6 Beiträge
Anzeige
Format in Formel
Jonathan

Hallo zusammen!
Ich habe eine ganz kurze Frage:
Wie kann ich das Format des Wertes in A1 in folgender Formel angeben:
=VERKETTEN("Zahlung in Höhe von ";A1;" erledigt")
Ich hatte es mir so gedacht:
=VERKETTEN("Zahlung in Höhe von ";FORMAT(A1;#.##0,00);" erledigt")
aber da...
18.05.2009 10:00:37
Thread-ID: 1075797
3 Beiträge
Formel für bedingte Formatierung
Ernst

Hallo Vba Experten !
Ich habe ein Problem und zwar habe in Range A8:A105 Schriftfarbe rot ich möchte nun wenn die jeweillige Nachbarzelle gefüllt ist das sich die Schriftfarbe auf grün Ändert.
wenn ich das einzeln mache funktioniert es einwandfrei. jedoch habe ich Probleme wenn ich da...
05.06.2009 12:40:30
Thread-ID: 1079430
6 Beiträge
Informationen in Formel hinterlegen
Joni

Hallo,
ich habe irgendwo mal gelesen, dass es möglich sein soll in einer Formel Informationen zur Formel zu hinterlegen die den Syntax der Formel nicht beeinträchtigen. Kann mir jemand sagen wie das geht?
Bsp. =A1~Zelle in der die Anzahl steht~*A2~Zelle in der der Preis steht~
Die W...
13.06.2009 13:01:42
Thread-ID: 1081252
4 Beiträge
Formel für bedingte Formatierung ?
Ernst

Hallo Vba Profis !
Hätte da wieder mal ein Frage und zwar "wie müsste eine Formel aussehen ?, sobald in Spalte A Range(A:6,A300) eine Zelle Aktiv ist diese zb.mit grünem Hindergrund dargestellt wird". bem verlassen der Zelle sollte die jeweils ursprüngliche Farbe wiederhergestellt werden.Be...
17.06.2009 07:31:04
Thread-ID: 1082111
3 Beiträge
Anzeige
Formel in Bedinger Formatierung
Heinz

Hallo Leute
Ich bekomme leider folgende Formel in bedingter Formatierung nicht hin.
Wenn E5="Test" +K5 =0 ; Schriftfarbe grau
Könnte mir dazu bitte jemand helfen ?
Gruß
Heinz
30.06.2009 11:44:06
Thread-ID: 1085311
4 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