UserForm mit Prozentwerten in TextBox - Dilemma beim speichern in Zelle?

Liebe Excel-Fans,

ich habe ein Problem mit dem Thema Prozentangaben und versuche es so kurz wie möglich zu erklären:

Eine UserForm mit Feldern (TextBoxen) zum Bearbeiten von Werten aus einer Tabelle.
In der Excel-Tabelle sollen Prozentwerte hinterlegt und in die UserForm entsprechend ausgelesen werden.

Beim erstmaligen Hinterlegen kann man einfach TextBox1.Value / 100 verwenden. Klar.
Beim Einlesen des Wertes in die TextBox1 der UserForm zum Bearbeiten nehme ich: UserForm.TextBox1 = Format(UserForm.TextBox1, "#,##0.00 %") damit beim Lesen der Wert auch schön als Prozentwert angezeigt wird

Wenn ich nun speichere, ohne die Prozentwerte zu verändern, da ich diese einfach nicht verändern möchte, schmeißt mir Excel einen Laufzeitfehler 13, Typen unverträglich und markiert den Abschnitt im Code (oben Punkt 1) wo ich durch 100 dividiere.

Ist ja irgendwie verständlich, da er versucht den Wert aus der TextBox "1,99 %" zu dividieren, da nun ein "%" drin steht ... bzw. möchte ich in dem Fall auch gar nicht, dass durch 100 dividiert wird, da der Wert ja stimmt und nicht nochmal dividiert werden soll.

Habe irgendwie einen Denkfehler - aber ein Formular was "Bearbeiten" soll, muss die Werte richtig verändern können oder aber auch erstmals anlegen können. Und hier scheint es mit den Prozent-Werten ein Thema zu geben.

Ich danke für eure Ideen und Hilfsansätze!

Grüße
Sebastian

1 Antwort

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

VBA

07.03.2023, 19:59

Generell werden Dinge die in einer textbox stehen als "Text" interpretiert.
Einen "text" zu dividieren mit 100 geht nicht.
Also bevor es mathematisch weitergeht dafür sorgen, dass es wieder eine (Dezimal) Ziffer wird.
z.B: Conversion.Cdbl

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zur Frage

Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

...zur Frage

VBA | Abbrechen des Hineinschreibens bei Überschreitung der TxBOX der UserForm?

Hallo miteinander.

Ich bräuchte unbedingt mal ein paar Profi-Tipps.

Ich habe einen Code, welcher eingetragene Daten aus der UserForm abspeichert und in verschiedene Tabellen übernimmt.

Soll die Textbox jedoch einen höheren Wert als 100 beinhalten, soll das hineinschreiben und alle weiteren Befehle abgebrochen werden.
Eine weitere UserForm soll als popup auftauchen. bzw. mit popup.show

Die frage, welche ich mir stelle ist:

Wie bekomme ich es hin, dass sich das Popup-Fenster öffnet und das Eintragen der Textbox in die Tabellen gar nicht erst stattfindet.

...zur Frage

VBA: Variablenwert aus Textbox in Zahl ausgeben?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

...zur Frage

Excel Tabelle Wert aufgrund der Oberkategorien finden?

Hey, es folgt eine etwas kompliziertere Frage:

Ich habe 2 Excel-Tabellen. Eine Pivot Tabelle und eine Tabelle, in die ich bestimmte Daten einpflegen möchte.

Hierbei muss ich Daten aus der Pivot Tabelle finden. Ich muss anhand einer jeweils einmaligen Nummer (Projektnummern, die hier die Oberkategorien darstellen) die Daten finden, die jeweils nochmal in 3 Unterkategorien sind. Jede Oberkategorie (A - nicht das ReihenA aus Excel) hat also eine Hand voll Unterkategorien (B), die jedoch an sich identsich sind. Jede Oberkategorie hat also dieselben Unterkategorien, die jedoch natürlich allesamt unterschiedliche Werte enthalten.

Ich möchte dann quasi aus der Pivot Tabelle dem Wert B3 aus Oberkategorie A97.

Welche Formel kann ich für diese zweifache Suche verwenden?

Danke!

...zur Frage

UserForm Textboxen mit Werten aus Excel Datei füllen?

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu:

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

...zur Frage

Excel Funktion 10% Regelung?

Hallo zusammen,

ich bin hier neu und auch nicht der Meister im Arbeiten mit Excel. Darum mein Anliegen. Vielleicht kann mich ja jemand bei der Lösung unterstützen.

Es soll mit Excel eine VOB Mehr-/ Mindermengen Berechnung über zahlreiche Spalten ausgeführt werden, ähnlich dem Foto. Der Aufbau der Tabelle folgt dem eines Leistungsverzeichnises eines Architekten.

Die Vorstellung der Funktion geht dahin, dass die Differenz von jeweils zwei Werten [Soll/Ist] automatisch geprüft wird, ob es sich um eine Mehr-oder Mindermenge handelt oder ob das Ergebnis im 10% Rahmen einer 10% Regelung liegt.

Die Formel soll folgendes Ergebnis errechnen:

Den Differenzwert, wenn der Ist-Wert 10% größer ist wie der Soll-Wert

Den Differenzwert, wenn der Ist-Wert 10% kleiner ist wie der Soll-Wert

Den Ist-Wert beibehalten, wenn die Differenz zwischen Soll-/ Ist-Wert jeweils kleiner 10 Prozent ist.

Den Sollwert anzeigen wenn der Ist-Wert Null ist.

Beispiel 1;

m2 Mauerwerk - Soll= 100 m2 / Ist = 125 m2

10% von 100 m2 gleich 110 m2

Differenz zu 125 m2 gleich 15 m2

Beispiel 2;

m2 Mauerwerk -Soll= 100 m2 / Ist = 85 m2

10% von 90 m2 gleich 90 m2

Differenz zu 85 m2 gleich 5 m2

Beispiel 3;

m2 Mauerwerk - Soll= 100 m2 / Ist = 105 m2

10% von 100 m2 gleich 110 m2

Differenz zu 105 m2 gleich < 10 %

Beispiel 4;

m2 Mauerwerk - Soll= 30 m2 / Ist = 0 m2

Ergebnis gleich 30 m2

Ich bin auf eure Vorschläge gespannt und bedanke mich für die Unterstützung im voraus und wünsche ein paar schöne Feiertage.

...zur Frage

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

...zur Frage

Excel UserForm Hilfe?

Hallo ich würde gerne mit einer UserForm meine Tabelle befüllen wie kann ich es machen das das was ich in ein Textfeld eingetragen habe in ein bestimmtest Feld eingetragen wird z.B. D12

...zur Frage

Wie kann ich in Excel eine bedingte Formatierung einer Tabelle vornehmen, die zwei Bedingungen prüft?

Hallo und guten Tag,

Ich habe folgendes Problem. Ich möchte in Excel eine Tabelle zur besseren Übersicht farblich gestalten. Das soll automatisiert gesehen, da ich immer wieder die Tabelle erweitere.

Die Tabelle soll nun zwei Zellwerte prüfen und danach die Formatierung vornehmen. Zum einen soll sie Zellen mit geraden und ungeraden Werten verschieden einfärben. Soweit so gut, das habe ich hinbekommen.

Nun soll die Formatierung einen weiteren Wert berücksichtigen, um die Zeilen mit den geraden bzw. ungeraden Werten in einer anderen Farbkombination darzustellen.

Wer hat eine Lösung für mich?

...zur Frage

Wie bearbeite ich eine UserForm in Excel 2016 (Mac)?

Hallo zusammen,

ich habe auf meinem MacBook mein Office-Paket auf 2016 geupdatet und komme jetzt in Excel nicht mehr klar.. Ich möchte gerne eine bestehende UserForm bearbeiten. Konkret will ich noch ein paar Buttons hinzufügen. Seit dem Update weiß ich aber nicht mehr, wie ich die UserForm so öffnen kann, dass ich dort etwas bearbeiten kann. Den Code der da hinter steckt kann ich ändern, nur die Form an sich nicht.

Danke für eure Hilfe :)

...zur Frage

Excel VBA Text in andere Textbox bringen?

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.
Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

...zur Frage

Excel - Pivot Tabelle nach Werten sortieren?

Hallo,
ich habe eine Pivot Tabelle in Google Tabellen erstellt, siehe Screenshot. Ich habe eine Zeile eingefügt und dann Werte eingefügt. Ich möchte gerne nach den Werten sortieren, also das die höchsten Verkäufe danach sortiert wird. Ich kann aber nur nach der Zeile sortieren. Habt ihr eine Idee wie ich nach Werten sortieren kann?

...zur Frage

Excel VBA, ComboBox + intelligente Tabelle?

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen